を実現するプログラム
Private Sub CommandButton1_Click()
Cells(5, 2) = "３＋５は"
Cells(6, 2) = f(3, 5)
End Sub
Function f(i As Byte, j As Byte)
f = i + j
End Function
Functionプロシージャについては、
渡す値があることが分かりました。
では、Subプロシージャの場合はどうでしょうか。
全く同様に値を渡すことができます。
では、参考ファイル
を開いて
Private Sub CommandButton1_Click()
Dim n As Byte
n = Cells(5, 3)
f (n)
End Sub
Sub f(n As Byte)
End Sub
を改良して
を実現するプログラムを考えてください。
