|
▼Kein さん:
>Sub test()に対応する、呼び出し側マクロのコードは
>
>Sub test2()
> Dim x As Variant
>
> x = Application.Caller
> If VarType(x) <> 8 Then Exit Sub
> Select Case x
> Case "BUTTON1": 'BUTTON1 が押されたときの処理
> Case "BUTTON2": 'BUTTON2が押されたときの処理
> 'Case ?: BUTTON?が押されたときの処理
> End Select
>End Sub
>
>というような感じになります。VarType関数の戻り値が 8 の場合は、マクロを
>登録したオブジェクトの名前(即ち文字列)を返している、と判断します。
>それ以外の例えば、エラー値(VarType = 10)などは「ツール」「マクロ」で
>出てくるダイアログから選んで実行された場合ですから、判定したら即中止、
>とします。それが定石です。
早速のご回答ありがとうございます。
”Application.Caller”で解決しました。
本当に助かりました。
ありがとうございました。
|
|