VBA Excelコールと実行中のバックトラッキング

Question

私はブック全体をさまざまなサブシステムで作成しています。たとえば、ユーザーが誤ってシートのコードを消去しているサブミットを回避するために、代わりにすべてのサブプライベートをプライベートにします。

私のサブシステムは、ワークシート上のボタンをクリックすることによってのみアクティブ化することができ、すべてが意図したとおりに動作します。私の下位部署が、もちろん別のモジュールのプライベートサブを呼び出そうとするまで。この問題を回避するには

は、私が働いても、私は私が必要とするいくつかの柔軟性を与える前のサブから「NextSub」変数に呼び出すことができますApplication.RunではなくCallを使用し、明らかにカントはCallを取得します。

例：

Sub FirstSub() 
*Something going on 
Application.Run "SecondSub", SomeVariableSub 
End sub 

Sub SecondSub(Nextsub as String) 
If something Then 
    *Do something 
    Application.Run NextSub 
Else 
    Application.Run NextSub 

私はApplication.Runはすべて私の問題を解決したと思ったが、私は順番にサブと呼ばれるのErrorHandlerと呼ばれるラインを、持っていました。それは、私がCallを使用したときのようにエラーハンドラを含むサブプログラムにプログラムがもう戻って戻ってこないようです。

Applciation.Runはこの機能を中断しますか？はいの場合は、Callに変数NextSubを使用してもよろしいですか？そして、もし私がCallをそのように使うことができないのであれば、影響を受けたサブシステムにOn Error GoTo ErrorHandlerを追加することでこれはすべて修正されますか？

モジュール間でプライベートサブセットを呼び出すことはおそらく非常に悪いことではありますが、私が始めたときにはそれほど新しいことでしたが、プロジェクトは広範囲であり、コードをすべて書き直すことなく修正できませんでした。

Answer 1

代わりに、すべての潜水艦はプライベート作るの

、各モジュールの上に置くオプションプライベートモジュールのいずれか、または各ルーチンへの仮引数を追加：私はあなたがしようとしている理解していれば

Sub SomeHiddenRoutine(bDummy As Boolean = False) 
 
    'Routine can be called as usual using: 
 
    SomeHiddenRoutine 
 
End Sub

Answer 2

を文字列で指定された関数を呼び出す。 `コールが

Sub CallFunction(FuncName As String) 
    Select Case FuncName 
    Case "Func1": Func1 
    Case "Func2": Func2 
    Case "Func3": Func3 
    End Select 
End Sub