这是我自己录的一段宏，请大家帮忙加多几句

qbt

Sub 自动()
'
' 自动Macro
'
' 快捷键: Ctrl+Shift+Z
'
    Columns("R:R").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("M3:M16").Select
    Selection.Copy
    Range("R2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("Q2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("R2:R15").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
        SkipBlanks:=False, Transpose:=False
End Sub


启动宏后每10分钟重复一次；并在R1加上当时的时和分。

还有，我这个工作簿有10个工作表，怎样令到这10个工作表都运行这个宏？

先谢谢大家了

[em04][em04][em04]

[此贴子已经被作者于2007-2-6 0:28:09编辑过]