EXCEL VBA While Wendの使い方（ループ）

While Wend の使い方

Sub While_Wend()

　　Dim I, G As Integer

    I = 1               '初期値　I = １
    G = 0               '合計値　G = ０
        While I <= 10   'Iが10以上になるまで繰り返す。※（繰り返し条件）
           G = G + I    'Iの値をG（合計値）に加算する。
           I = I + 1    'Iの値に＋１を加算する。※この式を入れないと繰り返し条件が終了しない。
        Wend
        
    MsgBox G

End Sub

Sub While_Wend2()

    Dim I, Gokei As Long

    I = 4               '初期値　I = 4
    Gokei = 0           '合計値　G = ０
    
    
        While I < 14     'Iが14を超えるまで繰り返す。※（繰り返し条件）
        
           Gokei = Gokei + Cells(I, "E") '売上値を加算する。
        
           I = I + 1    'Iの値に＋１を加算する。※この式を入れないと繰り返し条件が終了しない。
            
        Wend
        
    Cells(I, "E") = Gokei '売上の合計値

End Sub

Sub While_Wend3()

    Dim I, L, Gokei As Long
    Dim tName As String

    I = 4               '初期値　I = 4
    Gokei = 0           '合計値　G = ０
    
        While I < 14     'Iが14を超えるまで繰り返す。※（繰り返し条件）
        
           Gokei = Gokei + Cells(I, "E") '売上値を加算する。
           
           Select Case Cells(I, "D") '担当者名セットする。
                Case Is = Range("D20")  '佐藤さんを集計
                        Range("E20") = Range("E20") + Cells(I, "E")
                Case Is = Range("D21")  '鈴木さんを集計
                        Range("E21") = Range("E21") + Cells(I, "E")
                Case Is = Range("D22")  '田中さんを集計
                        Range("E22") = Range("E22") + Cells(I, "E")
                Case Else
                        MsgBox "集計対象外の担当者が登録されています"
          End Select
        
           I = I + 1    'Iの値に＋１を加算する。※この式を入れないと繰り返し条件が終了しない。
            
        Wend
        
    Cells(I, "E") = Gokei '売上の合計値（表の合計）
    Cells(I + 9, "E") = Gokei '売上の合計値(担当者別合計)

End Sub