Private Sub CommandButton1_Click()
Dim w As Byte, i As Byte, h As Byte
h = 1
w = 0
For i = 0 To 5
w = w + Cells(7 + i, 1)
Next
If w <> Int(6 * (6 * 6 + 1) / 2) Then h = 0
Cells(13, 1) = w
w = 0
For i = 0 To 5
w = w + Cells(7 + i, 2)
Next
If h = 1 Then If w <> Int(6 * (6 * 6 + 1) / 2) Then h = 0
Cells(13, 2) = w
w = 0
For i = 0 To 5
w = w + Cells(7 + i, 3)
Next
If h = 1 Then If w <> Int(6 * (6 * 6 + 1) / 2) Then h = 0
Cells(13, 3) = w
w = 0
For i = 0 To 5
w = w + Cells(7 + i, 4)
Next
If h = 1 Then If w <> Int(6 * (6 * 6 + 1) / 2) Then h = 0
Cells(13, 4) = w
w = 0
For i = 0 To 5
w = w + Cells(7 + i, 5)
Next
If h = 1 Then If w <> Int(6 * (6 * 6 + 1) / 2) Then h = 0
Cells(13, 5) = w
w = 0
For i = 0 To 5
w = w + Cells(7 + i, 6)
Next
If h = 1 Then If w <> Int(6 * (6 * 6 + 1) / 2) Then h = 0
Cells(13, 6) = w
w = 0
For i = 0 To 5
w = w + Cells(7, 1 + i)
Next
If h = 1 Then If w <> Int(6 * (6 * 6 + 1) / 2) Then h = 0
Cells(7, 7) = w
w = 0
For i = 0 To 5
w = w + Cells(8, 1 + i)
Next
If h = 1 Then If w <> Int(6 * (6 * 6 + 1) / 2) Then h = 0
Cells(8, 7) = w
w = 0
For i = 0 To 5
w = w + Cells(9, 1 + i)
Next
If h = 1 Then If w <> Int(6 * (6 * 6 + 1) / 2) Then h = 0
Cells(9, 7) = w
w = 0
For i = 0 To 5
w = w + Cells(10, 1 + i)
Next
If h = 1 Then If w <> Int(6 * (6 * 6 + 1) / 2) Then h = 0
Cells(10, 7) = w
w = 0
For i = 0 To 5
w = w + Cells(11, 1 + i)
Next
If h = 1 Then If w <> Int(6 * (6 * 6 + 1) / 2) Then h = 0
Cells(11, 7) = w
w = 0
For i = 0 To 5
w = w + Cells(12, 1 + i)
Next
If h = 1 Then If w <> Int(6 * (6 * 6 + 1) / 2) Then h = 0
Cells(12, 7) = w
w = 0
For i = 0 To 5
w = w + Cells(7 + i, 1 + i)
Next
If h = 1 Then If w <> Int(6 * (6 * 6 + 1) / 2) Then h = 0
Cells(14, 3) = "右下がり対角線合計 "
Cells(14, 6) = w
w = 0
For i = 0 To 5
w = w + Cells(7 + i, 6 - i)
Next
If h = 1 Then If w <> Int(6 * (6 * 6 + 1) / 2) Then h = 0
Cells(15, 3) = "右上がり対角線合計 "
Cells(15, 6) = w
If h = 1 Then Cells(16, 4) = "この方陣は魔方陣です。" Else Cells(16, 4) = "この方陣は魔方陣ではありません。"
End Sub
Private Sub CommandButton2_Click()
Range("A13:F16").Select
Selection.ClearContents
Range("G7:G12").Select
Selection.ClearContents
Range("A1").Select
End Sub
参考ファイル
さて、それではいよいよ
例２が正しい数独であるか検証するプログラムの開発に着手しましょう。
手始めに、今回のプログラムをさらに改良して、
I列が数独の条件（１から９までが一つずつ入っている)を満たしていたら、
とＩ16に○と表示させるようにしましょう。
条件判定にはＩ7からＩ15までの積が
１×２×３×４×５×６×７×８×９
に等しいかを調べれば良いわけです。
ただし、この積の答え362880はＩｎｔｅｇｅｒ型の範囲を超えるので、
用意する変数は、Ｌｏｎｇ型です。
さらに、その変数にCells(7, 9)などをかけていくわけですが、
セルの数字をＬｏｎｇ型にキャストしておく必要があります。
Ｌｏｎｇ型へのキャストはCLng(*)を使います。
CLng(*)で*がＬｏｎｇ型にキャストされるのです。
さらに、Ｉｆ文の条件式に1*2*3*4*5*6*7*8*9も出てきますが、
大変面倒ですが、一つ一つをCLng(1)などとLong型にキャストして、
CLng(1) * CLng(2) * CLng(3) * CLng(4) * CLng(5) * CLng(6) * CLng(7) * CLng(8) * CLng(9)
としないと、
オーバーフローします。
実は第７講で学ぶ配列を使えば、
Long型の変数など用意しないで、
Byte型の変数で容易に判定できるのですが、
配列を学んでいない現段階では、
次善の策といえます。
