Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

プロシージャ内のサブルーチンへ移動（GoTo ステートメント）

2015/12/13

GoTo ステートメント

GoTo ステートメントは、指定したラベルのサブルーチンへプログラムの制御を移します。

【構文】

GoTo subroutine
　　statements

subroutine:
　　statements

引数・戻り値

subroutine ・・・サブルーチン名を指定します。
statements ・・・実行するステートメントを記述します。

GoSub ステートメントと GoTo ステートメントの違いについて
GoSub ステートメント の場合、指定されたラベルへジャンプした後、もとの処理に戻るのに対して、GoTo ステートメント の場合は、行きっぱなしになります。
（ ※ GoSub…Return ステートメント の詳細に関しては、プロシージャ内のサブルーチンへ移動（GoSub…Return ステートメント）を参照してください。）

GoTo ステートメント使用例

サンプルVBAソース

　
Sub Sample_GoTo()

    Dim num
    num = InputBox("数値を入力してください")
    
    If num > 0 Then
        GoTo MyRoutine
    End If
    MsgBox num
    Exit Sub

MyRoutine:
    num = 100 / num
    MsgBox num

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

　

Sub Sample_GoTo()

Dim num

num = InputBox("数値を入力してください")

If num > 0 Then

GoTo MyRoutine

End If

MsgBox num

Exit Sub

MyRoutine:

num = 100 / num

MsgBox num

End Sub

　

実行結果

GoTo ステートメント01

GoTo ステートメント02

- 構文 GoTo ステートメント, VBA基本, エクセルVBA, 構文

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 繰り返し処理（For…Next ステートメント）

For…Next ステートメントの使い方【構文】 For coun …

: 配列が引数のプロシージャを作成する

配列が引数のプロシージャを作成する【構文】 { Sub | Function …

: プロシージャを呼び出す（Call ステートメント）

プロシージャを呼び出すプロシージャ内から、別のプロシージャを呼び出すには、Ca …

: 省略可能な引数・デフォルト値を設定（ Optional キーワード）

Optional キーワード Optional キーワードを使用するとプロシージ …

: エラー処理（On Error ステートメント / Errオブジェクト）

On Error ステートメントの使い方【構文 1】 On Error GoT …

: プロシージャ内のサブルーチンへ移動（GoSub…Return ステートメント）

GoSub…Return ステートメント GoSub ステートメント …

: With ステートメントを使う

With ステートメントを使う With ステートメントを使うことで、１度指定し …

: 条件分岐 If文（If…Then…Else ステートメント）

If…Then…Else ステートメントの使い方【構文 …

: set ステートメントを使う

Set ステートメントを使う【構文 1】 Dim objectvar [ As …

: 繰り返し処理（Do…Loop ステートメント）

Do…Loop ステートメントの使い方【構文 1】 Do [ Wh …

PREV: プロシージャ内のサブルーチンへ移動（GoSub...Return ステートメント）
NEXT: ブックが共有モードか確認する（MultiUserEditing プロパティ）