excel公式、函數(shù)與圖表應用-附贈vba語法辭典02基礎(chǔ)

2VBA案例 ExcelVBAPrint方法輸入各種類型的數(shù)據(jù)。同時，用戶可以在 參數(shù)outputlist表示需要打印的表達式或列表。如果省略參數(shù)，則打印空白行。PrintDimiAsIntegerDimDimjAsFori=1ToForj=1ToDebug.Printi;"+";j;"=";i+j;"End2.1輸出結(jié)案例 在ExcelVBA中，用戶可以使用InputBox函數(shù)輸入信息。該函數(shù)將打開框，用InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile, Prompt：框消息出現(xiàn)的字符串表達式。最大長度為1024個字符。如果需要在對Xpos：和Ypos成對出現(xiàn)，指定框的左邊與屏幕左邊的水平距離。如果省略該參Ypos：和Xpos成對出現(xiàn)，指定框的上邊與屏幕上邊的距離。如果省略該參數(shù)，SubSubCetUserName()DimTitleAsStringDimNameAsStringDimStrNameAsStringTitle輸入用戶名Name在選框中輸入用戶名："StrNameInputBox(NameTitle)Debug.Print用戶名：End按功能鍵“F5”運行子過程，將彈出“輸入個人信息”窗口，如圖2.2所示。在對圖2.2輸入用戶 圖2.3輸出結(jié)InputBoxInputBox函數(shù)的其他參案例 ExcelVBAMsgBox函數(shù)來顯示提示信息。MsgBox函數(shù)可打開 數(shù)有5個參數(shù)，各參數(shù)的意義與Inputbox函數(shù)參數(shù)的意義類似。buttons參數(shù)，其含義是指定顯示按鈕的數(shù)目及形式、使用提示圖標樣式以及默認按鈕等。其常數(shù)值如表2.1所示。2.1按鈕常數(shù)值012345顯示CriticalMessage圖顯示W(wǎng)arningQuery圖顯示InformationMessage圖00（0~5（，，86（0，26，51（0，4096值組合起來，就是buttons參數(shù)的值。圖2.4對象列 圖2.5事件列PrivateSubWorksheet_Activate()MsgBoxPrivateSubWorksheet_Activate()MsgBox你激活了Sheet1工作表！")End2.6顯示的提示信在本例中，使MsgBox函數(shù)的最簡單形式，也就是直接MsgBox函數(shù)顯示一案例 If邏輯表達式If邏輯表達式…語句nEndIf邏輯表達式可以是計算數(shù)值的表達式，VBA0False，而非零數(shù)值都被看True。該語句的執(zhí)行順序是：當邏輯表達式的值是True，則執(zhí)行位于ThenEndIf之間的語句；當邏輯表達式False，則不執(zhí)ThenEndIf之間的語句，直接跳出循環(huán)結(jié)構(gòu)，其流程圖如圖2.7所示。假假2.7IfThen語句流程If…Then結(jié)構(gòu)還有單行結(jié)構(gòu)條件語句。其語法格式如下If邏輯表達式Then語 的值是False，則不執(zhí)行Then后的語句。2.8原始數(shù)SubShowExcel()SubShowExcel()Fori=2ToIfSheets(1).Cells(i,2).Value>350ThenCells(i,2).Interior.ColorIndex=3EndEnd2.9運行結(jié)案例 面案例中的If…Then語句將，用戶需要使用If...Then…Else語句。If邏輯表達式EndIf邏輯表達式End該語句的執(zhí)行過程是：當邏輯表達式的值是True時，將執(zhí)行“語句序列1”中的各條語句；當“邏輯表達式”的值為False時，就執(zhí)行“語句序列2”中的各條語句，其流程圖如2.102.10IfThenElse語句2.11原始數(shù)SubShowTeam()DimSubShowTeam()DimiAsIntegerFori=2To10IfSheets(1).Cells(i1).ValueMod2ThenCells(i,3).Value="男組"EndIfEnd2.12時，可以使用If...Then…Else語句便利的完成任務。案例 次的折扣值，計算銷售金額。這個時候，用戶可以使用SelectCase語句。SelectCase測試CaseSelectCase測試CaseCase CaseElse語句序列End……2.13SelectCase語句流程IsCaseIs>4545以上三種情況的混合。例，Case8To12,17,Is>35的總額，其中原始數(shù)據(jù)如圖2.14所示。2.14 DimDimIntSaleAsIntegerDimSingleMoneyAsSingleDimiAsIntegerFori=2To10IntPric=Cells(i,1).ValueIntSale=Cells(i,SelectCaseIntSalediscount=0.95CaseIs<=150discount=0.85CaseIs<=200discount=0.7CaseIs<=300discount=0.65CaseElsediscount=0.6EndSelectSingleMoney=IntSale*IntPric*discountCells(i,3).Value=SingleMoneyEnd2.15計算所銷售金IfThenElseifSelectCase結(jié)構(gòu)進行比較，可以發(fā)現(xiàn)SelectCase結(jié)構(gòu)在處理多條件的情況下，要簡潔很多。14計算自然數(shù)之和For…Next循環(huán)語句依次完成循環(huán)運算。其中，最典型的例子就是計算自然數(shù)的總和。當For循環(huán)變量=For循環(huán)變量=初始To[Step步長值]語句序列1[ExitNext循環(huán)變量1，并且可正可負。如果步長值為正，則初始值必須小于等于For…Next循環(huán)結(jié)構(gòu)的流程圖如圖2.16所示。假Exit圖 For…Next流程 SubSubDimclockAsIntegerDimsumAsLongDimcounterAsclock=sum=counter=Forcounter=1To1000sum=sum+clockclock=clock+1MsgBox &sumvbOKOnly計算自然數(shù)之和End2.17置參數(shù)Step的數(shù)值。案例 Excel中，由一種特殊的循環(huán)。在其循環(huán)結(jié)構(gòu)中，其循環(huán)運算的范圍是一個區(qū)域。…ForEach元素In對象集ForEach元素In對象集[ExitFor]出循環(huán)。在循環(huán)體中，用戶可以設(shè)置多個ExitFor語句，退出循環(huán)。。SubSubDimcounterAsIntegerDimrngAsRangeForEachrngInRange("A1:E10")rng.Value=countercounterrng.Value=countercounter=counter+1End2.18為單元格區(qū)域賦案例 ExcelVBA2.19所示，左圖是正確的嵌套關(guān)系，NextForLoopD