前話問題解答例
Private Sub CommandButton1_Click()
Dim w As Long, i As Long
w = 1
Dim a As Long, b As Long, c As Long
a = Cells(6, 2)
b = Cells(7, 2)
c = Cells(8, 2)
For i = a To b Step c
w = w * i
Next
Cells(9, 1) = "のときの積"
Cells(9, 2) = w
End Sub
Private Sub CommandButton2_Click()
Range("B6:B8").Select
Selection.ClearContents
Range("A9:B9").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
解説
かけ算の場合w = 1とすることがミソです。
大分お待たせしました。
いよいよ魔方陣そして数独に関する題材を扱うことにしましょう。
参考ファイル をダブルクリックして開いてください。
開く際には、『編集を有効にする』にして、『コンテンツを有効化』してください。
となるように
