Office中国论坛/Access中国论坛

标题: 这是我自己录的一段宏，请大家帮忙加多几句 [打印本页]

作者: qbt 时间: 2007-2-6 08:28
标题: 这是我自己录的一段宏，请大家帮忙加多几句
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编辑过]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)