《Excel在財(cái)務(wù)中的應(yīng)用》 VBA版

ExcelVBA篇——零基礎(chǔ)學(xué)VBA

零基礎(chǔ)學(xué)ExcelVba——Diy制作業(yè)務(wù)模型難學(xué)嗎？一頁(yè)Ａ4的內(nèi)容；講述ExcelVba中的基礎(chǔ)知識(shí)完成學(xué)習(xí)后，你能閱讀、修改一般的Vba代碼，具備Vba編程的基本能力。學(xué)會(huì)這些，對(duì)付一般的數(shù)據(jù)處理，沒(méi)問(wèn)題！對(duì)誰(shuí)操作——對(duì)象；操作邊界在哪？——變量；工作表函數(shù)的引用——融合；進(jìn)入VB編輯寫(xiě)代碼；制作一個(gè)按鈕；自動(dòng)化排版——宏的錄制與修攺；學(xué)習(xí)目標(biāo)制作一個(gè)獎(jiǎng)金分配工具。在數(shù)據(jù)輸入?yún)^(qū)設(shè)置崗位分配系數(shù)及分配總金額；在數(shù)據(jù)輸出區(qū)設(shè)置自動(dòng)根據(jù)崗位填入分配系數(shù)；自動(dòng)計(jì)算標(biāo)準(zhǔn)分配率；自動(dòng)根據(jù)分配系數(shù)與分配率計(jì)算分配獎(jiǎng)金；自動(dòng)進(jìn)行排版設(shè)置；制作一個(gè)簡(jiǎn)易的考試系統(tǒng).一個(gè)經(jīng)典的編程結(jié)構(gòu)Sub程序名（）對(duì)象：dim對(duì)象名as對(duì)象類(lèi)型變量：dim變量名as變量類(lèi)型判斷：if條件then執(zhí)行命令endif循環(huán)：for……next引用工作表函數(shù)：application.worksheetfunction.工作表函數(shù)方法：對(duì)象.動(dòng)作EndSubVBA編程模型sub程序()dimPas對(duì)象類(lèi)型setp=dimnas變量類(lèi)型n=range(“a65536”).end(xlup).rowforn2=起始值to終值step1if判斷表達(dá)式then是命令esle否命令endifnextendsubExcelvba基礎(chǔ)知識(shí)Sub程序名（）用Dim聲明對(duì)象用Dim變量用If進(jìn)行判斷用For…Next進(jìn)行循環(huán)用Application.Worksheetfunction引用函數(shù)屬性方法Endsub一、對(duì)象如何表示工作表？Worksheets("工作表名稱(chēng)")Worksheets("01分配方案")Worksheets("系統(tǒng)設(shè)置")如何表示單元格？Range(“D3”)Range(“G3”)Range("A65536")如何表示單元格Cells(3,4)Cells(3,7)如何表示單元格區(qū)域Range(“E4:G7”)Range(“A4:E8”)自測(cè)閱讀Worksheets(“工資表”).Range(“A4:E8")自測(cè)閱讀Range(cells(1,1),cells(10,2)）如何聲明一個(gè)對(duì)象聲明一個(gè)工作表對(duì)象DimPAsWorksheetSetP=Worksheets("操作題1")DimP2AsWorksheetSetP2=Worksheets("操作題1(2)")聲明單元格對(duì)象DimrnAsRangeSetrn=P.Range("a4:d"&N)rn.Font.Size=10rn.Borders.LineStyle=xlContinuousrn.RowHeight=20二、變量變量最常見(jiàn)的一句變量N=Range("A65536").End(xlUp).RowEnd(xlUp)End(xlToRight)End(xlToLeft)End(xlDown)最后一列在哪里？DimC1AsIntegerC1=Range("A2").End(xlToRight).Column最后一行在哪里？N=Range("A65536").End(xlUp).RowN=Range("A3").End(xlDown).Row對(duì)象與變量的經(jīng)典組合：對(duì)誰(shuí)操作，邊界在哪'聲明一個(gè)工作表對(duì)象DimPAsWorksheetSetP=ActiveSheet'聲明一個(gè)行數(shù)的變量DimNN=P.Range("A65536").End(xlUp).Row變量的小伙伴&：從固態(tài)走向動(dòng)態(tài)！'格式排版DimrnAsRangeSetrn=P.Range("a4:d"&N)自我測(cè)試Dimrn2AsRangeN=8Setrn2=Range("a"&N&":d"&N)rn2.Font.ColorIndex=44rn2.Range("A2:A”&N).RowHeight=20將4替換為變量，則將實(shí)現(xiàn)數(shù)據(jù)自動(dòng)化處理Range(“V4”)=Application.WorksheetFunction.SUM(Range(“K4：U4“))&文本運(yùn)算符的妙用Range("K"&N2&":U"&N2)列不變，行變的單元格表示三、判斷選擇結(jié)構(gòu)語(yǔ)法：If條件ThenDO處理程序1ElseDO處理程序2EndIf或單條件

IfRange("E"&N2)="店長(zhǎng)"ThenRange("K"&N2)=10000ElseRange("K"&N2)=3000EndIfIf

P.Cells(N2,3)=P2.Cells(N2,3)Then

P.Cells(N2,4)="對(duì)"

P.Range("C"&N2).Interior.ColorIndex=0'無(wú)色

Else

P.Cells(N2,4)="錯(cuò)"

P.Range("C"&N2).Interior.ColorIndex=3'紅色

EndIf多條件IfRange("E"&N2)="店長(zhǎng)"ThenRange("K"&N2)=10000ElseIfRange("E"&N2)="主管"ThenRange("K"&N2)=3300ElseIfRange("E"&N2)="課長(zhǎng)"ThenRange("K"&N2)=2600ElseRange("K"&N2)=2300EndIf語(yǔ)法：SelectCase條件PCase1Do處理程序1Case2Do處理程序2CaseNDo處理程序nEndSelect四、循環(huán)循環(huán)結(jié)構(gòu)循序結(jié)構(gòu)（Sequence）DO處理程序1THENDO處理程序2循環(huán)語(yǔ)句從第4行開(kāi)始一直計(jì)算到末行（N)為止。Range("C5")Range("C6")Range("C7")Range("C8")...Range(“C？")Range(“C"&N2)ForN2=4（起始值）ToN（終止值）Step1Range(“V”&N2)=Range(“S”&N2)+Range(“T”&N2)Next'循環(huán)批閱ForN2=5ToNStep1IfP.Cells(N2,3)=P2.Cells(N2,3)ThenP.Cells(N2,4)="對(duì)"P.Range("C"&N2).Interior.ColorIndex=0'無(wú)色ElseP.Cells(N2,4)="錯(cuò)"P.Range("C"&N2).Interior.ColorIndex=3'紅色EndIfNext語(yǔ)法：Do-while結(jié)構(gòu)While條件DO處理程序End五、引用工作表函數(shù)工作表函數(shù)的引用Application.WorksheetFunction.Rank（）Application.WorksheetFunction.sumif（）Application.WorksheetFunction.vlookup（）Application.WorksheetFunction'統(tǒng)計(jì)對(duì)錯(cuò)個(gè)數(shù)DimF,T'定義正確與錯(cuò)誤的個(gè)數(shù)F=Application.WorksheetFunction.CountIf(Range("D:D"),"錯(cuò)")T=Application.WorksheetFunction.CountIf(Range("D:D"),"對(duì)")DimCJAsVariantCJ=Round((100/(T+F))*T,0)'不保留小數(shù)MsgBoxMsgBox"本次做對(duì)了"&

T

&",做錯(cuò)了"&

F

&"題!本次得分為"&CJ&"分！"這是寫(xiě)代碼的模型！sub程序()dimPas對(duì)象類(lèi)型setp=dimnas變量類(lèi)型n=range(“a65536”).end(xlup).rowforn2=起始值to終值step1if判斷表達(dá)式then是命令esle否命令endifnextendsub六、排版邊框設(shè)置Range(“A2:AI”&N+1).Borders.LineStyle=xlLineStyleNoneXlLineStyle可為以下XlLineStyle常量之一。xlContinuous‘實(shí)線(xiàn)xlDash‘虛線(xiàn)xlDashDot‘長(zhǎng)短間隔的虛線(xiàn)xlDashDotDotxlDotxlDoublexlSlantDashDotxlLineStyleNone‘取消單元格底紋設(shè)置P.Range("C"&N2).Interior.ColorIndex=0'無(wú)色P.Range("C"&N2).Interior.ColorIndex=3'紅色七、屬性與方法對(duì)象.方法SubTEST()DimNAsIntegerN=Range("A65536").End(xlUp).RowRows