Workbook

質問

次のプログラムをExcelのWorkbookで開くやり方がよくわかりません。
どうやってやるのか教えていただけないでしょうか？

Option Explicit

Const ALIVE As Integer = 1
Const DEAD As Integer = 0
Const BORN As Integer = 3
Const LIFE As Integer = 2

Const SIZE As Integer = 20
Const Tmax As Integer = 100

Dim C(SIZE, SIZE) As Integer
Dim Xrange As Variant

Private Sub LifeGame()
Dim InitRate As Single
Dim T As Integer

Dim I As Integer, J As Integer

Randomize
Xrange = Range("A1:T20")

InitRate = 0.5

For I = 1 To SIZE
For J = 1 To SIZE
If Rnd() < InitRate Then
C(I, J) = ALIVE
Else
C(I, J) = DEAD
End If
Next J
Next I

For T = 1 To Tmax

For I = 1 To SIZE
For J = 1 To SIZE
If C(I, J) = ALIVE Then
Xrange(I, J) = "■"
Else
Xrange(I, J) = ""
End If
Next J
Next I

Range("A1:T20") = Xrange

For I = 1 To SIZE
For J = 1 To SIZE
C(I, J) = Cnext(I, J)
Next J
Next I

Next T

End Sub

Function Cnext(I As Integer, J As Integer) As Integer
Dim xi As Integer
Dim xj As Integer
Dim xsum As Integer

For xi = I - 1 To I + 1
For xj = J - 1 To J + 1
If (xi > 0 And xi <= SIZE) _
And (xj > 0 And xj <= SIZE) Then
If Not (xi = I And xj = J) Then
If C(xi, xj) = ALIVE Then
xsum = xsum + 1
End If
End If
End If
Next
Next

Select Case xsum
Case BORN
Cnext = ALIVE
Case LIFE
Cnext = C(I, J)
Case Else
Cnext = DEAD
End Select

End Function

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Call LifeGame
End Sub

回答No.1

sppla · ベストアンサー

動作検証までするのは面倒なのでとっかかりを軽く説明だけします。
ここまでコードをかけるならExcel VBAのヘルプで自分である程度調べることもできると思いますし。
（昔Excel VBAを書いた時の知識ですが、今もまだ通用すると思います）

Excelの場合にはオブジェクトの階層が
Workbook ⇒ WorkSheet ⇒ RangeやCell　のような階層となっています。
「Xrange = Range("A1:T20")」のようにいきなりRangeオブジェクトを操作するのではなく、その前にどこのWorkbookであるか？どこのWorkSheetであるかを指示してやる必要があります。

そのためRangeを操作する前にWorkbook、Worksheetを例えば下記のように指定します。

Dim ws As Excel.Worksheet
Set ws = ThisWorkbook.Worksheets("SHEET_A")
ws.Range("A1", "D4").Clear

この例で現在のワークブック（ThisWorkbook）の中のシート「SHEET_A」のセル範囲（Range）A1～D4の内容を消去するケースです。
Workbookは書き方によっては別ファイルを指定することも当然できます。（これで私は各社員から提出させたExcelワークブックの集計などを行っています）

後は　Dim Xrange As Variant　となっていますが、Xrange(I, J) = "■"　のように使っているところを見ると、これはExcelの特定のセルを操作しようとしているのですよね？
その場合にはRangeオブジェクトよりCellオブジェクトにした方がいいと思います。
CellオブジェクトはCell(y,x)のような感じでx,yに数値を入れて特定のセルを指示します。
（この辺りヘルプで確認していただきたいですが、私のうろ覚えの記憶ではy座標が先だった気がします。また添え字が0で始まっているか1で始まっているかは覚えていません・・・私もテストの際に確認しながらやることが多いです）

Cellを操作するなら、先ほどのコードでワークシートを定義してあれば、たぶん
ws.Cell(y,x) = "■" のような感じで使えると思います。
（もしくは ws.Cell(y,x).value = "■" だったかも・・・）

Office系のVBAではオブジェクト同士の階層構造がポイントになります。ヒントになれば幸いです。

お礼

詳しく教えていただきありがとうございました。
とても参考になりました。

回答No.2

sppla

No1です。
少し訂正です。

今日たまたま職場でExcel VBAのプログラムを書いたのですが Cell(y,x) ではなく Cells(y,x) が正しいです。