【正文】 iCount + 1 10 Sheets(工資條).Cells(iCount + 1 9， 3).Value = Sheets(工資條).Cells(iCount + 1 9， 4).Value = Cells(4， 2) Sheets(工資條).Cells(iCount + 1 9， 5).Value = Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 3) * Sheets(考勤和應(yīng)扣項(xiàng)目 ).Cells(iCount + 1 9， 4) Sheets(工資條).Cells(iCount + 1 9， 6).Value = Sheets(工資標(biāo)準(zhǔn)).27 / 32Cells(iCount + 1 9， 4) * Sheets(考勤和應(yīng)扣項(xiàng)目 ).Cells(iCount + 1 9， 5) Sheets(工資條).Cells(iCount + 1 9， 7).Value = Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 5) Sheets(工資條).Cells(iCount + 1 9， 8).Value = Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 6) + Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 7) + Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 8) + Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 9) Sheets(工資條).Cells(iCount + 1 9， 9).Value = Sheets(工資條).Cells(iCount + 1 9， 5).Value + Sheets(工資條).Cells(iCount + 1 9， 6).Value + Sheets(工資條).Cells(iCount + 1 9， 7).Value + Sheets(工資條).Cells(iCount + 1 9， 8).Value If Trim(Sheets(工資條).Cells(iCount + 1 9， 10)) 3500 Then Sheets(工資條).Cells(iCount + 1 9， 10).Value = Sheets(工資條).Cells(iCount + 1 9， 9) 3500 Else Sheets(工資條).Cells(iCount + 1 9， 10).Value = 0 End If Sheets(工資條).Cells(iCount + 1 9， 11).Value = tax(Sheets(工資條).Cells(iCount + 1 9， 10)) Sheets(工資條).Cells(iCount + 1 9， 12).Value = Sheets(考勤和應(yīng)扣項(xiàng)目).Cells(iCount + 1 9， 6) + Sheets(考勤和應(yīng)扣項(xiàng)目).Cells(iCount + 1 9， 7) Sheets(工資條).Cells(iCount + 1 10， 1).Value = Sheets(工資條).Cells(iCount + 1 9， 9).Value Sheets(工資條).Cells(iCount + 1 9， 11).Value Sheets(工資條).Cells(iCount + 1 9， 12).Value End IfEnd SubOption Explicit模塊一代碼：利用 birthday()函數(shù)求取員工的出生日期Public Function birthday(number)Dim y， m， dIf Len(number) = 18 Then y = Mid(number， 7， 4) m = Mid(number， 11， 2)28 / 32 d = Mid(number， 13， 2) birthday = DateSerial(y， m， d)Else y = 19 amp。 iCount 9 Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 2).Value = Trim(Cells(4， 2)) If Trim(Cells(iCount + 1， 11)) = 經(jīng)理 Then Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 3).Value = 1000 ElseIf Trim(Cells(iCount + 1， 11)) = 副經(jīng)理 Then Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 3).Value = 800 ElseIf Trim(Cells(iCount + 1， 11)) = 經(jīng)理助理 Then Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 3).Value = 500 ElseIf Trim(Cells(iCount + 1， 11)) = 銷售部長 Then26 / 32 Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 3).Value = 600 ElseIf Trim(Cells(iCount + 1， 11)) = 財(cái)務(wù)部長 Then Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 3).Value = 600 ElseIf Trim(Cells(iCount + 1， 11)) = 修理部長 Then Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 3).Value = 600 ElseIf Trim(Cells(iCount + 1， 11)) = 辦公室主任 Then Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 3).Value = 400 ElseIf Trim(Cells(iCount + 1， 11)) = 總工 Then Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 3).Value = 200 End If Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 4).Value = Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 3) / 8 * Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 5).Value = Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 3) / 2 Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 6).Value = 240 Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 7).Value = Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 3) / 2 Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 8).Value = 20 Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 9).Value = 50 Sheets(考勤和應(yīng)扣項(xiàng)目).Cells(iCount + 1 9， 1).Value = 12 Sheets(考勤和應(yīng)扣項(xiàng)目).Cells(iCount + 1 9， 2).Value = A amp。如果待添加的讀者在數(shù)據(jù)表中不存在 If CunZai = False Then If Trim(Cells(5， 3)) = Or Trim(Cells(4， 10)) = Or _ Trim(Cells(4， 6)) = Or Trim(Cells(4， 8)) = Or _ Trim(Cells(6， 7)) = Or Trim(Cells(7， 2)) = Or _ Trim(Cells(5， 11)) = Then MsgBox 信息不完整，請(qǐng)完善信息 Exit Sub End If Cells(iCount + 1， 1) = Trim(Cells(4， 2)) Cells(iCount + 1， 2).Value = Cells(iCount + 1， 3).Value = birthday(Cells(5， 3)) Cells(iCount + 1， 4).Value = Cells(5， 3) Cells(iCount + 1， 5).Value = Cells(4， 10) Cells(iCount + 1， 6).Value = Cells(4， 6) Cells(iCount + 1， 7).Value = Cells(4， 8) Cells(iCount + 1， 8).Value = Cells(iCount + 1， 9).Value = Cells(6， 7) Cells(iCount + 1， 10).Value = Cells(iCount + 1， 11).Value = Cells(iCount + 1， 12).Value = Cells(7， 2) Cells(iCount + 1， 13).Value = A amp。Sheets(員工信息).Cells(iCount + 1 9， 2).Value = Trim(Cells(4， 2)) MsgBox 更新員工信息完成！， vbOKOnly， 提示 39