excel vba基礎(chǔ)功能與范例第3考勤管理

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

步驟2：修改開(kāi)始時(shí)間和結(jié)束時(shí)間單元格時(shí)發(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'加班時(shí)薪為平時(shí)的3倍Cells(RowN,9)=TimeTotal*Hsalary*3在ExcelVBA中除了可以使用Range對(duì)象的NumberFormatLocalRange對(duì)象的NumberFormat屬性設(shè)置單元格Sub設(shè)置長(zhǎng)日期格式()"YYYY年MM月DD日"EndA2:A7單元格區(qū)域，再單擊用戶如何使用VBA程序代碼根據(jù)員工檔案信息，自動(dòng)創(chuàng)建指定月度考勤表。D-5 步驟1：插入模塊1代碼窗口。打開(kāi)附書(shū)光盤(pán)文件中的單擊“插入>模塊”命令，如圖3-4所示。3-412張考勤表，每張考勤表都有相同的固Sub批量創(chuàng)建考勤表()DimIAsIntegerForI=1To12 Worksheets.Addafter:=Worksheets(I)Worksheets(I1).NameI&月份"Range("A1Year(Now&年&I&月份職工考勤表"Range("A2")="員工編號(hào)"Range("B2"員工姓名Range("C2"時(shí)間\日期'根據(jù)指定年的的I月，自動(dòng)填充該月工作日的日數(shù)自動(dòng)填充當(dāng)月工作日I22Range對(duì)象除了可以將需要B5單元格的值，其代碼過(guò)程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語(yǔ)言代碼不僅可以Interior對(duì)象的Color屬性和ColorIndex屬性來(lái)實(shí)現(xiàn)，如將B2Sub設(shè)置單元格顏色()33Copy方法除了可以用來(lái)復(fù)制Sub復(fù)制工作表Copybefore:=Worksheets(1)EndRGB(255,192,EndEndWithWithRange("2:2").Font.Name黑體.Font.Bold=EndWithDimrow1AsInteger,col1AsIntegerrow1=Cells(2,3).rowcol1=Cells(2,ActiveSheetrow1,WithSelectionEndWithEndSub自動(dòng)填充當(dāng)月工作日(month1As55VBA代碼中不僅可以添加4.5磅，其代碼具體為：Sub設(shè)置下邊框框線粗細(xì)()Range("A1:R1").Borders_EndSubDimDimdaysAsInteger,xdateAsxdate=CDate(Year(Date)+Ifmonth1=2col2 col2=daysMDay(xdate)'調(diào)用自定義Mday()'7Ifmonth1<7Andmonth1Mod2=0Thendays=days-1EndIfmonth1>8Andmonth1Mod2=1Thendays=days-1EndIfForI=1TodaysDimCurdateAs (Curdate))<>vbSundayThenCells(2,col2)=Icol2=col2+1NextIEnd66result=number1\number2Sub整除()MsgBox52\14的結(jié)果為&_52\14End3，如8MDay函數(shù)。在獲取工作日PublicFunctionMDay(OptionalxdateAsVariant=0)AsIntegerIfIsDate(xdate)ThenMDay=EndEndEnd7InStr([start,]string1,string2[,7InStr([start,]string1,string2[,假設(shè)要獲取字符串“08Sub字符位置AInStr(1,08年奧運(yùn)賽程安排","賽",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二、通過(guò)“Excel選項(xiàng)”對(duì)話“Excel選項(xiàng)”按鈕。 統(tǒng)計(jì)1：復(fù)制工作表。在打開(kāi)的附書(shū)光盤(pán)文件中的作表”命令，如圖3-9所示。1Excel2007中復(fù)制工作表213：在新工作簿中的“6月份”工作表中表格的右側(cè)到如圖3-11所示的結(jié)果。單 圖3-4：編寫(xiě)統(tǒng)計(jì)缺勤次數(shù)的代碼過(guò)程。在記錄考勤情況Sub自動(dòng)計(jì)算缺勤天數(shù)與應(yīng)扣缺勤費(fèi)用()DimshtAsWorksheetSetsht=Worksheets("6月份")DimRownAsInteger,ColAsIntegerRown=sht.Range("A1").CurrentRegion.Rows.CountFori=3ToRownDimCDAsInteger,ZTAsInteger,BJAsInteger,SJAsIntegerDimAimAsIntegerCD=0ZT=BJ=SJ=22Range對(duì)象的CurrentRegion屬Sub選擇數(shù)據(jù)區(qū)域Settbl=ActiveCell.CurrentRegionEndSubForj=4ToCol-SelectCaseAimCaseCD=CD+CaseZT=ZT+CaseBJ=BJ+3相比較時(shí)，可以使用SelectCase語(yǔ)句來(lái)交替使用在If...Then...ElseElseIf3相比較時(shí)，可以使用SelectCase語(yǔ)句來(lái)交替使用在If...Then...ElseElseIf中的語(yǔ)句。If...Then...Else語(yǔ)句會(huì)計(jì)算每個(gè)ElseIf語(yǔ)句的不同的表達(dá)式，在控SelectCase語(yǔ)句修改為如下所示的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：計(jì)算應(yīng)扣缺勤費(fèi)用。計(jì)算得到各原因的缺勤次數(shù)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"設(shè)置數(shù)字顯示格式NextiActiveWindow.DisplayZerosFalse'0End4w為BooleanTrue時(shí)，F(xiàn)alse

1Range對(duì)象1Range對(duì)象放“6Cells屬Worksheet對(duì)象，表示Sub生成應(yīng)扣工資明細(xì)表DimshtAsWorksheet,RownAsInteger,ColAsIntegerSetsht=Worksheets("6月份")'將6月份中的員工編號(hào)與姓名復(fù)制到工作表中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)步驟據(jù)寫(xiě)入相應(yīng)單元格中后，再將員工編號(hào)的格式設(shè)置為Cells(j,1).NumberF