宏过程内显示出该宏的名称

xdwy81129

如题
如果某个模块里面的宏有
sub aaaa()
...
end sub

希望在该过程中显示出该过程的名称 即msgbox “aaa”

如果宏的名称是 sub 请教
则msgbox 弹出的是 msgbox “请教”

谢谢解答

zxc1152468

对啊就用msgbox啊

zxc1152468

后面加"宏过程名称啊"

豆丁

见附件里的代码

游客，如果您要查看本帖隐藏内容请回复

sunjing-zxl

没怎么看懂啊

放浪形骸

就是显示过程名

fjmxwrs

呵呵，学习下，既然知道是在哪个宏下运行的，
直接
Sub aa()
    MsgBox aa
End Sub

Sub 快来()
    MsgBox 快来
End Sub

学习了豆丁老师的代码，不对呀，我新建一个宏，运行结果还是你原来的宏名。

xdwy81129

回复 豆丁 的帖子

不对呀，不能适用一切的过程呀

吕?布

要这样动态取得过程的名称感觉比较难，因为代码很难知道程序运行到了哪一行


Function GetProcName() As String
' 只适用于从VBE里直接运行,得到的是光标所在位置的过程名称
    Const vbext_pk_Proc As Long = 0    ' 也可以改为引用Microoft Visual Basic for Application Extensibility x.x
    Dim m As Long, n As Long, x As Long, y As Long
    Application.VBE.ActiveCodePane.GetSelection m, n, x, y  ' 取得选定区(光标所在)
    GetProcName = Application.VBE.ActiveCodePane.CodeModule.ProcOfLine(m, vbext_pk_Proc)  '取得过程名称
End Function

Sub Test1()
    MsgBox GetProcName
End Sub

Sub Test2()
    MsgBox GetProcName
End Sub
Sub Test3()
    MsgBox GetProcName
End Sub

xdwy81129

回复 吕?布 的帖子

这个适用的是光标所在的过程，希望可以做到适用从按钮执行的所有任何宏。

谢谢吕布的耐心解答，再期待看看