元のプロシージャーを取得するプロパティ

質問

Sub test1()

Call test2

End Sub
Sub test2()

If ?? Then
MsgBox "test1から実行されたマクロです。"
End If

End Sub

上記のコードで
どこから実行されたプロシージャ化を取得する方法はありますか？

現在は、
Dim bl_test1_yes As Boolean
Sub test1()

bl_test1_yes = True
Call test2(bl_test1_yes)

End Sub
Sub test2(bl_test1_yes)

If bl_test1_yes = True Then
MsgBox "test1から実行されたマクロです。"
End If

End Sub

としていますが、
元のプロシージャーを取得するプロパティがあれば教えてください。

回答No.1

imogasi · ベストアンサー

Sub test1()
a = "test1"
Call test2(a)
End Sub
'---
Sub test2(b)
If b = "test1" Then
MsgBox "test1から実行されたマクロです。"
End If
End Sub
ーーー
ｃａｌｌｅｒのようなものが無いようですね。
あまり必要がないらしく解説も少ない。
（もしＶＢＡ程度なら、１つのサブルーチンを複数から呼び出して、呼び出し元からによって、処理を変えるというような処理は余り使われないようです。
本格的なＶＢ。ＮＥＴやＪＡＶＡの世界では便利で必須の技なのかもしれないですね）
ーーー
http://okwave.jp/qa/q2282372.html
に、似たような質問があった。
ーー
http://homepage1.nifty.com/rucio/main/dotnet/Samples/dnSampleGetPrevMethodName.htm
イベント、フォーム、コントロール関連
ーー
参考
http://okwave.jp/qa/q7641753.htmlのＮＯ。３
ーー
この質問が、ＶＢＡ程度の関連か、もっと一般の言語の高級な質問なのか書いておいてほしかった。ＶＢ関連らしいが、ＶＢ関連とさえ書いてない。
ＡＰＩの世界には、呼び出し元を手繰る関数（ＡＰＩ）があると思うが、首を突っ込んでないので分からない。
（処理が終わると、呼び出し元へ帰らなければならないから、絶対その情報はどこかにあるはず。小生がなんでこんなことに苦労するのだろうと思った。）

お礼

回答頂きありがとうございました。