第４話 初項、末項、公差のすべてを引数として送る
を実現するプログラム例
Private Sub CommandButton1_Click()
CommandButton2_Click '社員CommandButton2_Clickに仕事を依頼
Dim a As Byte, b As Byte, c As Byte
a = Cells(3, 3)
b = Cells(4, 3)
c = Cells(5, 3)
Call f(a, b, c) '社員fに仕事を依頼した
End Sub
Sub f(a As Byte, l As Byte, d As Byte)
Dim w As Integer, i As Byte
w = 0 'wを0に初期化
For i = a To l Step d
w = w + i
Next
Cells(6, 2) = w
Cells(7, 2) = "です。"
End Sub
Private Sub CommandButton2_Click()
Rows("6:2000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
さて、皆さん今回のコードを
Private Sub CommandButton1_Click()
CommandButton2_Click '社員CommandButton2_Clickに仕事を依頼
Dim x As Byte, y As Byte, z As Byte
x = Cells(3, 3)
y = Cells(4, 3)
z = Cells(5, 3)
Call f(x, y, z) '社員fに仕事を依頼した
End Sub
Sub f(a As Byte, l As Byte, d As Byte)
Dim w As Integer, i As Byte
w = 0 'wを0に初期化
For i = a To l Step d
w = w + i
Next
Cells(6, 2) = w
Cells(7, 2) = "です。"
End Sub
Private Sub CommandButton2_Click()
Rows("7:2000").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
と変更したら正常に作動するでしょうか。
第３話へ 第５話へ
