X~Yまでの総和を求めるプログラムを作りたいです。逆から求めるプログラムも作らなければいけません。Exit Sub は使えません。大きい数から小さい数を求める際に反応しません。どうしたらいいですか?
2つのテキストボックスに数を入力して、3つ目のテキストボックスに総和を表示させたいです。
Access VBA
Private Sub btnWa_Click()
Dim lX As Long
Dim lY As Long
Dim lS As Long
Dim i As Long
Dim lSouwa As Long
lX = txtX.Value
lY = txtY.Value
If lX > lY Then
lS = -1
Else: lS = 1
lSouwa = 0
For i = lX To lY Step lS
lSouwa = lSouwa + i
Next i
txtSouwa.Value = lSouwa
End If
End Sub