Exit Subについて

---

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

編集 削除

---

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

編集 削除

---

このような感じです


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

編集 削除

---

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

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。