第２話課題
マクロ
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プロシージャによる書き換え解答例
Private Sub CommandButton1_Click()
Cells(6, 1) = "１から１０までの和"
Cells(6, 3) = wa
Cells(7, 1) = "１から１０までの積"
Cells(7, 3) = seki
End Sub
Private Sub CommandButton2_Click()
Rows("6:200").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
Function wa()
Dim w As Long, i As Byte
w = 0
For i = 1 To 10
w = w + i
Next
wa = w
End Function
Function seki()
Dim w As Long, i As Byte
w = 1
For i = 1 To 10
w = w * i
Next
seki = w
End Function
尚、
Function wa()
Dim w As Long, i As Byte
w = 0
For i = 1 To 10
w = w + i
Next
wa = w
End Function
Function seki()
Dim w As Long, i As Byte
w = 1
For i = 1 To 10
w = w * i
Next
seki = w
End Function
は
Function wa()
Dim i As Byte
wa = 0
For i = 1 To 10
wa = wa + i
Next
End Function
Function seki()
Dim i As Byte
seki = 1
For i = 1 To 10
seki = seki * i
Next
End Function
でもOKです。
次の課題です。
エクセルシートを次のようにして
入力して
実行ボタンを押すと、
となるマクロをFunctionプロシージャを使って実現してください。
第２話へ 第４話へ
vc++講義へ
