[已解决]求助，如何制作一个按钮，执行10个代码

ksgbds

一个工作表内，有10个宏代码，怎样实现，用制作一个按钮，执行10个代码

最佳答案

月排行榜 / 总排行榜

lzclzch

2012-7-2 00:30

这样行不行

跳转到最佳答案楼层

lzclzch

这样行不行

ksgbds

lzclzch 发表于 2012-7-2 00:30
这样行不行

Sub 单元格()
[a1] = 1
End Sub

这表示一个代码？？？

如果用在我的表里，是不是，就是需要把一个整代码

ksgbds

lzclzch 发表于 2012-7-2 00:30
这样行不行

单元格
单元格2
单元格3
单元格4
单元格5
单元格6
单元格7
单元格8
单元格9
单元格10

我有用代码名如：test0-test10

还是用模块号如：模块1-模块10

lzclzch

是一个事件啊
只不过少了点
要用控件使行只要把Sub后面  ()前面的名称 "单元格" 放进去就可以了

lzclzch

Private Sub CommandButton1_Click()
test0-test10

sub

ksgbds

lzclzch 发表于 2012-7-2 00:49
是一个事件啊
只不过少了点
要用控件使行只要把Sub后面  ()前面的名称 "单元格" 放进去就可以了

如果，用在三个工作表内同时执行，用一个按钮

因我每个代码前加了
Sub 进入所有工作表执行宏()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Sheets
        sh.Select
           Call test0
    Next sh
End Sub

剩下的是tset0的代码

这样需要改动吗？？？？

ksgbds

lzclzch 发表于 2012-7-2 00:30
这样行不行

单元格
单元格2
单元格3
单元格4
单元格5
单元格6
单元格7
单元格8
单元格9
单元格10

换成我的代码名如：test0-test10

就执行了，谢谢