一个关于Excel宏的问题

kittycat

录制了一个宏，有很多工作表。编码为：

   Sheets("Hongkong").Select
    Range("Q3:R4").Select
    Selection.Copy
    Sheets("Haerbin").Select
    Range("Q3").Select
    ActiveSheet.Paste
    Range("R5").Select
     Application.Run "ATPVBAEN.XLA!Moveavg", ActiveSheet.Range("$D$5:$D$108"), _
        ActiveSheet.Range("$R$5:$R$108"), 13, False, True, False
    ActiveWindow.SmallScroll Down:=-9
    Range("Q5").Select
     Application.Run "ATPVBAEN.XLA!Moveavg", ActiveSheet.Range("$B$5:$B$108"), _
        ActiveSheet.Range("$Q$5:$Q$108"), 13, False, True, False
End Sub

想在该工作簿内其它工作表中运行，如何改那个Haerbin？

kittycat

不好意思，自己顶一下。

妮可宝贝

如果你知道其它的表名,而仅想改另一个表使用,就简单的改表名呀:

Sheets("Haerbin").Select
改为:
Sheets("Test").Select

如果你Hongkong表是第1个表,而你想改其它所有表,比如有100张表,分别是表2-表100(不管它叫什么表名):



Sheets("Hongkong").Select
    Range("Q3:R4").Select
    Selection.Copy

dim i&
for i=2 to 100
    Sheets(i).Select
    Range("Q3").Select
    ActiveSheet.Paste
    Range("R5").Select
     Application.Run "ATPVBAEN.XLA!Moveavg", ActiveSheet.Range("$D$5:$D$108"), _
        ActiveSheet.Range("$R$5:$R$108"), 13, False, True, False
    ActiveWindow.SmallScroll Down:=-9
    Range("Q5").Select
     Application.Run "ATPVBAEN.XLA!Moveavg", ActiveSheet.Range("$B$5:$B$108"), _
        ActiveSheet.Range("$Q$5:$Q$108"), 13, False, True, False
next

kittycat

谢谢，妮可。
帮了大忙了。
还请看看，老是出现这个，但明明是录制的宏，为什么会有这个？

[ 本帖最后由 kittycat 于 2008-7-7 09:58 编辑 ]