Question

[VBA]怎样定义让一段完整的代码在多个工作表中运行？

我写了一段程式，可是只能在第一个工作表中运行，
Dim Sht As Worksheet
Set Sht = Worksheets(1)
Dim I As Integer
I = 7
Do
.....
在这个档案中，有三个工作表，需要分别在这三个表中运行这段代码，该怎麼修改呢

Answer 1

要让代码能在多个工作表中运行，可以将代码直接写入到Thisworkbook工作表中或者插入模块，放到模块中
例如如下代码，放到模块中
sub main()
msgbox range("A1")
end sub
试一下就知道，在哪个工作表中执行，就会显示哪个工作表的A1单元格的值，也就是说，这段代码可以在多个工作表中运行

Answer 2

记得应该是在“插入”里面插入“模块”还是“类模块”然后把代码放在里面就可。

Answer 3

如果是分别执行，分别运行
写程序时不要指定sheet
直接写cells或range
如果是一次执行，同时对多个表进行操作
for i = 1 to 3
set sht=worksheets(i)
.....
next

Answer 4

Sub xx()
Dim Sht As Worksheet
Set Sht = ActiveSheet
Dim I As Integer
I = 7
Do
.....

End Sub