[已解决]如何用VBA语句实现点击另一个按钮

pubuflash2

点击后，自动调用"按钮 1"的宏语句，实现与call调用一样的结果，但因特殊情况，我不想用call
注：按钮是窗体制件的命令按钮，不是控件工具箱的命令按钮。
Sub cc()
Set wk = Worksheets("表一")
wk.Object("按钮 1").Click      ‘此句如何修改实现想要的效果
End Sub
谢谢高手了

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-9 08:49

MsgBox ActiveSheet.Shapes("按钮 1").OnAction
显示按钮1的指定宏。

跳转到最佳答案楼层

hwc2ycy

直接调用按钮的CLICK过程嘛。

hwc2ycy

1. Private Sub CommandButton1_Click()
   
2.     Call CommandButton2_Click
   
3. End Sub
   
4. 
   
5. Private Sub CommandButton2_Click()
   
6.     MsgBox "3"
   
7. End Sub

复制代码

hwc2ycy

按钮1调用按钮2的CLICK过程，按钮单击肯定是要执行CLICK过程嘛。

pubuflash2

谢谢各位的关心，我的问题可能有点怪，3楼的有点类似，但我是窗体控件命令按钮，不是CommandButton1按钮
说白了，我的实际情况是：想借用别人的vba程序，但工程密码解不开，我想通过点击工作表按钮运行别人的vba程序后，再运行我植入的vba程序。
只在将别人的vba按钮复制到自已的工作簿中，点击后，将打开原程序所在工作簿，并自动运行程序。
小程序转手多次，不知作者。

pubuflash2

问题的关键是解不开工程密码，想变通借用别人的vba，因不能打开工程模块，故不知宏的名称，当然不能用call语句调用了
命令按钮是通过EXCEL视图－工具栏－窗体中的命令按钮，而不是视图－工具栏－控件工具箱的CommandButton按钮，有区别的。

hwc2ycy

既然是03，你就右键，指定宏就知道宏名了嘛，再用CALL来调用宏。
当然，要注意宏所在的模块了。

hwc2ycy

只有ACTIVEX控件才用CLICK

hwc2ycy

hwc2ycy

MsgBox ActiveSheet.Shapes("按钮 1").OnAction
显示按钮1的指定宏。