第７話 単精度浮動小数点型変数を活用した様々な計算
の解答例
Private Sub CommandButton1_Click()
Dim a As Single, b As Single, c As Single
a = 12
b = 15
c = 8
Cells(6, 1) = "a="
Cells(6, 2) = a
Cells(7, 1) = "b="
Cells(7, 2) = b
Cells(8, 1) = "c="
Cells(8, 2) = c
Cells(9, 1) = "a+b="
Cells(9, 2) = a + b
Cells(10, 1) = "a-b="
Cells(10, 2) = a - b
Cells(11, 1) = "a×b="
Cells(11, 2) = a * b
Cells(12, 1) = "a÷b="
Cells(12, 2) = a / b
Cells(13, 1) = "c="
Cells(13, 2) = c
Cells(14, 1) = "(a+b)×c="
Cells(14, 2) = (a + b) * c
Cells(15, 1) = "a×(b+c)="
Cells(15, 2) = a * (b + c)
Cells(16, 1) = "a×b×c="
Cells(16, 2) = a * b * c
Cells(17, 1) = "a÷b÷c="
Cells(17, 2) = a / b / c
End Sub
最後の行は
Cells(17, 2) = a / b / c
でもよいです。
このプログラムだといちいちプログラムコードをいじらなければなりません。
そこでa、b、cの値は、エクセルのシート側から入れられるように変更して、
簡易計算マクロを作りましょう。
エクセル側のシートに最初から、
と入力しておいて、消去のプログラムは
Private Sub CommandButton2_Click()
Rows("9:20000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
と変更して、９行目以降をクリア対象にしておきます。
つまり、８行目までは消さないように変更したわけです。
そして、エクセルのシートのB6からB8に値を入れて実行ボタンを押すと、
と計算できるようにしたいのです。
皆さん考えてみてください。
