出勤管理（附件窗体已做好）

liulang0808

具体见附件内容

达州张先生

liulang0808 发表于 2014-5-31 06:43
具体见附件内容

很好，还需完善一下，点击“员工设置、更新”按钮，将员工设置中的座号和姓名全部复制、数字粘贴到后面的各表中（去掉公式）。请见附件，谢谢！

达州张先生

liulang0808 发表于 2014-5-31 06:43
具体见附件内容

录制了一段复制("员工设置")，粘贴到饿各表中的宏，合并了1-12月份的语句Sheets("1月").Select
为， Sheets(i & "月").Select ，运行时此句Sheets(i & "月").Select 错误了，不知该如何修改，请见下面这段宏语句。谢谢！
Sub 按钮169_单击()
    Sheets("员工设置").Select
    Range("A3:B202").Select '选择员工设置区域
    Selection.Copy
    Sheets("登记、汇总").Select '选择登记、汇总工作表粘贴区域
    Range("A6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False '数字粘贴
    Sheets(i & "月").Select '选择1-12月工作表粘贴区域
    Range("A6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False '数字粘贴
   
    Sheets("登记、汇总").Select '返回登记、汇总工作表
    Range("I3:N4").Select '光标放在I3:N4
    Application.CutCopyMode = False
End Sub

liulang0808

达州张先生 发表于 2014-6-1 23:37
录制了一段复制("员工设置")，粘贴到饿各表中的宏，合并了1-12月份的语句Sheets("1月").Select
为，  ...

Sub 按钮169_单击()
     Sheets("员工设置").Select
    set rng= Range("A3:B202")
     rng.Copy
     Sheets("登记、汇总").Select '选择登记、汇总工作表粘贴区域
     Range("A6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False '数字粘贴
     rng.copy
        for i=1 to 12
     Sheets(i & "月").Select '选择1-12月工作表粘贴区域
     Range("A6").Select
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
         :=False, Transpose:=False '数字粘贴
     next i
    Sheets("登记、汇总").Select '返回登记、汇总工作表
     Range("I3:N4").Select '光标放在I3:N4
     Application.CutCopyMode = False
End Sub
代码没有测试，你看看吧

达州张先生

liulang0808 发表于 2014-6-2 09:18
Sub 按钮169_单击()
     Sheets("员工设置").Select
    set rng= Range("A3:B202")

。节日快乐！还行，可以用。谢谢