エクセルでライフゲームをつくりたい

Question

前提・実現したいこと

the game of life をエクセルで実行しようと考えています

発生している問題・エラーメッセージ

うまく動きません

該当のソースコード

Sub life_game()
On Error Resume Next

Dim x1 As Integer
Dim x2 As Integer
Dim x3 As Integer
Dim x4 As Integer
Dim x5 As Integer
Dim x6 As Integer
Dim x7 As Integer
Dim x8 As Integer

For i = 2 To 10
For j = 2 To 10
x1 = Range("Cells(i,j)").Offset(-1, -1)
x2 = Range("Cells(i,j)").Offset(-1, 0)
x3 = Range("Cells(i,j)").Offset(-1, 1)
x4 = Range("Cells(i,j)").Offset(0, -1)
x5 = Range("Cells(i,j)").Offset(0, 1)
x6 = Range("Cells(i,j)").Offset(1, -1)
x7 = Range("Cells(i,j)").Offset(1, 0)
x8 = Range("Cells(i,j)").Offset(1, 1)

Dim wa As Integer

wa = x1 + x2 + x3 + x4 + x5 + x6 + x7 + x8

If wa = 3 Then '誕生
Range("Cells(i,j)") = 1
End If
If (wa = 2 Or 3) And (Range("A1") = 1) Then '生存
Range("Cells(i,j)") = 1
End If
If (wa <= 1) Or (wa >= 4) Then '死滅（過疎か過密）
Range("Cells(i,j)") = 0
End If
Next j
Next i

End Sub

補足情報（FW/ツールのバージョンなど）

0 1 1 0 1 0 1 0 1 0
1 0 1 0 1 0 1 0 0 1
1 0 1 0 1 0 1 1 0 1
1 0 0 1 0 1 0 0 1 0
1 1 0 1 0 1 0 1 1 1
1 1 1 0 1 1 0 1 0 1
1 1 0 1 0 1 0 1 0 1
0 1 0 1 0 1 0 1 1 1
1 1 0 1 1 1 0 1 0 1
1 0 1 0 0 1 0 1 1 1
1 1 1 0 1 1 0 1 0 1

エクセルのセルにはこのように予め入力されています

Answer 1

Range("Cells(i,j)") は Cells(i,j)
wa = 2 Or 3 は wa = 2 Or wa = 3

2面持つ代わりに配列に退避して計算。
正しい仕様をよく知らないけど、たぶんこんな感じ？

Sub life_game()
    'On Error Resume Next
    
    Dim x1 As Integer
    Dim x2 As Integer
    Dim x3 As Integer
    Dim x4 As Integer
    Dim x5 As Integer
    Dim x6 As Integer
    Dim x7 As Integer
    Dim x8 As Integer
    
    Dim i, j, arr
    
    For i = 2 To 10
    For j = 2 To 10
        arr = Range("A1").Resize(11, 11).Value
        
        x1 = arr(i - 1, j + 0)
        x2 = arr(i - 1, j + 0)
        x3 = arr(i - 1, j + 1)
        x4 = arr(i + 0, j - 1)
        x5 = arr(i + 0, j + 1)
        x6 = arr(i + 1, j - 1)
        x7 = arr(i + 1, j + 0)
        x8 = arr(i + 1, j + 1)
        
        Dim wa As Integer
        
        wa = x1 + x2 + x3 + x4 + x5 + x6 + x7 + x8
        
        If wa = 3 Then  '誕生
            Cells(i, j) = 1
        End If
        If (wa = 2 Or wa = 3) And (arr(1, 1) = 1) Then '生存
            Cells(i, j) = 1
        End If
        If (wa <= 1) Or (wa >= 4) Then '死滅（過疎か過密）
            Cells(i, j) = 0
        End If
    Next j
    Next i

End Sub

Comments

[jhv]

成功しました、ありがとうございます

Answer 2

なんか、1面でやろうとしているようですが、Lifeゲームをやるには、2面必要です。
1面目を参照して2面目を作成して、2面目全体を一斉に1面目に上書きする。

プログラムでやる場合は、全画面コピーで無く、オブジェクトの差し替え（Cだとポインターの付け替え）で行うことが多いでしょう。Excelならシート名を付け替えてフォーカスを変えるのでしょうか。

Comments

[jhv]

回答ありがとうございます。参考にします