excel vba基礎功能與范例第3考勤管理

3章EXCEL2007中企業(yè)可以創(chuàng)建高效考勤系統(tǒng)，及時、準確地處理考勤數據，R-1-1NYYN步驟1：打開Sheet1代碼窗口。打開附書光盤文件中的1ExcelVBA的程序代碼是在VisualBasic編輯器中，選 SubDate,64,"當前系統(tǒng)日期"End

步驟2：修改開始時間和結束時間單元格時發(fā)生事件。在Sheet1代碼窗口中輸入判斷修改的單元格發(fā)生事件代碼，DimStarttimeAsDate,EndTimeAsDate,RowNAsIntegerDimTimeTotalAsSingle,HsalaryAsSingleRowN=Starttime=Cells(RowN,6)EndTime=Cells(RowN,3IfStarttime="0:00:00"OrEndTime="0:00:00"ThenIfStarttime="0:00:00"ThenEndIfEndIfTimeTotal=(EndTime-Starttime)*Hsalary=(1800/22)/8'加班時薪為平時的3倍Cells(RowN,9)=TimeTotal*Hsalary*3在ExcelVBA中除了可以使用Range對象的NumberFormatLocalRange對象的NumberFormat屬性設置單元格Sub設置長日期格式()"YYYY年MM月DD日"EndA2:A7單元格區(qū)域，再單擊用戶如何使用VBA程序代碼根據員工檔案信息，自動創(chuàng)建指定月度考勤表。D-5 步驟1：插入模塊1代碼窗口。打開附書光盤文件中的單擊“插入>模塊”命令，如圖3-4所示。3-412張考勤表，每張考勤表都有相同的固Sub批量創(chuàng)建考勤表()DimIAsIntegerForI=1To12 Worksheets.Addafter:=Worksheets(I)Worksheets(I1).NameI&月份"Range("A1Year(Now&年&I&月份職工考勤表"Range("A2")="員工編號"Range("B2"員工姓名Range("C2"時間\日期'根據指定年的的I月，自動填充該月工作日的日數自動填充當月工作日I22Range對象除了可以將需要B5單元格的值，其代碼過程Sub顯示單元格B5的值()MsgBoxRange("B5").Value,,_"單元格B5的值為"EndWorksheets("員工檔案信息").Range("A3:A25").Copy_Worksheets("員工檔案信息").Range("B3:B25").Copy_Cells(j,3)="上午Cells(j12).Insertshift:=xlShiftDown'在指定位置插入單元格Cells(j+1,1).Insertshift:=xlShiftDownCells(j+1,3)="下午Range(Cells(j,2),Cells(j+1,Range(Cells(j,1),Cells(j+1,1)).Mergej=j+2Rows(j).AutoFit'Rows(j+1).AutoFitLoopUntilCells(j,2)=""WithRange(Cells(1,1),Cells(1,.HorizontalAlignment=.Font.Name黑體.Font.Size=.Font.Bold=4使用VBA語言代碼不僅可以Interior對象的Color屬性和ColorIndex屬性來實現，如將B2Sub設置單元格顏色()33Copy方法除了可以用來復制Sub復制工作表Copybefore:=Worksheets(1)EndRGB(255,192,EndEndWithWithRange("2:2").Font.Name黑體.Font.Bold=EndWithDimrow1AsInteger,col1AsIntegerrow1=Cells(2,3).rowcol1=Cells(2,ActiveSheetrow1,WithSelectionEndWithEndSub自動填充當月工作日(month1As55VBA代碼中不僅可以添加4.5磅，其代碼具體為：Sub設置下邊框框線粗細()Range("A1:R1").Borders_EndSubDimDimdaysAsInteger,xdateAsxdate=CDate(Year(Date)+Ifmonth1=2col2 col2=daysMDay(xdate)'調用自定義Mday()'7Ifmonth1<7Andmonth1Mod2=0Thendays=days-1EndIfmonth1>8Andmonth1Mod2=1Thendays=days-1EndIfForI=1TodaysDimCurdateAs (Curdate))<>vbSundayThenCells(2,col2)=Icol2=col2+1NextIEnd66result=number1\number2Sub整除()MsgBox52\14的結果為&_52\14End3，如8MDay函數。在獲取工作日PublicFunctionMDay(OptionalxdateAsVariant=0)AsIntegerIfIsDate(xdate)ThenMDay=EndEndEnd7InStr([start,]string1,string2[,7InStr([start,]string1,string2[,假設要獲取字符串“08Sub字符位置AInStr(1,08年奧運賽程安排","賽",vbTextCompare)MsgBox顯示字符在指定字符串的位置："&AEnd SubSub斜分單元格(shtAsWorksheet,rowAsInteger,colAsInteger)sht.Cells(row,col).SelectWith.LineStyle=.Weight=EndWithDimaimAsString,midAsaim=Selection.Value aim=Replace(aim,"","") mid=InStr(1,aim,"\") aim=Replace(aim,"\","") Selection.Value=aim Ifmid=0ThenExitSubEnd.Name宋體.Size=.Superscript=EndWith.Name宋體.Size=.Subscript=EndWithWithSelectionEndWithEnd列表中，如圖3-6所示，然后單擊“確定”按鈕。1單 2單3定宏，單擊“批量創(chuàng)建考勤表”按鈕，如圖3-7所示。8二、通過“Excel選項”對話“Excel選項”按鈕。 統(tǒng)計1：復制工作表。在打開的附書光盤文件中的作表”命令，如圖3-9所示。1Excel2007中復制工作表213：在新工作簿中的“6月份”工作表中表格的右側到如圖3-11所示的結果。單 圖3-4：編寫統(tǒng)計缺勤次數的代碼過程。在記錄考勤情況Sub自動計算缺勤天數與應扣缺勤費用()DimshtAsWorksheetSetsht=Worksheets("6月份")DimRownAsInteger,ColAsIntegerRown=sht.Range("A1").CurrentRegion.Rows.CountFori=3ToRownDimCDAsInteger,ZTAsInteger,BJAsInteger,SJAsIntegerDimAimAsIntegerCD=0ZT=BJ=SJ=22Range對象的CurrentRegion屬Sub選擇數據區(qū)域Settbl=ActiveCell.CurrentRegionEndSubForj=4ToCol-SelectCaseAimCaseCD=CD+CaseZT=ZT+CaseBJ=BJ+3相比較時，可以使用SelectCase語句來交替使用在If...Then...ElseElseIf3相比較時，可以使用SelectCase語句來交替使用在If...Then...ElseElseIf中的語句。If...Then...Else語句會計算每個ElseIf語句的不同的表達式，在控SelectCase語句修改為如下所示的IfAim=1ThenCD=CD+ElseIfAim=2ThenZT=ZT+1ElseIfAim=3ThenBJ=BJ+1ElseIfAim=4ThenSJ=SJ+1EndEndNextCells(i,Col-4)=CDCells(i,Col-3)=ZTCells(i,Col-2)=BJCells(i,Col-1)=SJNext格式：SelectCasetestexpression[statements-n]]...[CaseEnd5：計算應扣缺勤費用。計算得到各原因的缺勤次數ForFori=3ToRownStepRange(Cells(i,Col),Cells(i+1,Col)).Merge Cells(i,Col)=Cells(i,Col-4)*20+Cells(i,Col-3)*30+_Cells(iCol2*10Cells(iCol1*40Cells(i1Col4)_*20+Cells(i+1,Col-3)*30+Cells(i+1,Col-2)*10+Cells(i+1,Col-1)*Cells(i,Col).NumberFormat￥#,##0.00"設置數字顯示格式NextiActiveWindow.DisplayZerosFalse'0End4w為BooleanTrue時，False

1Range對象1Range對象放“6Cells屬Worksheet對象，表示Sub生成應扣工資明細表DimshtAsWorksheet,RownAsInteger,ColAsIntegerSetsht=Worksheets("6月份")'將6月份中的員工編號與姓名復制到工作表中j=Fori=3ToRownStep2Cells(j,1)=sht.Cells(i,Cells(j,2)=sht.Cells(i,Cells(j,3)=sht.Cells(i,Col-4)+sht.Cells(i+1,Col-Cells(j,4)=sht.Cells(i,Col-3)+sht.Cells(i+1,Col-Cells(j,5)=sht.Cells(i,Col-2)+sht.Cells(i+1,Col-2)Cells(j,6)=sht.Cells(i,Col-1)+sht.Cells(i+1,Col-1)Cells(j,7)=sht.Cells(i,Col)步驟據寫入相應單元格中后，再將員工編號的格式設置為Cells(j,1).NumberF