EXCEL VBA Goto ステートメント（行ラベル・行番号）指定ラベルへジャンプ

EXCEL VBA Goto ステートメント（行ラベル・行番号）指定ラベルへジャンプ

'
'
Sub Goto00() 'Gotoの使い方

    
    Dim A As Long
    
    A = InputBox("１～1000の間の数値を入力してください")
        
        If A <= 500 Then
                GoTo Jump02  '入力した数値が500以下の場合は、Jump02へ
            Else
                GoTo Jump01  '入力した数値が500を超える場合は、Jump01へ
        End If
       
    
Jump01:
    
       Range("A1") = 500    'セルA1に500を代入
       
       A = A - 500  'Aの値から500を引く
       
Jump02:

        Range("A2") = A  'A値をセルA2へ代入

End Sub
’

Gotoステートメントを利用してデータを集計（Gotoでループ処理）

'
'''******** AKIRA55.COM ******* https://akira55.com/goto/
'
Sub Goto01() 'Gotoを利用したループ・データ集計

    Dim I, Total As Long
       
    Total = 0  '合計値を０にする。
    I = 1

Loop01:
    

    If Cells(I, "C") = "" Then
                GoTo Jump01  '空白セルでループから抜ける。
    
    ElseIf IsNumeric(Cells(I, "C")) Then  'セルの値が数値が調べる。
                Total = Total + Cells(I, "C")  'C列の数値セルを加算します。
    
    End If
    
    I = I + 1  '＋１で行を加算します。
    
    GoTo Loop01  'Gotoでループします。

Jump01:

    Cells(I, "B") = "合計"
    Cells(I, "C") = Total  'C列の最終行に合計値を表示
    

End Sub
'

Gotoステートメントを利用して条件に応じてジャンプ（行ラベルを実行）

'
'''******** AKIRA55.COM ******* https://akira55.com/goto/
'
Sub Goto02()  'Gotoを利用して条件によりジャンプする。

   
    Dim RND_int  As Integer
    
    RND_int = WorksheetFunction.RandBetween(1, 5) '1～５の数字をランダム発生します。
   
    Select Case RND_int
        Case Is = 1
            GoTo RND1:  '１の場合は、RND１へジャンプ
        Case Is = 2
            GoTo RND2:  '２の場合は、RND２へジャンプ
        Case Is = 3
            GoTo RND3:  '３の場合は、RND３へジャンプ
        Case Is = 4
            GoTo RND4:  '４の場合は、RND４へジャンプ
        Case Is = 5
            GoTo RND5:  '５の場合は、RND５へジャンプ
    End Select
            
   
RND1:
    MsgBox "おめてどう大吉です。"  'メッセージボックスで表示し終了
    Exit Sub
RND2:
    MsgBox "欲しい中吉です。"  'メッセージボックスで表示し終了
    Exit Sub
RND3:
    MsgBox "まあまあ小吉です。"  'メッセージボックスで表示し終了
    Exit Sub
RND4:
    MsgBox "次回にチャンス吉です。"  'メッセージボックスで表示し終了
    Exit Sub
RND5:
    MsgBox "残念ながら凶です。"  'メッセージボックスで表示し終了
    Exit Sub

End Sub
'

Gotoステートメントを利用して複数（４種類）の処理プログラムを複数条件（１５種類）に応じてジャンプ（行ラベルを実行）

'
'''******** AKIRA55.COM ******* https://akira55.com/goto/
'
Sub Goto03()   'Gotoを利用して４種類の処理と１５種類の複数条件によりジャンプする。

    Dim Bit_int  As Integer
    
Start:
    Range("A2:A5").Clear 'A2～A5の範囲の文字列・背景色をクリアー
    
    Bit_int = InputBox("１～15の間の数値を入力してください")
   
    If Bit_int < 1 Or Bit_int > 15 Then
        GoTo End_Bit
    End If
    
Top:
    Select Case Bit_int
        Case Is >= 8
            GoTo Bit4:  '８以上の場合は、Bit４へジャンプ
        Case Is >= 4
            GoTo Bit3:  '４以上の場合は、Bit３へジャンプ
        Case Is >= 2
            GoTo Bit2:  '２以上場合は、Bit２へジャンプ
        Case Is = 1
            GoTo Bit1:  '１の場合は、Bit１へジャンプ
    End Select
    
   MsgBox "発行処理されました"
    
   GoTo Start:
   
Bit1: '処理①
    Range("A2") = "Gotoトラベル" '
    Range("A2").Interior.ColorIndex = 4
    Bit_int = Bit_int - 1
    GoTo Top:
    
Bit2:  '処理②
    Range("A3") = "Gotoイート"    '
    Range("A3").Interior.ColorIndex = 8
    Bit_int = Bit_int - 2
    GoTo Top:

Bit3:  '処理③
    Range("A4") = "Gotoキャンペーン"   '
    Range("A4").Interior.ColorIndex = 17
    Bit_int = Bit_int - 4
    GoTo Top:
    
Bit4:  '処理④
    Range("A5") = "Goto地域共通クーポン"   '
    Range("A5").Interior.ColorIndex = 40
    Bit_int = Bit_int - 8
    GoTo Top:


End_Bit:

    MsgBox "入力した数値の範囲が１～１５の範囲外です。"

End Sub
'