

X～Yまでの総和を求めるプログラムを作りたいです。逆から求めるプログラムも作らなければいけません。Exit Sub
は使えません。大きい数から小さい数を求める際に反応しません。どうしたらいいですか？  
2つのテキストボックスに数を入力して、3つ目のテキストボックスに総和を表示させたいです。

**Access VBA**

[code]

    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
    
[/code]


CC BY-SA 4.0
2018-12-08T07:15:14.200
51030
2020-08-19T02:02:17.340
2020-08-19T02:02:17.340
3060
31164
question
vba ms-access
逆から総和を求めるプログラムが上手くいきません

[code]

    If 条件 Then
        条件が真のときの処理
    Else
        条件が偽のときの処理
    End If
    
[/code]

IF文は上記のように条件分岐を行うので、  
lX > lYの場合、lS = -1のみが実行され  
その他の場合は、ElseからEnd Ifまでの処理が実行されます。

lSの値を設定するための条件分岐であれば  
Else: lS = 1の次の行にEnd Ifを移動すればよいと思います。


CC BY-SA 4.0
2018-12-13T03:49:11.370
51161
2018-12-13T03:49:11.370
13314
51030
answer