[已解决]点击按钮a1工作簿1和工作簿2中所有工作表里的按钮代码都能先后自动运行

ymq123

在工作簿1工作表1中点击按钮a1，工作簿1和工作簿2中所有工作表里的按钮代码都能先后自动运行，用VBA能编写出这些代码吗？若能，请帮助编写。（附件里只举例子，若工作簿、工作表、按钮都比较多，代码较长，这样可以减少点击次数。这道题是我想出的，不知是否符合实际。）谢谢！

最佳答案

月排行榜 / 总排行榜

货币学派

2013-7-21 22:25

附加

跳转到最佳答案楼层

货币学派

宏名称不是 Sub a1_Click()  重建宏去掉后面的 _Click()
直接调用宏

ymq123

货币学派 发表于 2013-7-21 19:42
宏名称不是 Sub a1_Click()  重建宏去掉后面的 _Click()
直接调用宏

麻烦你帮助编写代码。谢谢！

货币学派

我简单写下
Private Sub a1_Click()
Call a1
Call b2
Call c1
Call d2
End Sub

Private Sub a1()
Range("c1") = Range("a1") + Range("b1")
End Sub

Private Sub b2()
Range("c1") = Range("a1") * Range("b1")
End Sub

Private Sub c1()
Workbooks("2.xls").Sheet(1).Range("c1") = Range("a1") - Range("b1")
End Sub

Private Sub d2_()
Workbooks("2.xls").Sheet(2).Range("c1") = Range("a1") / Range("b1")
End Sub

ymq123

货币学派 发表于 2013-7-21 21:04
我简单写下
Private Sub a1_Click()
Call a1

你好：你编写的代码，我试用时不能正常运行。请在附件中编写。谢谢

货币学派

改了下
我以前遇到的情况是原来在一个工作簿里用按钮连接宏 后来要用另外的工作表控制这个宏 开始时直接调用宏名怎么也不行
后来改了这样的方式 倒不是为了你要的这个目的

货币学派

附加