第１話課題
第７講の最後に作ったマクロ
Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Cells(6, 2)
b = Cells(7, 2)
c = Cells(8, 2)
Call wa(a, b, c)
End Sub
Private Sub CommandButton2_Click()
Range("B6:B9").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
Sub wa(x As Integer, y As Integer, z As Integer)
Cells(9, 2) = x + y + z
End Sub
→
→（実行ボタン）
Functionプロシージャによる書き換え解答例
Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Cells(6, 2)
b = Cells(7, 2)
c = Cells(8, 2)
Cells(9, 2) = wa(a, b, c)
End Sub
Private Sub CommandButton2_Click()
Range("B6:B9").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
Function wa(x As Integer, y As Integer, z As Integer)
wa = x + y + z
End Function
では次の課題です。マクロ
Private Sub CommandButton1_Click()
Dim w As Long, i As Byte
w = 0
For i = 1 To 10
w = w + i
Next
Cells(6, 1) = "１から１０までの和"
Cells(6, 3) = w
w = 1
For i = 1 To 10
w = w * i
Next
Cells(7, 1) = "１から１０までの積"
Cells(7, 3) = w
End Sub
Private Sub CommandButton2_Click()
Rows("6:200").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
をFunctionプロシージャを使って、書き換えましょう。
第１話へ 第３話へ
vc++講義へ
