Question

在我的Excel上，我有大约200个链接到显示文本框的按钮。有没有办法只有一个宏，如：

ActiveSheet.Shapes.Range（数组（“TextBox 按钮上的文字 ”）然后让我的所有按钮都指向同一个宏，但返回不同的文本框？

提前致谢，罗布

Answer 1

一些#Rory写道，您可以使用ActiveSheet.Buttons(Application.Caller)所有按钮链接到同一Sub，并且使用select case可以播放一个或另一个代码。我能想到其他解决方案

Sub cmdAction()
    btn = ActiveSheet.Buttons(Application.Caller).Name
    Select Case btn
    Case xxxx
        Do
    Case Else
        Do
    End Select
End Sub

在代码中引用VBA按钮标题

1 个答案: