【ポケモンGO】ポケモン240種類ゲットだぜ!

スイクンをゲットし、ゲットした種類が240種類となりました!(^^)!

1ヶ月後には「ライコウ」or「エンテイ」が日本(アジア)上陸になるし、「ミュウツー」も控えているので・・・まぁ まだ先ですが。
先日、テスト的にEXバトル追加の話題がありましたが、誰か届いたのかな?


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

【ポケモンGO】伝説ポケモン「スイクン」ゲット!


2017年9月1日登場した「スイクン」ですが7戦中1体ゲットと、ゲット率が非常に悪いです。

ルギア・サンダー・ファイアー・フリーザーと比べると、スイクンの動きは上下のみなのでボールは当てやすいのですが、ゲット率が非常に悪いような・・・?

今まで金のズリの実が余っていたのですが、スイクンとレイドバトルすると、金のズリの実を落とさず、当たって逃げられた分、金のズリの実が消費され、余っていた金のズリの実が無くなりました。

登場期間は2017年9月1日~30日と、まだまだ期間はありますが、1体ゲットした事で、これからは1日1回を基本にバトルしようと思います。

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

【Excelマクロ(VBa)】セル入力

 
 セルの入力

セルに文字を入力するには、下記のように記述します。

Dim AppExcel As Excel.Application
Set AppExcel = New Excel.Application

AppExcel.Workbooks.Add 'ブックを新規追加
AppExcel.Visible = True '表示

'10 * 10 のセルに i * j の結果を記入
For i = 1 To 10
  For j = 1 To 10
    AppExcel.Cells(i, j) = i * j
  Next j
Next i

'セルを全選択
AppExcel.Cells.Select
'セルの幅を自動調整
AppExcel.Cells.EntireColumn.AutoFit
'セルA1を選択
AppExcel.Range("A1").Select

 
 セルの入力(レスポンス向上)

基本は上記のように記載しますが、データのI/Oはレスポンスに非常に負荷が掛かります。負荷を軽減するには、I/Oの処理を極力抑える事が望ましいです。

そこで、i * j の処理結果を 変数(配列)にセットし、纏めてセルへ入力します。(※ 赤字箇所が変更内容です)

Dim AppExcel As Excel.Application
Dim ExcelData() As Variant

Set AppExcel = New Excel.Application

AppExcel.Workbooks.Add 'ブックを新規追加
AppExcel.Visible = True '表示

ReDim ExcelData(10, 10)

'10 * 10 のセルに i * j の結果を記入
For i = 1 To 10
  For j = 1 To 10
    'セルは開始位置(1, 1)に対し、変数は(0, 0)のため注意
    ExcelData(i - 1, j - 1) = i * j

  Next j
Next i

AppExcel.Range(AppExcel.Cells(1, 1), AppExcel.Cells(10, 10)) = ExcelData

'セルを全選択
AppExcel.Cells.Select
'セルの幅を自動調整
AppExcel.Cells.EntireColumn.AutoFit
'セルA1を選択
AppExcel.Range("A1").Select

上記例では、分かりやすいように 具体的な数値 (10, 10) で設定しましたが、変数化すると柔軟になります。

ちなみに、レスポンスの比較で、10 * 10 程度では顕著な差は出ませんが、1000 * 100とすると、下記のようにレスポンスの差が歴然とします。

処理方法 秒数
直接入力 48秒
変数[配列]入力 1秒未満



カテゴリー: VBa(Excelマクロ), システム開発 | コメントする

【ポケモンGO】伝説ポケモン「ライコウ」「エンテイ」「スイクン」登場

2017年9月1日、公式サイトにて新たな伝説ポケモン「ライコウ」「エンテイ」「スイクン」実装の発表がありました!

「ルギア」「サンダー」「ファイヤー」「フリーザー」と同じようにレイドボス戦でゲット出来ます。早速6戦スイクンとバトルしてきました!

今までの伝説ポケモンは飛行系だったので、狙いが定まりにくかったのに対し、スイクンは非常にボールを当てやすいです。ですが・・・1体しかゲット出来ませんでした(T_T)

現在明確になっている出現期間と出現場所は下記の通りで、1ヶ月毎にローテーションするようです。

期間 伝説ポケモン 場所
2017年9月1日~30日 「スイクン」 アジア太平洋地域
「ライコウ」 アメリカ大陸
「エンテイ」 ヨーロッパ・アフリカ大陸

また、近々、「EXレイド」も実装されるようで、試験的に招待状の配信が始まるようです。クジ運悪いからなぁ・・・(-_-;)

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

【新聞記事】痴漢疑い、逃げるは×

2017年7月14日の新聞記事より。
通勤中のサラリーマンにとって痴漢に間違えられる事ほど災難は無いと思います。

「もし自分が痴漢に間違えられたら?」

「自分が間違えられる事は無いだろう」「もし間違えられても説明すれば・・・」という意見を持っている方が大半ですが、ネットで検索すると「捕まったら最後」「疑われたら逃げろ」と書かれているサイトもあります。

その影響か、線路に飛び降り、逃げるケースが相次いでます。

冷静に考えれば、疑われて逃げ出せば「怪しい」と思うのが普通の心理ですが、2007年1月20日に公開された日本映画「それでもボクはやってない」を見ると、「捕まったら最後」「疑われたら逃げろ」と言われるのも仕方ない面がありそうです。

管理人は、帰宅時は難しいですが、出勤時は同じ時間の同じ車輌に乗り、片手にカバン、反対の手にスマホを持って通勤しています。

カテゴリー: 事件, 新聞記事 | コメントする