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

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

2015/12/13

GoSub…Return ステートメント

GoSub ステートメントは、指定したラベルのサブルーチンへプログラムの制御を移します。Return ステートメントは、制御を元に戻し、GoSub ステートメントの次の行から実行します。

【構文】

GoSub subroutine
　　statements

subroutine:
　　statements
　　Return

引数・戻り値

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

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

GoSub…Return ステートメント使用例

サンプルVBAソース

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

MyRoutine:
    num = 100 / num
Return
    
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

　

Sub Sample_GoSub()

Dim num

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

If num > 0 Then

GoSub MyRoutine

End If

MsgBox num

Exit Sub

MyRoutine:

num = 100 / num

Return

End Sub

　

実行結果

GoSub ステートメント01

GoSub ステートメント02

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

Tweet

Message コメントをキャンセル

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

関連記事

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

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

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

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

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

GoTo ステートメント GoTo ステートメントは、指定したラベルのサブルーチ …

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

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

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

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

: 引数を可変にする（ ParamArray ）

ParamArray キーワード ParamArray キーワードを使用すると任 …

: ユーザー定義型変数を使う（Type ステートメント）

Type ステートメントを使う Type ステートメントを使うと１つまたは複数の …

: 引数の参照渡し・値渡し（ ByRef, ByVal ）

引数の「参照渡し」と「値渡し」「参照渡し」とはプロシージャに引数として変数を渡 …

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

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

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

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

PREV: 指定したセルへ移動（Goto メソッド）
NEXT: プロシージャ内のサブルーチンへ移動（GoTo ステートメント）