第2章vba基礎(chǔ)知識

劉珺郵箱:武漢大學(xué)·計算機學(xué)院ExcelVBA程序設(shè)計第一部分Excel

VBA開發(fā)平臺概述第二部分VBA基礎(chǔ)知識第三部分Excel

VBA對象模型第四部分用戶界面設(shè)計主要內(nèi)容22VBA的字符集、關(guān)鍵字和標(biāo)識符VBA的數(shù)據(jù)類型常量和變量運算符與表達(dá)式VBA流程控制語句VBA過程常用內(nèi)部函數(shù)第二部分VBA基礎(chǔ)知識(5)33VBA流程控制選擇結(jié)構(gòu)If...Then...ElseSelect...Case循環(huán)結(jié)構(gòu)Do…LoopFor…NextForEach…Next其他控制語句With語句Exit語句Goto語句4其他控制語句With語句作用：在一個單一對象上執(zhí)行一系列的語句。語法：With

對象

[語句]EndWith說明：With語句可以對某個對象執(zhí)行多條語句，而不用重復(fù)引用對象的名稱。例如，要改變一個對象的多個屬性，可以在With控制結(jié)構(gòu)中加上屬性的賦值語句，這時只需引用對象一次而不是在每個屬性賦值時都要引用它。不能用一個With語句來設(shè)置多個不同的對象。With語句可以嵌套以實現(xiàn)對多個對象的操作。使用時注意事項見備注頁5With語句示例使用With語句更改選中單元格的填充色和文字樣式，表示強調(diào)。Sub設(shè)置對象屬性()WithSelection

.Font.Bold=True'設(shè)置文字為加粗樣式

.Font.Size=15'設(shè)置文字大小

.Font.Name="隸書"'設(shè)置文字字體

.Font.Italic=True'設(shè)置文字為傾斜樣式

.Interior.Color=RGB(255,255,0)'設(shè)置單元格填充顏色為黃色

EndWithEndSub6其他控制語句Exit語句作用：退出Do...Loop、For...Next、Function、Sub或Property代碼塊。語法：ExitDoExitForExitFunctionExitPropertyExitSub說明：不要將Exit語句與End語句搞混了。Exit并不說明一個結(jié)構(gòu)的終止。7其他控制語句Goto語句作用：無條件地轉(zhuǎn)移到過程中指定的行。語法：GoToline說明：line參數(shù)可以是任意的行標(biāo)簽或行號。GoTo只能跳到它所在過程中的行。太多的GoTo語句，會使程序代碼不容易閱讀及調(diào)試。盡可能使用結(jié)構(gòu)化控制語句。8Goto語句示例SubGotoStatementDemo() DimNumber,MyString Number=1

IfNumber=1ThenGoToLine1ElseGoToLine2Line1: MyString="Numberequals1" GoToLastLine

Line2:‘下行語句根本不會執(zhí)行

MyString="Numberequals2"LastLine: Debug.PrintMyStringEndSub9VBA過程VBA程序是由過程組成的。過程是程序中最小的邏輯單元，通常是完成某個相對獨立的功能的代碼集合。任何程序代碼都需要有存放之地，模塊就是存放過程的容器?！安迦搿辈藛蜗碌摹澳K”命令過程分為Sub過程和Function過程（函數(shù)）。將光標(biāo)置于代碼窗口，然后點擊“插入”菜單下的“過程”命令Sub過程（子程序）沒有任何返回值的一段程序。以Sub

語句開頭，以EndSub語句結(jié)尾。Function過程（函數(shù)）用于建立用戶自定義函數(shù)，可以有返回值（可以是一個值或一個數(shù)組）。以Function語句開始并以EndFunction語句結(jié)束。調(diào)用方法與Excel內(nèi)部函數(shù)調(diào)用方法一致。10語法[Private|Public|Friend][Static]Sub

name[(arglist)]

[statements]

[ExitSub]

[statements]EndSub說明：name過程名，不可少，同變量名命名規(guī)則。arglist參數(shù)列表，可選的。多個參數(shù)用逗號隔開。arglist參數(shù)的語法詳見幻燈片的備注頁。形參（定義時）和實參（調(diào)用時主調(diào)函數(shù)給的參數(shù)值）函數(shù)調(diào)用時，實參向形參傳遞數(shù)據(jù)（按地址ByRef，按值ByVal）statements

可選的。Sub過程中所執(zhí)行的任何語句組。Sub過程語法11Sub過程示例示例1：如何執(zhí)行下面兩個過程？按兩次F5鍵可以嗎？SubMultiBeep(numbeeps)DimcounterAsLongForcounter=1TonumbeepsDebug.Printcounter'在立即窗口輸出counter的值Beep'蜂鳴器響一聲NextcounterEndSubSubMessage()MsgBox"運行結(jié)束!"EndSub說明：MultiBeep過程是有參過程，有參數(shù)的過程都不能直接使用F5鍵執(zhí)行。這時，需要用Call語句來調(diào)用過程。12Call語句調(diào)用示例新建一個過程，用Call語句調(diào)用MultiBeep過程和Message過程。SubMain()CallMultiBeep(5)CallMessageEndSub執(zhí)行流程：

Main過程調(diào)用MultiBeep過程，傳遞參數(shù)值5給numbeeps，運行MultiBeep過程后，返回Main過程。然后Main過程調(diào)用Message過程

，運行Message過程后，返回Main過程。Main過程結(jié)束。13省略Call的過程調(diào)用示例也可以省略Call，調(diào)用MultiBeep過程和Message過程。SubMain2()MultiBeep(5)MessageEndSubSubMain3()

MultiBeep5MessageEnd說明：

Main過程調(diào)用MultiBeep過程，傳遞參數(shù)值5給numbeeps，運行MultiBeep過程后，返回Main過程。14Call語句語法語法：Call

過程名過程參數(shù)列表

CallMultiBeep(5)MultiBeep(5)MultiBeep5說明：

Call：可選參數(shù)。如果使用了Call，則過程參數(shù)列表必須加上括號，如CallMultiBeep(5)如果省略了Call，則過程參數(shù)列表的括號可加可不加，過程名后有空格。過程名：不可缺少。過程參數(shù)列表：

過程在定義的時候規(guī)定的參數(shù)。15示例2：調(diào)用過程，計算每種貨品的銷售總價，缺少單價或件數(shù)時，給出提示。Sub過程創(chuàng)建與調(diào)用示例216點擊第4行，運行程序，計算出總價為60點擊第6行，運行程序，提示“數(shù)據(jù)不全，無法計算！”貨品的銷售總價17Submain_案例2()DimvAsInteger,cAsInteger'聲明變量

v=Cells(Selection.Row,2)'獲得單價

c=Cells(Selection.Row,3)'獲得件數(shù)

hejiv,c'調(diào)用子過程計算總價EndSubSubheji(a,b)'聲明子過程

DimpAsInteger'聲明總價變量

Ifa=0Orb=0Then

'是否缺少數(shù)據(jù)

MsgBox"數(shù)據(jù)不全，無法計算！"'缺少數(shù)據(jù)則給出提示

ExitSub‘出錯，退出子過程

EndIfp=a*b'計算總價

Cells(Selection.Row,4)=p'寫入單元格EndSub注意：Cells(行號,列號)表示相應(yīng)的單元格Selection.Row表示選中行的行號練習(xí)1：輸出數(shù)字回文塔，要求定義和調(diào)用子過程Pyramid(n)，它的功能是輸出一個有n行的回文塔圖形。例如：Pyramid(5)的輸出形式如下圖：共有兩個過程：main_Pyramid()、Pyramid(n)要求在main_Pyramid過程中輸入n值，

然后調(diào)用Pyramid(n)過程，輸出對應(yīng)的圖形。Pyramid(n)過程中使用For循環(huán)嵌套結(jié)構(gòu)實現(xiàn)算法，并在立即窗口輸出回文塔圖形。（Debug.print）Debug.print使用的有關(guān)說明見下張幻燈片：Sub過程創(chuàng)建與調(diào)用課堂練習(xí)與作業(yè)18Debug.print使用分號;直接將插入點定位在上一個被顯示的字符之后。省略分號;則在下一行顯示下一字符。例如：Debug.Print"";輸出顯示一個空格，下一個顯示字符緊跟在空格后面Debug.Print""&k;輸出顯示數(shù)字字符k，下一個顯示字符緊跟在k后面Debug.Print回車換行，到下一行顯示輸出Debug.print的有關(guān)說明19語法[Private|Public|Friend][Static]Function

name[(arglist)][Astype]

[statements]

[name=expression]

[ExitSub]

[statements]EndFunction與Sub的區(qū)別：[Astype]定義函數(shù)返回值的類型[name=expression]

通過賦值，得到函數(shù)的返回值。若沒有賦值，則默認(rèn)返回0(數(shù)值函數(shù))，空字符串（字符串函數(shù)）或者Empty（Variant函數(shù)）Function過程(函數(shù))語法注意：name函數(shù)名arglist參數(shù)列表name=expression函數(shù)名=表達(dá)式20示例3：通過函數(shù)提取單元格中夾在文字中的數(shù)字，根據(jù)這些數(shù)字計算每種貨品的總價。Function函數(shù)示例點擊第3行，運行程序，計算出總價為900第4，5行類似計算21內(nèi)置函數(shù)：IsNumeric(expression)判斷參數(shù)是不是數(shù)字，返回True或FalseMid(string,start[,n])返回字符串string從start開始向右長度為n的子字符串示例3：通過函數(shù)提取單元格中夾在文字中的數(shù)字，根據(jù)這些數(shù)字計算每種貨品的總價。Submain_getNum()DimaAsInteger,bAsInteger'聲明變量

a=getNumber(Cells(Selection.Row,1))

'調(diào)用函數(shù)獲得貨品件數(shù)

b=getNumber(Cells(Selection.Row,2))

'調(diào)用函數(shù)獲得單價值

Cells(Selection.Row,3)=a*b'相乘得到總價并寫入單元格EndSubFunctiongetNumber(gAsString)AsInteger'聲明函數(shù)

DimiAsInteger '聲明變量

Fori=1ToLen(g) '遍歷文字中所有字符

IfIsNumeric(Mid(g,i,1))Then'判斷當(dāng)前字符是否為數(shù)字

getNumber=getNumber&Mid(g,i,1)'是數(shù)字則拼裝數(shù)字

EndIfNextEndFunctionFunction函數(shù)示例22函數(shù)名函數(shù)值類型功能示例返回值A(chǔ)bs(N)與N相同返回N的絕對值A(chǔ)bs(-4*4)16Cos(N)Double返回N的余弦值Cos(0)1Exp(N)Double返回eN的指數(shù)值Exp(1)2.71828182Fix(N)Double去掉小數(shù)點取整Fix(5.78)Fix(-5.78)5-5Int(N)Double返回不大于N的最大整數(shù)Int(5.78)Int(-5.78)5-6常用內(nèi)部函數(shù)數(shù)學(xué)函數(shù)23函數(shù)名函數(shù)值類型功能示例返回值Trim(S)String去掉S左右兩邊空格字符Trim(“人”)“人”LTrim(S)String去掉S左邊空格字符LTrim(“人”)“人”RTrim(S)String去掉S右邊空格字符RTrim(“人”)“人”Left(S,N)String從S左邊截取N個字符Left(“Hello”,2)“He”Rigth(S,N)String從S右邊截取N個字符Rigth(“Hello”,2)“l(fā)o”Len(S)Integer測試S的字符個數(shù)Len(“中國-China”)8常用內(nèi)部函數(shù)字符串函數(shù)（1）24函數(shù)名函數(shù)值類型功能示例返回值Mid(S,N1[,N2])String從S中第N1個字符開始截取N2個字符Mid(“Computer”,4,3)Mid(“Computer”,4)“put”“puter”Space(N)String產(chǎn)生N個空格字符“中”+Space(2)+”國”“中國”Ucase(S)String將S的小寫字母改為大寫Ucase(“Visual”)“VISUAL”Lcase(S)String將S的大寫字母改為小寫Lcase(“Visual”)“visual”String(N,S)String重復(fù)輸出N個S字符String(5,”*”)“*****”常用內(nèi)部函數(shù)字符串函數(shù)（2）25函數(shù)名函數(shù)值類型功能示例返回值A(chǔ)sc(S)Integer給出S首字符的ASCII碼值A(chǔ)sc(“ASDC”)65Chr(N)String給出ASCII碼值是N的字符Chr(97)“a”Str(N)String將數(shù)字N轉(zhuǎn)換為字符型Str(-234)“-234”Val(S)Double將數(shù)字字符串轉(zhuǎn)換為數(shù)字Val(“-234”)Val(“12AB”)-23412CDate(s)Date將S轉(zhuǎn)為日期型表達(dá)式CDate(“3-15-2011”)2011-3-15常用內(nèi)部函數(shù)轉(zhuǎn)換函數(shù)26函數(shù)名函數(shù)值類型功能示例返回值Day(D|S)Integer返回月中第幾天（1~31）Day(“2002-5-20”)20Month(D|S)Integer返回一年中第幾個月（1~12）Mo