解答例
Private Sub CommandButton1_Click()
・
・
・
Dim v As Long
v = 1
For i = 0 To 8
v = v * CLng(Cells(7 + i, 9))
Next
If v = CLng(1) * CLng(2) * CLng(3) * CLng(4) * CLng(5) * CLng(6) * CLng(7) * CLng(8) * CLng(9) Then Cells(16, 9) = "○" Else Cells(16, 9) = "×"
End Sub
Private Sub CommandButton2_Click()
Range("A13:F16").Select
Selection.ClearContents
Range("G7:G12,I16").Select
Selection.ClearContents
Range("A1").Select
End Sub
ピンクが変更部分
参考ファイル
それではさらに改良して
すべての列・行のチェックをしてください。
