MovieMEMO

【新聞記事】マクドナルド特需「ポケＧＯ」

投稿日: 2017年8月27日作成者: 管理人

2017年7月22日の記事より、ポケモンＧＯが日本上陸してから１年経過し、当時の熱狂的なブームは・・・リリース当時じゃないにしても、月４４０万人のトレーナーが利用しているというのは驚きです。

そして、都内の公園にいた会社員（４８）の驚くべきヘビーさ！

管理人も毎日ポケＧＯをやってますが・・・2,742㌔です。

それはさて置き、ポケモンＧＯのイベントがある所に人が集まりますが、目玉となる企画が無いと常時集客は難しいです。そういう意味では、伝説ポケモンのレイドボス戦は非常に有効な１手だったのではないでしょうか？

いつＰＯＰするとも分からないレイドボス。伝説を倒すには人が必要となると、人が集まる駅前や大都市圏で時間を潰すしかないのですが、この真夏日で熱中症にならないためにも、マックで涼みながら待機し、近くにＰＯＰしたら足を運ぶ・・・そんなトレーナーは、自分だけじゃないはず？

カテゴリー: ニュース, ポケモンGO | コメントする

【ポケモンＧＯ】新たなレイドバトルにミュウツー出現予定

投稿日: 2017年8月25日作成者: 管理人

2017年8月14日公式サイトにて告知がありましたが、いよいよミュウツーの実装が数週間後に迫ったようです！

新たなレイドジム「ＥＸバトル」は招待客しか入れないようなので、相当強いと思われるミュウツーを、限定された人達で倒すことを想像すると、条件が相当厳しいのでは？！と懸念してしまいますが、ＥＸバトルが行われる事前の日時・場所の告知があるのが救いですね。

公式サイトの情報と重複しますが、ＥＸバトルへの参加権は、
　①レイドバトル戦で勝利しておく
　②勝利後、数週間以内にその場所にミュウツーが湧く場合、招待状を受け取る

です。

湧くどのくらい前に招待状を貰えるのか？
「受け取るチャンス」という事は、受け取れない可能性がある？
日時指定という事は、ジムに１戦のみ登場するだけなのかな？
今のレイドバトルは20名限定ですが、同時バトルの人数が拡大されるのかな？

色々と疑問が湧きますが、ジムにミュウツーが湧いたにも関らず、脇で見てるだけというのは、歯がゆい思いをしそうですね。

カテゴリー: ポケモンGO | コメントする

【ポケモンＧＯ】伝説のポケモンの登場期間Vol2について

投稿日: 2017年8月24日作成者: 管理人

2017年8月14日公式サイトにて伝説ポケモンの登場期間について追加発表がありました。(前回の内容)

　ルギア：2017年8月15日～ 2017年9月1日
　フリーザー：2017年8月15日～ 2017年9月1日
　ファイヤー：2017年8月15日～ 2017年9月1日
　サンダー：2017年8月15日～ 2017年9月1日

いずれも 2017年8月15日～ 2017年9月1日という事ですが、最近は伝説ポケモンのレイドバトルが発生していても、地域によっては閑散としてバトルに勝利する事が難しくなってきました。

20～30分数人で示し合わせて、7人前後集まったらようやく勝利！という事もあれば、アキバ・渋谷などの大都市圏であれば、終了間際でも10名前後の参加者が募ります。

以前、サンダー戦の時に書きましたが、一度倒した後でも参戦させて欲しい！

カテゴリー: ポケモンGO | コメントする

【Excelマクロ(VBa)】条件分岐(Select Case)

投稿日: 2017年8月24日作成者: 管理人

　Select Case文

Select Case文は下記のように記載します。

Select Case 変数
　　Case 値１
　　　　値１に一致した場合に実行
　　Case 値２
　　　　値２に一致した場合に実行
　　Case 値３
　　　　値３に一致した場合に実行
　　Case Else
　　　　値１・２・３に一致しない場合に実行
　　　　(上記の条件にどれも当てはまらない場合)
End Select

変数が値１、値２に一致した時に同じ処理をしたい場合、下記のようにカンマ区切りをします。

Select Case 変数
　　Case 値１, 値２
　　　　値１、値２に一致した場合に実行
　　Case 値３
　　　　値３に一致した場合に実行
　　Case Else
　　　　値１・２・３に一致しない場合に実行
　　　　(上記の条件にどれも当てはまらない場合)
End Select

値１と値２に範囲があり(例えば10～20 等)、変数がその範囲内だった時に同じ処理をしたい場合、下記のようにtoを用います。

Select Case 変数
　　Case 値１ to 値２
　　　　値１～値２の範囲内だった場合に実行
　　Case 値３
　　　　値３に一致した場合に実行
　　Case Else
　　　　値１～２・３に一致しない場合に実行
　　　　(上記の条件にどれも当てはまらない場合)
End Select

例として(余り良い例が見つからなかったので)3月決算の場合の年度を求める処理を記述します。

▽ カンマ区切りを用いた場合

Select Case Month(Now)
　　Case 1, 2, 3
　　　　MsgBox "現在は " & Year(Now) - 1 & "年度 " & Month(Now) & "月です"
　　Case 4, 5, 6, 7, 8, 9, 10, 11, 12
　　　　MsgBox "現在は " & Year(Now) & "年度 " & Month(Now) & "月です"
　　Case Else
　　　　MsgBox 月の指定に誤りがあります
End Select

▽ toを用いた場合

Select Case Month(Now)
　　Case 1 to 3
　　　　MsgBox "現在は " & Year(Now) - 1 & "年度 " & Month(Now) & "月です"
　　Case 4 to 12
　　　　MsgBox "現在は " & Year(Now) & "年度 " & Month(Now) & "月です"
　　Case Else
　　　　MsgBox 月の指定に誤りがあります
End Select