VBA編程系列之VBA的運(yùn)算符和表達(dá)式.doc

VBA編程系列之VBA的運(yùn)算符和表達(dá)式整理了近兩天,貼出來(lái)供分享!VBA的運(yùn)算符和表達(dá)式摘要 本文從廣義的角度將VBA的運(yùn)算符進(jìn)行了全面的歸納和總結(jié)，包括通常意義上的算術(shù)運(yùn)算符、連接運(yùn)算符、比較運(yùn)算符和邏輯運(yùn)算符，還包括了賦值運(yùn)算符、點(diǎn)運(yùn)算符以及Like運(yùn)算符、AddressOf運(yùn)算符等。同時(shí)，概述了表達(dá)式的知識(shí)。提示 學(xué)習(xí)是需要思考和實(shí)踐的，只有舉一反三，才能真正理解和掌握。因?yàn)閂BA的一些運(yùn)算符涉及到較強(qiáng)的邏輯關(guān)系，您在閱讀本文時(shí)，可以不斷思考它們之間的邏輯關(guān)系。同時(shí)，您可以在VBE編輯器的模塊中測(cè)試本文中的一些語(yǔ)句和示例，以加深認(rèn)識(shí)。在使用VBA編程時(shí)，您一定會(huì)經(jīng)常使用到VBA運(yùn)算符，它是VBA程序的重要組成部分。在本文中，我將運(yùn)算符分為兩大類，一類是通常意義上的運(yùn)算符，即：算術(shù)運(yùn)算符、連接運(yùn)算符、比較運(yùn)算符和邏輯運(yùn)算符；另一類是與語(yǔ)句相關(guān)的運(yùn)算符，即：賦值運(yùn)算符和點(diǎn)運(yùn)算符。此外，還簡(jiǎn)略地介紹一下Like運(yùn)算符和AddressOf運(yùn)算符。您通過(guò)使用運(yùn)算符，對(duì)VBA各種元素進(jìn)行連接，或者完成一些運(yùn)算以形成了VBA表達(dá)式或語(yǔ)句。再進(jìn)一步說(shuō)，表達(dá)式是數(shù)字、字符串、常量、變量、對(duì)象成員、以及運(yùn)算符的組合。算術(shù)運(yùn)算符和表達(dá)式 算術(shù)運(yùn)算符包括+(加法運(yùn)算符)、- (減法運(yùn)算符)、/ (除法運(yùn)算符)、(整除運(yùn)算符)、Mod(取模運(yùn)算符)、(乘冪運(yùn)算符)，下面逐一進(jìn)行介紹。+ 加法運(yùn)算符。形成數(shù)值表達(dá)式，并將數(shù)值或數(shù)值表達(dá)式相加。也可用于連接兩個(gè)字符串變量，但建議用連接運(yùn)算符進(jìn)行連接。例如，結(jié)果=表達(dá)式1+表達(dá)式2。- 減法運(yùn)算符。形成數(shù)值表達(dá)式，將數(shù)值或數(shù)值表達(dá)式相減。也可用在數(shù)值之前，用于表示負(fù)數(shù)。例如，結(jié)果=表達(dá)式1-表達(dá)式2。* 乘法運(yùn)算符。形成數(shù)值表達(dá)式，將數(shù)值或數(shù)值表達(dá)式相乘。例如，結(jié)果=表達(dá)式1*表達(dá)式2。/ 除法運(yùn)算符。形成數(shù)值表達(dá)式，將兩個(gè)數(shù)值或數(shù)值表達(dá)式相除，其中除數(shù)不能為零，否則會(huì)得到一個(gè)錯(cuò)誤。例如，結(jié)果=表達(dá)式1/表達(dá)式2。 整除運(yùn)算符。將兩個(gè)數(shù)值或數(shù)值表達(dá)式相除，并返回一個(gè)整數(shù)，即舍掉余數(shù)或者小數(shù)部分。例如，結(jié)果=表達(dá)式1表達(dá)式2。例如，73的值為2。Mod 取模運(yùn)算符。將兩個(gè)數(shù)值或數(shù)值表達(dá)式相除，并只返回余數(shù)。例如，結(jié)果=表達(dá)式1 Mod 表達(dá)式2。例如，7 Mod 3的值為1。 乘冪運(yùn)算符。計(jì)算數(shù)值或數(shù)值表達(dá)式的乘冪。例如，結(jié)果=數(shù)值 指數(shù)。 算術(shù)運(yùn)算符的優(yōu)先順序算術(shù)運(yùn)算符的優(yōu)先順序依次為：乘冪運(yùn)算符()乘法和除法運(yùn)算符(*、/，兩者沒(méi)有優(yōu)先順序)整除運(yùn)算符()取模運(yùn)算符(Mod)加法和減法運(yùn)算符(+、-，兩者沒(méi)有優(yōu)先順序)。若在同一代碼中多次使用同一個(gè)算術(shù)運(yùn)算符，則從左到右運(yùn)算。使用括號(hào)可以改變優(yōu)先順序。連接運(yùn)算符和表達(dá)式& 連接運(yùn)算符，用于連接字符串。它能把一些字符串變量連接在一起，形成一個(gè)新的字符串。在進(jìn)行連接運(yùn)算之前，任何非字符串變量或表達(dá)式都轉(zhuǎn)換為字符串。例如，結(jié)果=字符串1&字符串2，其結(jié)果的數(shù)據(jù)類型為String類型。+ 混合連接運(yùn)算符，它運(yùn)用很靈活，但會(huì)與加法運(yùn)算符相混，給您的閱讀帶來(lái)不便。例如，結(jié)果=表達(dá)式1+表達(dá)式2，其結(jié)果的數(shù)據(jù)類型取決于表達(dá)式的數(shù)據(jù)類型。下面對(duì)這兩種連接運(yùn)算符進(jìn)行測(cè)試，測(cè)試表達(dá)式為： 結(jié)果=表達(dá)式1+表達(dá)式2當(dāng)兩個(gè)表達(dá)式都是數(shù)值數(shù)據(jù)時(shí)，用&運(yùn)算符會(huì)將兩個(gè)數(shù)值數(shù)據(jù)連接，如5 & 1連接后為51，但用+運(yùn)算符后，會(huì)將兩數(shù)值相加得到其結(jié)果，如5+1進(jìn)行連接后為6。當(dāng)兩個(gè)表達(dá)式都是字符串(Sting)時(shí)，將對(duì)兩個(gè)字符串進(jìn)行連接為一個(gè)字符串。當(dāng)兩個(gè)表達(dá)式為空時(shí)，+運(yùn)算符的結(jié)果為0，而&運(yùn)算符的結(jié)果為Null值。當(dāng)一個(gè)表達(dá)式為數(shù)值類型數(shù)據(jù)，另一個(gè)表達(dá)式為字符串類型數(shù)據(jù)時(shí)，+運(yùn)算符將產(chǎn)生類型不匹配的錯(cuò)誤，而&運(yùn)算符則將兩個(gè)表達(dá)式連接。未聲明變量時(shí)，當(dāng)一個(gè)表達(dá)式為數(shù)字，另一個(gè)表達(dá)式為字母時(shí)，+運(yùn)算符和&運(yùn)算符的結(jié)果均為數(shù)字，如j=7,k=student,i=j+k與i=j&k的結(jié)果均為7。當(dāng)兩個(gè)表達(dá)式都為空時(shí)，+運(yùn)算符結(jié)果為0，而&運(yùn)算符結(jié)果為Null值。提示 您可以在VBE中調(diào)試，看看它們?cè)诟鞣N情況下的區(qū)別。比較運(yùn)算符和表達(dá)式 比較運(yùn)算符包括(大于)、=(等于)、=(大于或等于)、=(小于或等于)、(不等于)，用于數(shù)據(jù)元素的比較，其一般的語(yǔ)法為： 結(jié)果=表達(dá)式1 表達(dá)式2結(jié)果為True(1)、False(0)或者為Null。其中比較運(yùn)算符可以單獨(dú)使用，也可以兩兩結(jié)合使用。如果表達(dá)式1或者表達(dá)式2本身為Null時(shí)才會(huì)產(chǎn)生Null的結(jié)果。下面結(jié)合上述語(yǔ)法，對(duì)這些比較運(yùn)算產(chǎn)生的結(jié)果為True或False時(shí)所需要的條件進(jìn)行說(shuō)明： 表達(dá)式1大于并且不等于表達(dá)式2時(shí)，其結(jié)果為True；否則，為False。= 表達(dá)式1大于或者等于表達(dá)式2時(shí)，其結(jié)果為True；否則，為False。= 表達(dá)式1小于或者等于表達(dá)式2時(shí)，其結(jié)果為True；否則，為False。 表達(dá)式1不等于表達(dá)式2時(shí)，其結(jié)果為True；否則，為False。比較運(yùn)算符可用于數(shù)值比較或字符串變量比較，也可用于數(shù)值與字符串的比較。如果其中一個(gè)表達(dá)式是數(shù)值，另一個(gè)是字符串，則數(shù)值表達(dá)式總是“小于”字符串表達(dá)式；如果都是字符串，則最大的字符串就是最長(zhǎng)的字符串；如果字符串一樣長(zhǎng)，則小寫的大于大寫的。還有一個(gè)比較運(yùn)算符，即Is運(yùn)算符，可用于判斷兩個(gè)對(duì)象變量是否指向同一個(gè)對(duì)象，其語(yǔ)法為： 結(jié)果=對(duì)象1 Is 對(duì)象2如果對(duì)象1和對(duì)象2都指向同一個(gè)對(duì)象，其結(jié)果為True；否則，結(jié)果為False。還可以用Is運(yùn)算符來(lái)判斷一個(gè)對(duì)象變量是否符合要求，例如，條件判斷語(yǔ)句If objVar Is Nothing Then 表明，如果對(duì)象變量objVar沒(méi)有對(duì)象引用，則為True，執(zhí)行Then后面的語(yǔ)句。 比較運(yùn)算符的優(yōu)先順序。如果多個(gè)比較運(yùn)算符出現(xiàn)在同一行代碼中，則按從左到右的順序計(jì)算。邏輯運(yùn)算符和表達(dá)式 邏輯運(yùn)算符允許對(duì)一個(gè)或多個(gè)表達(dá)式進(jìn)行運(yùn)算，并返回一個(gè)邏輯值。VBA的邏輯運(yùn)算符包括：And(邏輯與)、Or(邏輯或)、Not(邏輯非)、Eqv(與或)、Imp(蘊(yùn)含)、Xor(異或)。And 執(zhí)行邏輯與運(yùn)算，即如果表達(dá)式1和表達(dá)式2都是True，則結(jié)果返回True；只要其中一個(gè)表達(dá)式為False，其結(jié)果就是False；如果有表達(dá)式為Null，則結(jié)果為Null。其語(yǔ)法為：結(jié)果=表達(dá)式1 And 表達(dá)式2例如，If x1 And y1 Or y10 Then，表示如果x的值大于1，或者y的值小于10，則執(zhí)行Then后面的代碼。又如，語(yǔ)句MsgBox Range(“A1”)=1 Or Range(“B1”)=2表示如果當(dāng)前工作表中的單元格A1中的值為1或者單元格B1中的值為2時(shí)，消息框?qū)@示True。Not 對(duì)一個(gè)表達(dá)式進(jìn)行邏輯非運(yùn)算，即如果表達(dá)式為True，則Not運(yùn)算符使該表達(dá)式變成False；如果表達(dá)式為False，則Not運(yùn)算符使該表達(dá)式變成True；如果表達(dá)式為Null，則Not運(yùn)算符的結(jié)果仍然是Null。其語(yǔ)法為： 結(jié)果=Not 表達(dá)式例如，If Not IsError(x) Then，如果IsError返回False則執(zhí)行Then后面的代碼，表示x中不包含錯(cuò)誤。又如，語(yǔ)句Selection.Font.Bold=Not Selection.Font.Bold，其中Bold屬性的值為True或False，使用Not運(yùn)算符會(huì)將值False改為True，將值True改為False，這樣可用于切換所選單元格是否“加粗”。這也是VBA程序編寫時(shí)的一個(gè)技巧，我們可以運(yùn)用Not運(yùn)算符模仿工具欄“加粗”、“斜體”等按鈕的工作模式，如當(dāng)我們點(diǎn)擊“加粗”按鈕時(shí)，所選單元格中的字體將加粗顯示，再次單擊“加粗”按鈕，單元格中的字體又正常顯示了。Eqv 執(zhí)行與或運(yùn)算，即判斷兩個(gè)表達(dá)式是否相等，當(dāng)兩個(gè)表達(dá)式都是True或者都是False時(shí)，結(jié)果返回True；若一個(gè)表達(dá)式為True而另一個(gè)表達(dá)式為False時(shí)，結(jié)果返回False。其語(yǔ)法為： 結(jié)果=表達(dá)式1 Eqv 表達(dá)式2Imp 執(zhí)行邏輯蘊(yùn)含運(yùn)算，其語(yǔ)法為： 結(jié)果=表達(dá)式1 Imp 表達(dá)式2當(dāng)兩個(gè)表達(dá)式都為True和兩個(gè)表達(dá)式都為False時(shí)，其結(jié)果為True；當(dāng)表達(dá)式1為True，表達(dá)式2為False時(shí)，其結(jié)果為False；當(dāng)表達(dá)式1為False，表達(dá)式2為True時(shí)，其結(jié)果為True；當(dāng)表達(dá)式1為False，表達(dá)式2為Null時(shí)，其結(jié)果為True；當(dāng)表達(dá)式1為True，表達(dá)式2為Null時(shí)，其結(jié)果為Null；當(dāng)表達(dá)式1為Null，表達(dá)式2為True時(shí)，其結(jié)果為True；當(dāng)表達(dá)式1為Null，表達(dá)式2為False時(shí)，其結(jié)果為Null；當(dāng)兩個(gè)表達(dá)式都為Null時(shí)，其結(jié)果為Null。上面的表述可能有點(diǎn)繞口，概括地說(shuō)，不管表達(dá)式1，當(dāng)表達(dá)式2為真時(shí)，其結(jié)果為True；當(dāng)兩個(gè)表達(dá)式都為False，或者表達(dá)式1為False，表達(dá)式2為Null時(shí)，其結(jié)果為True；當(dāng)表達(dá)式1為True，表達(dá)式2為False時(shí)，結(jié)果為False；其它情況則為Null。Xor 執(zhí)行邏輯異或運(yùn)算，用于判斷兩個(gè)表達(dá)式是否不同。若兩個(gè)表達(dá)式都是True或都是False時(shí)，其結(jié)果就是False；如果只有一個(gè)表達(dá)式是True，其結(jié)果就是True；如果兩個(gè)表達(dá)式中有一個(gè)是Null，其結(jié)果是Null。其語(yǔ)法為：結(jié)果=表達(dá)式1 Xor 表達(dá)式2 邏輯運(yùn)算符的優(yōu)先順序邏輯運(yùn)算符的優(yōu)先順序依次為：NotAndOrXorEqvImp。如果在同一行代碼中多次使用相同的邏輯運(yùn)算符，則從左到右進(jìn)行運(yùn)算。運(yùn)算符的優(yōu)先順序如果您不了解運(yùn)算符的優(yōu)先級(jí)別(即哪個(gè)運(yùn)算符優(yōu)先運(yùn)算，哪個(gè)運(yùn)算符最后才運(yùn)算)，您的表達(dá)式可能會(huì)出現(xiàn)意想不到的結(jié)果。在前面的小節(jié)中，介紹了同一類運(yùn)算符的優(yōu)先順序。如果在一行代碼中包括多個(gè)運(yùn)算符，則其進(jìn)行運(yùn)算的優(yōu)先順序是不相同的。運(yùn)算符的優(yōu)先級(jí)會(huì)影響到表達(dá)式的最終結(jié)果。當(dāng)一行代碼中包括幾類運(yùn)算符時(shí)，其優(yōu)先順序?yàn)椋核阈g(shù)運(yùn)算符連接運(yùn)算符比較運(yùn)算符邏輯運(yùn)算符。如果您要改變同類或不同類運(yùn)算符的優(yōu)先順序，可以使用括號(hào)，括號(hào)內(nèi)的表達(dá)式總比括號(hào)外的優(yōu)先進(jìn)行運(yùn)算。Like運(yùn)算符Like運(yùn)算符用于判斷給定的字符串是否與指定的模式相匹配，其語(yǔ)法為：結(jié)果=字符串 Like 模式其中，字符串為要與模式相比較的字符串，如果字符串與指定的模式相匹配，則結(jié)果為True；否則，其結(jié)果為False。如果字符串或者模式Null，則結(jié)果為Null。在模式中可使用一些特殊字符，其它的字符都能與它們相匹配，這些字符有：?代表任意一個(gè)字符；*代表0或多個(gè)字符；#代表任意一個(gè)數(shù)字(0-9)；charlist代表字符列表中的任意一個(gè)字符；!charlist代表不在字符列表中的任意一個(gè)字符；代表空字符串(“”)。Charlist將模式中的一組字符與字符串中的一個(gè)字符進(jìn)行匹配，可以包含任何一種字符，包括數(shù)字；在Charlist中使用連字號(hào)(-)產(chǎn)生一組字符來(lái)與字符串中的一個(gè)字符相匹配，如A-D與字符串相應(yīng)位置的A、B、C或D匹配；在Charlist中可以產(chǎn)生多組字符，如A-D H-J；各組字符必須是按照排列順序出現(xiàn)的；在Charlist的開(kāi)頭或結(jié)尾使用連字號(hào)(-)或以與連字號(hào)自身相匹配，例如-H-N與連字號(hào)(-)或H到N之間的任何字符相匹配；在Charlist中的一個(gè)字符或者一組字符前加上！號(hào)，表明與該字符或該組字符之外的所有字符匹配，如！H-N與字符H-N范圍之外的所有字符匹配；而在外使用！號(hào)則只匹配其自身。要使用任何特殊字符作為匹配字符，只需將它放在中即可，例如？表明要與一個(gè)問(wèn)號(hào)進(jìn)行匹配。下面給出一個(gè)例子。打開(kāi)一個(gè)工作簿，選擇菜單“工具宏Visual Basic編輯器”或按Alt+F11組合鍵，打開(kāi)VBE編輯器。在VBE編輯器中，選擇菜單“插入用戶窗體”，新建一個(gè)用戶窗體，點(diǎn)擊控件工具箱中的“文本框”控件和“按鈕”控件，在用戶窗體上放置一個(gè)“文本框”和一個(gè)“按鈕”，并在用戶窗體中對(duì)它們的大小和位置進(jìn)行合理調(diào)整，雙擊剛創(chuàng)建的“按鈕”控件，并輸入下面的代碼：Private Sub CommandButton1_Click() Dim sEnd As String, sPattern As String sEnd = in Office sPattern = F W* & sEnd If TextBox1.Text Like sPattern Then MsgBox 輸入正確 Else MsgBox 輸入錯(cuò)誤 End IfEnd Sub本代碼中F W*表示字符以F或W開(kāi)頭的字符串，使用&連接符將其與變量sEnd所代表的字符串“in Office”相連接。如果您在文本框中輸入以字符F或字符W開(kāi)頭并以“in Office”結(jié)尾的句子，將顯示“輸入正確”消息框，否則將顯示“輸入錯(cuò)誤”的消息框。在VBE編輯器中點(diǎn)擊運(yùn)行按鈕或按F5鍵，運(yùn)行該代碼試試。當(dāng)您在文本框中輸入“Fanjy in Office”后，單擊按鈕，將顯示“輸入正確”消息框。AddressOf運(yùn)算符AddressOf運(yùn)算符將過(guò)程的地址傳遞給API函數(shù)。其語(yǔ)法為 AddressOf 過(guò)程名其中，過(guò)程名為需要傳遞給API函數(shù)地址的過(guò)程名稱。AddressOf運(yùn)算符后面必須是用戶定義的函數(shù)名、過(guò)程名或?qū)傩悦?，且該過(guò)程或函數(shù)必須保存在代碼模塊中。賦值運(yùn)算符在VBA中使用等號(hào)(=)作為賦值運(yùn)算符，它將其右側(cè)的數(shù)據(jù)或者表達(dá)式的結(jié)果賦給左側(cè)的變量，使其在程序代碼中運(yùn)用。例如，x=666，Range(“A1”).Value=”Dog”。點(diǎn)運(yùn)算符在VBA中，使用點(diǎn)運(yùn)算符來(lái)引用某個(gè)對(duì)象。運(yùn)用點(diǎn)運(yùn)算符，可以限定所引用的對(duì)象的位置，清楚地表明該對(duì)象的層次結(jié)構(gòu)，還可以指定某對(duì)象的方法或?qū)傩?。例如，語(yǔ)句Workbooks(“Book1.xls”).Worksheets(“Sheet1”).Range(“A1”)表明對(duì)工作簿Book1中的工作表Sheet1上的單元格A1的引用；又如，語(yǔ)句Msgbox Worksheets(“Sheet1”).Range(“A1”).Value表明顯示當(dāng)前工作簿中工作表Sheet1上單元格A1的值。By fanjy in 2006-7-11運(yùn)算子優(yōu)先順序 當(dāng)一個(gè)運(yùn)算式中有數(shù)個(gè)動(dòng)作發(fā)生時(shí)，各部分的動(dòng)作會(huì)在預(yù)先決定的順序下完成，而此順序就是運(yùn)算子的優(yōu)先順序。當(dāng)運(yùn)算式中有超過(guò)一種運(yùn)算子時(shí)，會(huì)先執(zhí)行算術(shù)運(yùn)算子，其次是比較運(yùn)算子，而後才是邏輯運(yùn)算子。比較運(yùn)算子的優(yōu)先順序全都是相同的，也就是說(shuō)依照出現(xiàn)的順序由左到右依序執(zhí)行。而算術(shù)和邏輯運(yùn)算子則必須依照下列的優(yōu)先順序，依序執(zhí)行：算術(shù)比較邏輯指數(shù)運(yùn)算()相等(=)Not負(fù)數(shù)(-)不等()And乘法和除法(*、 /)小於()Xor餘數(shù)運(yùn)算(Mod)小於或相等(=)Imp字串連結(jié)(&)LikeIs若乘法和除法同時(shí)存在於運(yùn)算式中，則計(jì)算時(shí)的順序就是依照其左右位置來(lái)決定。同樣地，若加法和減法同時(shí)存在於一個(gè)運(yùn)算式中，計(jì)算時(shí)的順序就是依照其左右位置來(lái)決定。括號(hào)則可推翻優(yōu)先順序的等級(jí)，並且強(qiáng)迫運(yùn)算式的某些部分必須優(yōu)先執(zhí)行。括號(hào)內(nèi)要比括號(hào)外部的先執(zhí)行。然而，括號(hào)中運(yùn)算子的優(yōu)先順序與正常情況是一樣的。字串連結(jié)運(yùn)算子(&)不是算術(shù)運(yùn)算子，但是在優(yōu)先順序上它會(huì)落在所有算術(shù)運(yùn)算子之後，且在所有比較運(yùn)算子之前。Like 的優(yōu)先順序和所有比較運(yùn)算子相同，但它實(shí)際上是屬於模式比對(duì)運(yùn)算子。Is 運(yùn)算子是一個(gè)物件引用比較運(yùn)算子。它並非比較物件或是它們的值；而是檢查兩個(gè)物件是否引用到相同的物件。AddressOf 運(yùn)算子 一個(gè)單項(xiàng)運(yùn)算符，它將其後面的程序位址傳遞給 API 程序，該 API 程序在引數(shù)資料表對(duì)應(yīng)位置中需要一個(gè)函數(shù)指標(biāo)。語(yǔ)法AddressOf procedurename必需的 procedurename 指定要傳遞的位址是哪一個(gè)程序位址。這個(gè)程序必須是發(fā)出呼叫指令的專案中之一個(gè)一般模組模組裡的一個(gè)程序。請(qǐng)注意當(dāng)一個(gè)程序的名稱出現(xiàn)在一個(gè)引數(shù)清單中時(shí)，通常已經(jīng)進(jìn)行該程序的評(píng)估，