Office中国论坛/Access中国论坛

标题: [分享]使用WORD宏制作工资条源码 [打印本页]

作者: clz624 时间: 2006-11-28 16:28
标题: [分享]使用WORD宏制作工资条源码
Sub 生成工资条()
Selection.CurrentRegion.Offset(2, 0).Select
Cells(Selection.Row, Selection.Column).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
ActiveCell.Offset(2, 0).Range("A1").Select
Do Until ActiveCell = ""
      Selection.Insert Shift:=xlDown
      Range(Selection, Selection.End(xlToRight)).Select
      Selection.Copy
      ActiveCell.Offset(2, 0).Range("A1").Select
Loop
Application.CutCopyMode = False
End Sub

作者: dozhihang 时间: 2006-12-17 19:01
[em08]

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