第２話 While文による１からｎまでの和
を実現するプログラム例
Private Sub CommandButton1_Click()
Dim n As Integer
n = Cells(4, 2)
Cells(4, 5) = f(n)
End Sub
Function f(n As Integer)
Dim w As Integer, i As Integer
i = 0
While i <= n
w = w + i
i = i + 1
Wend
f = w
End Function
Private Sub CommandButton2_Click()
Range("B4,E4").Select
Selection.ClearContents
Range("A1").Select
End Sub
参考ダウンロード添付ファイル
さて、マクロを改善して
を実現しましょう。
ただし、未入力がある場合にはC6に
と表示して、入力を促して下さい。
変化の幅が未入力で実行すると永久ループになります。
