Exit Subについて

くま 2004-11-09 01:20:36 No: 117440

標準モジュールの関数から呼び出しもとのプロシージャの処理を抜けるようにExit Subを使う方法はあるのでしょうか？Exit Function関数を抜けと Exit Subプロシージャを抜ける二重の処理をしている状況でを直したいです

ミッション 2004-11-09 01:38:52 No: 117441

ちょっと質問の意図がわからないですが
私の理解が正しければ、ないです。
2重の処理とは？
ソースを掲示していただくと答えやすいのですが。

熊 2004-11-09 01:51:19 No: 117442

このような感じです

Private Sub Command1_Click()

    Call module1.Yobareru(2)

    Exit Sub

    ＊
    ＊
    ＊



End Sub

Private Function Yobareru(a As Integer)

    If a = 2 Then

    Exit Function

    'ここでいっぺんに呼び出しもとのプロシージャの処理を抜けたい

End Function

ミッション 2004-11-09 02:01:46 No: 117443

Functionにしてるんだから戻り値を入れればOKでは？
Private Sub Command1_Click()
if Yobareru(2)=2 then Exit sub
End Sub

Private Function Yobareru(a As Integer) as Integer
    If a = 2 Then
    Yobareru=a
    Exit Function

    'ここでいっぺんに呼び出しもとのプロシージャの処理を抜けたい

End Function