解答例
Private Sub CommandButton1_Click()
・
・
・
Dim s As Byte, a As Byte
v = 1
For i = 0 To 8
a = i Mod 3
s = Int(i / 3)
v = v * CLng(Cells(7 + a, 9 + s))
Next
Cells(17, 9) = "第１ブロック"
If v = CLng(1) * CLng(2) * CLng(3) * CLng(4) * CLng(5) * CLng(6) * CLng(7) * CLng(8) * CLng(9) Then Cells(17, 12) = "○" Else Cells(17, 12) = "×"
End Sub
Private Sub CommandButton2_Click()
Range("A13:F16").Select
Selection.ClearContents
Range("G7:G12,I16:Q17,R7:R15").Select
Selection.ClearContents
Range("A1").Select
End Sub
参考ファイル
では同様にすべてのブロックを判定できるようにしてください。
