excel公式、函数与图表应用-附赠vba语法辞典02基础

2VBA案例 ExcelVBAPrint方法输入各种类型的数据。同时，用户可以在 参数outputlist表示需要打印的表达式或列表。如果省略参数，则打印空白行。PrintDimiAsIntegerDimDimjAsFori=1ToForj=1ToDebug.Printi;"+";j;"=";i+j;"End2.1输出结案例 在ExcelVBA中，用户可以使用InputBox函数输入信息。该函数将打开框，用InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile, Prompt：框消息出现的字符串表达式。最大长度为1024个字符。如果需要在对Xpos：和Ypos成对出现，指定框的左边与屏幕左边的水平距离。如果省略该参Ypos：和Xpos成对出现，指定框的上边与屏幕上边的距离。如果省略该参数，SubSubCetUserName()DimTitleAsStringDimNameAsStringDimStrNameAsStringTitle输入用户名Name在选框中输入用户名："StrNameInputBox(NameTitle)Debug.Print用户名：End按功能键“F5”运行子过程，将弹出“输入个人信息”窗口，如图2.2所示。在对图2.2输入用户 图2.3输出结InputBoxInputBox函数的其他参案例 ExcelVBAMsgBox函数来显示提示信息。MsgBox函数可打开 数有5个参数，各参数的意义与Inputbox函数参数的意义类似。buttons参数，其含义是指定显示按钮的数目及形式、使用提示图标样式以及默认按钮等。其常数值如表2.1所示。2.1按钮常数值012345显示CriticalMessage图显示WarningQuery图显示InformationMessage图00（0~5（，，86（0，26，51（0，4096值组合起来，就是buttons参数的值。图2.4对象列 图2.5事件列PrivateSubWorksheet_Activate()MsgBoxPrivateSubWorksheet_Activate()MsgBox你激活了Sheet1工作表！")End2.6显示的提示信在本例中，使MsgBox函数的最简单形式，也就是直接MsgBox函数显示一案例 If逻辑表达式If逻辑表达式…语句nEndIf逻辑表达式可以是计算数值的表达式，VBA0False，而非零数值都被看True。该语句的执行顺序是：当逻辑表达式的值是True，则执行位于ThenEndIf之间的语句；当逻辑表达式False，则不执ThenEndIf之间的语句，直接跳出循环结构，其流程图如图2.7所示。假假2.7IfThen语句流程If…Then结构还有单行结构条件语句。其语法格式如下If逻辑表达式Then语 的值是False，则不执行Then后的语句。2.8原始数SubShowExcel()SubShowExcel()Fori=2ToIfSheets(1).Cells(i,2).Value>350ThenCells(i,2).Interior.ColorIndex=3EndEnd2.9运行结案例 面案例中的If…Then语句将，用户需要使用If...Then…Else语句。If逻辑表达式EndIf逻辑表达式End该语句的执行过程是：当逻辑表达式的值是True时，将执行“语句序列1”中的各条语句；当“逻辑表达式”的值为False时，就执行“语句序列2”中的各条语句，其流程图如2.102.10IfThenElse语句2.11原始数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的总额，其中原始数据如图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结构进行比较，可以发现SelectCase结构在处理多条件的情况下，要简洁很多。14计算自然数之和For…Next循环语句依次完成循环运算。其中，最典型的例子就是计算自然数的总和。当For循环变量=For循环变量=初始To[Step步长值]语句序列1[ExitNext循环变量1，并且可正可负。如果步长值为正，则初始值必须小于等于For…Next循环结构的流程图如图2.16所示。假Exit图 For…Next流程 SubSubDimclockAsIntegerDimsumAsLongDimcounterAsclock=sum=counter=Forcounter=1To1000sum=sum+clockclock=clock+1MsgBox &sumvbOKOnly计算自然数之和End2.17置参数Step的数值。案例 Excel中，由一种特殊的循环。在其循环结构中，其循环运算的范围是一个区域。…ForEach元素In对象集ForEach元素In对象集[ExitFor]出循环。在循环体中，用户可以设置多个ExitFor语句，退出循环。。SubSubDimcounterAsIntegerDimrngAsRangeForEachrngInRange("A1:E10")rng.Value=countercounterrng.Value=countercounter=counter+1End2.18为单元格区域赋案例 ExcelVBA2.19所示，左图是正确的嵌套关系，NextForLoopD