【ポケモンGO】レイドボス戦-タマゴ復活



2017年9月8日頃からレイドボスが登場する前にタマゴが復活しました。

伝説ポケモンがレイドボス戦に登場してからタマゴが無くなり、2時間レイドボスがジムを占拠してくれましたが、タマゴ復活により1時間タマゴ、1時間レイドボスとなりました。

そのお陰で、いくつかのメリット・デメリットがあります。

【タマゴのメリット】
・タマゴがPOPしていないと1時間以内にボスは登場しない(安心して その場所を移動できる)
・何時から戦闘が開始するか具体的に分かる
・何がボスになるか絞れる

【タマゴのデメリット】
・長時間戦闘出来ないのでゲットするチャンスが限られる

伝説ポケモンが湧く黒タマゴが登場し、生まれる瞬間に現地に行くと、相当な人が群がってます。POP時間が1時間と短いので同時に複数POPしてハシゴする場合は、今までのようにいかないですね。

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

【Excelマクロ(VBa)】グラフの作成


   既存シートにグラフを作成する(マニュアル編)


Excelマクロを使わず、マニュアルでグラフを作成する方法ですが、(1)既存シートに作成するか、(2)新しいシートに作成するかの2パターンあります。

まず既存シートにグラフを作成する方法をご紹介します。

手順としては、① データ領域を選択、② メニューバーの[挿入] - [折れ線] - (今回は)[マーカー付き折れ線]を選択します。



すると、下記グラフが同じシート内に表示されます。




   新しいシートにグラフを作成する(マニュアル編)


次に、新しいシートにグラフを作成する方法ですが、既存シートにグラフを作成した後、メニューバーの[デザイン] - [グラフの移動]を選択します。



下記「グラフの移動」というポップアップ画面が表示されるので、[新しいシート]を選択し[OK]をクリックします。



すると、下記グラフが新しいシートに全面表示されます。




   既存シートにグラフを作成する(マクロ編)


グラフの作成は、「ActiveSheet.Shapes.AddChart」を用います。
データ領域の指定は、「.Chart.SetSourceData Source:=」で指定し、グラフの種類は「.Chart.ChartType =」で指定します。

With ActiveSheet.Shapes.AddChart.Chart
  .SetSourceData Source:=ActiveSheet.Range(Cells(1, 1), Cells(5, 5))
  .ChartType = xlLineMarkers
End With


   新しいシートにグラフを作成する(マクロ編)


一方、新しいシートにグラフを作成する場合は、「ActiveWorkbook.Charts.Add」を用います。
データ領域の指定は、「.SetSourceData Source:=」で指定し、グラフの種類は「ActiveWorkbook.ActiveChart.ChartType =」で指定します。

ActiveWorkbook.Charts.Add.SetSourceData Source:=ActiveSheet.Range(Cells(1, 1), Cells(5, 5))
ActiveWorkbook.ActiveChart.ChartType = xlLineMarkers


   【例】グラフを作成するには


新しいExcelを開き、下記の様な表を作成してから、新しいシートにグラフを作成する処理をご紹介します。


  ↓


Excelマクロで、表の作成(罫線処理は除外)からグラフまで作成する処理をコーディングすると、下記のようになります。

'Excel新規ブックを起動
Dim AppExcel As Excel.Application
Dim AppSheetName As String
Dim LineX, LineY, i, j As Integer

Set AppExcel = New Excel.Application
'ブックを新規追加
AppExcel.Workbooks.Add
'シート名の取得
AppSheetName = AppExcel.ActiveSheet.Name

LineX = 5
LineY = 5

'セルは(1, 1)開始のため、(i, j)の開始を(1, 1)とする
For i = 1 To LineX
  For j = 1 To LineY
    '1行目:年月
    If i = 1 Then
      Select Case j
        Case 2:
          AppExcel.Cells(i, j) = "'2017/04"
        Case 3:
          AppExcel.Cells(i, j) = "'2017/05"
        Case 4:
          AppExcel.Cells(i, j) = "'2017/06"
        Case 5:
          AppExcel.Cells(i, j) = "'2017/07"
      End Select
    '1列目:くだもの
    ElseIf j = 1 Then
      Select Case i
        Case 2:
          AppExcel.Cells(i, j) = "リンゴ"
        Case 3:
          AppExcel.Cells(i, j) = "みかん"
        Case 4:
          AppExcel.Cells(i, j) = "バナナ"
        Case 5:
          AppExcel.Cells(i, j) = "ぶどう"
      End Select
    '1行目・1列目以外:行数 + 列数
    Else
      AppExcel.Cells(i, j) = i + j
    End If
  Next j
Next i

'グラフの作成
AppExcel.Charts.Add.SetSourceData _
  Source:=AppExcel.Sheets(AppSheetName).Range(AppExcel.Cells(1, 1), AppExcel.Cells(LineX, LineY))

'グラフのインデックスを取得
ChartIndex = AppExcel.ActiveChart.Index

'グラフの各種設定をする
With AppExcel.Charts(ChartIndex)
  '折れ線グラフ
  .ChartType = xlLineMarkers
  '凡例を上に配置
  .SetElement (msoElementLegendTop)
  'タイトルを表示
  .HasTitle = True
  'タイトルを設定
  .ChartTitle.Text = "くだもの"
End With

グラフの作成処理は「グラフの作成」とコメントしてある処理からで、カーソルがデータソース上にあれば「.SetSourceData」以下の設定を省略してもグラフを作成する事ができます。

その後、グラフを操作する場合、ActiveChartと定義するよりインデックスを取得して、そのインデックスを基に操作をする方が誤りがありません。
カテゴリー: VBa(Excelマクロ), システム開発 | コメントする

【映画】沈黙の要塞(原題:On Deadly Ground)



監督:スティーブン・セガール
脚本:エド・ホロウィツ、ロビン・U・ルシン
出演者:スティーブン・セガール(フォレスト・タフト 役)
    マイケル・ケイン(マイケル・ジェニングス 役)
    ジョアン・チェン(マー・スー 役)
    ジョン・C・マッギンリー(マック・グルーバー 役)
    リチャード・ハミルトン(ヒュー・パーマー 役)
    R・リー・アーメイ(ストーン 役)

----------------------------------------

あらすじ・感想(ネタバレ):

アラスカでエイジスワン石油会社が石油発掘で火災によるトラブルが発生。専門家であるフォレストが大事故になるのを防ぐが、現場監督であるパーマーへの風当たりが強くなってきた。

一方、パーマーは頻発するトラブルはエンジンバルブに欠陥があるのではないか?と疑問を抱いていた。更に、エイジスワン社は先住民と、環境汚染についてもトラブルを抱えており、良い印象を与えるように会社がクリーンであるCMを撮影したりしていた。

しかし、社長は利益だけを追求し、反対する者を力でねじ伏せる性格だった。エンジンバルブの欠陥についても、社長の指示であり、石油発掘場は、契約により、残り13日以内に仕上げないと地元住民に返還されてしまうので、欠陥がある事が分かっていながら使い続け採掘を急いでいた。

現場監督であるパーマーは その事に気づき、証拠のフロッピーと手帳をフォレストに渡そうとするが、社長側に感づかれ、拷問にあって殺されてしまう。

フォレストは始めは社長側だったが、エンジンバルブの欠陥に気づき、社長へ問いただす。その事で、フォレストを騙して監禁し爆弾で殺害しようとした。

爆発の威力は強く、体に負ったダメージは深刻だったが、先住民に助けられ、辛うじて一命を取りとめた。

歩き回れるくらいまで回復したので、先住民が巻き添えを食らうのを避けようと、こっそり村から逃げ出そうとするが、犬が襲ってきて見つかってしまう。断って村を出るが、社長の手下はフォレストの服を見つけ、匿った長老が銃で撃たれた。

フォレストが駆けつけると、長老は御守りを渡し息が絶えた。


フォレストは長老の娘マー・スーと共に、まずパーマーの家へ行き、証拠品であるフロッピーと手帳を見つけた。
その直後、社長の手下から襲撃に遭い、殲滅する。

社長はフォレストを殺害するため傭兵を雇った。傭兵はフォレストの素性や経歴を調べるが、厄介なことに過去が伏せられていて見つける事が出来ない。

フォレストは罠を仕掛け、次々と襲ってくる傭兵を返り討ちにし、石油プラントに乗り込み、所々に爆弾を仕掛ける。

フォレストに恐れをなし、傭兵・手下・従業員は次々に逃げ出し、社長一人となってしまった。フォレストを目の前に「今だったら許してやる!」と交渉を持ちかけるが・・・。

石油プラントは仕掛けられた爆弾により壊滅した。

最後にフォレストは環境保護を訴える演説をする。

カテゴリー: アクション, 映画 | コメントする

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



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

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

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

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



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

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

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


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

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