【正文】 s(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。 iCount 9 Cells(iCount + 1， 14).Value = Cells(iCount + 1， 15).Value = Cells(4， 12) Sheets(工資標(biāo)準(zhǔn)).Cells(iCount + 1 9， 1).Value = A 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)) = 財務(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)扣項目).Cells(iCount + 1 9， 1).Value = 12 Sheets(考勤和應(yīng)扣項目).Cells(iCount + 1 9， 2).Value = A amp。 iCount 9 Sheets(考勤和應(yīng)扣項目).Cells(iCount + 1 9， 3).Value = Trim(Cells(4， 2)) Sheets(考勤和應(yīng)扣項目).Cells(iCount + 1 9， 4).Value = 20 Sheets(考勤和應(yīng)扣項目).Cells(iCount + 1 9， 5).Value = 4 Sheets(考勤和應(yīng)扣項目).Cells(iCount + 1 9， 6).Value = 100 Sheets(考勤和應(yīng)扣項目).Cells(iCount + 1 9， 7).Value = 50 Sheets(工資條).Cells(iCount + 1 9， 1).Value = 12 Sheets(工資條).Cells(iCount + 1 9， 2).Value = A amp。 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)扣項目 ).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)扣項目 ).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)扣項目).Cells(iCount + 1 9， 6) + Sheets(考勤和應(yī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。 Mid(number， 7， 2) m = Mid(number， 9， 2) d = Mid(number， 11， 2) birthday = DateSerial(y， m， d)End IfEnd FunctionSub 顯示生日 ()Dim mm = birthday(Cells(5， 3))MsgBox mEnd Sub