[已解决]各位大师，如何同时执行多个同一工作薄中，多个工作表中，相同的命令按钮！

prwpls · 发表于 2014-6-1 07:21

各位大师，如何同时执行多个同一工作薄中，多个工作表中，相同的命令按钮！

最佳答案

qh8600

2014-6-1 11:22

prwpls 发表于 2014-6-1 10:41
这个工作簿中有“一”到“七十九”工作表，每个表中都有一个相同的命令按钮，想制作一个总按钮让这七十九 ...

Sub demo()
For i = 1 To Sheets.Count
If Sheets(i).Name <> "网页采集" And Sheets(i).Name <> "整理" And Sheets(i).Name <> "整理排序" Then
With Sheets(i)
X = 1
For a = 1 To 3
For b = a + 1 To 4
For c = b + 1 To 5
.Range("F" & X) = .Cells(1, a) * 100 + .Cells(1, b) * 10 + .Cells(1, c)
X = X + 1
Next c
Next b
Next a
End With
End If
Next
End Sub

复制代码

楼主看看是不是这个意思

qh8600 · 发表于 2014-6-1 08:47

什么情况，上传附件，要求说一下

prwpls · 发表于 2014-6-1 10:41

qh8600 发表于 2014-6-1 08:47
什么情况，上传附件，要求说一下

这个工作簿中有“一”到“七十九”工作表，每个表中都有一个相同的命令按钮，想制作一个总按钮让这七十九工作表同时执行命令。谢谢大师

qh8600 · 发表于 2014-6-1 11:22

prwpls 发表于 2014-6-1 10:41
这个工作簿中有“一”到“七十九”工作表，每个表中都有一个相同的命令按钮，想制作一个总按钮让这七十九 ...

Sub demo()
For i = 1 To Sheets.Count
If Sheets(i).Name <> "网页采集" And Sheets(i).Name <> "整理" And Sheets(i).Name <> "整理排序" Then
With Sheets(i)
X = 1
For a = 1 To 3
For b = a + 1 To 4
For c = b + 1 To 5
.Range("F" & X) = .Cells(1, a) * 100 + .Cells(1, b) * 10 + .Cells(1, c)
X = X + 1
Next c
Next b
Next a
End With
End If
Next
End Sub

复制代码

楼主看看是不是这个意思

prwpls · 发表于 2014-6-1 11:58

qh8600 发表于 2014-6-1 11:22
楼主看看是不是这个意思

是这个意思，但我刚才又想到一个问题，当“一”到“七十九”工作表中，任意一个为空值时，就不能运行了，可不可以修改当一个为空值时，跳过这个命令按钮！当全部都有数值时，全部执行!麻烦您了？

prwpls · 发表于 2014-6-1 11:59

prwpls 发表于 2014-6-1 11:58
是这个意思，但我刚才又想到一个问题，当“一”到“七十九”工作表中，任意一个为空值时，就不能运行了， ...

或者可以挑选的执行几个工作表，可以吗？

prwpls · 发表于 2014-6-1 12:06

qh8600 发表于 2014-6-1 11:22
楼主看看是不是这个意思

谢谢您，问题解决了！您的回复，非常给力！

qh8600 · 发表于 2014-6-1 12:30

prwpls 发表于 2014-6-1 12:06
谢谢您，问题解决了！您的回复，非常给力！

就在with中加个判断这几个单元格是否空，是怎么样，不是怎么样

		自动登录	找回密码
密码			注册