VBA編程及應(yīng)用基礎(chǔ)課件第2章 VBA編程基礎(chǔ)

VBA編程基礎(chǔ)本講內(nèi)容變量數(shù)據(jù)類型運(yùn)算符與表達(dá)式常用內(nèi)部函數(shù)變量一個(gè)問(wèn)題：如何交換兩個(gè)杯子中的可樂(lè)？變量如何交換A1和B1兩個(gè)單元格的值？SubTest()x=Range("A1").ValueRange("A1").Value=Range("B1").ValueRange("B1").Value=xEndSub變量變量是指在程序運(yùn)行過(guò)程中其值可以改變的量說(shuō)明（P.22）：變量用于存儲(chǔ)程序運(yùn)行中的臨時(shí)數(shù)據(jù)變量有一定類型，占用一定空間變量命名規(guī)則：字母打頭，最長(zhǎng)255個(gè)字符。等如：Sum、x_1等數(shù)據(jù)類型數(shù)據(jù)是指可以被計(jì)算機(jī)處理的信息，是程序的必要組成部分，也是程序處理的對(duì)象數(shù)據(jù)分類的目的是為了快速處理數(shù)據(jù)和有效利用存儲(chǔ)空間不同的數(shù)據(jù)類型占用的存儲(chǔ)空間不同、或者存儲(chǔ)格式不一樣，VBA中常用的數(shù)據(jù)類型：數(shù)值型、字符型、邏輯型、對(duì)象型數(shù)據(jù)類型數(shù)值型字節(jié)型Byte：1字節(jié)整型Integer：2字節(jié)長(zhǎng)整型Long：4字節(jié)單精度浮點(diǎn)數(shù)Single：4字節(jié)雙精度浮點(diǎn)數(shù)Double：8字節(jié)貨幣型Currency：8字節(jié)數(shù)據(jù)類型字符型定長(zhǎng)String

*N

(N∈[1,65535])不定長(zhǎng)String數(shù)據(jù)類型邏輯型Boolean：2字節(jié)對(duì)象型任何對(duì)象Object工作簿W(wǎng)orkbook工作表Worksheet區(qū)域Range變量聲明變量聲明的目的是說(shuō)明變量的作用域和變量的類型，以便為變量分配內(nèi)存空間和及時(shí)回收內(nèi)存空間建議變量先聲明再使用，在[通用][聲明]中寫(xiě)OptionExplicit語(yǔ)句變量聲明變量類型的顯式說(shuō)明：Dim語(yǔ)句，語(yǔ)法：Dim變量名[As數(shù)據(jù)類型][,變量名[As數(shù)據(jù)類型]…]舉例：DimaAsSingleDimintCountAsInteger,strPhoneAsString*8如何將i和j聲明為整型變量？Dimi,jAsIntegerDimiAsInteger,jAsInteger

√實(shí)踐編寫(xiě)一個(gè)宏，以A1單元格中的數(shù)值作為半徑，求出圓的周長(zhǎng)與面積，并將它們分別寫(xiě)入B1單元格和B2單元格常量除了變量，數(shù)據(jù)還可以分為常量。常量是指在程序執(zhí)行之前就已經(jīng)確定了值，并且在程序執(zhí)行過(guò)程中，其值不會(huì)發(fā)生改變的量VBA中有三種形式的常量：直接常量符號(hào)常量系統(tǒng)常量常量直接常量也叫一般常量，用戶直接書(shū)寫(xiě)的值，如：18、1.25、”China”、True、False符號(hào)常量用符號(hào)表示的常量，定義格式如下：Const常量名[As數(shù)據(jù)類型]=常量表達(dá)式如：ConstPI=3.1415926使用符號(hào)常量可以減少程序出錯(cuò)的可能性，加快程序的修改和提高程序的可讀性常量系統(tǒng)常量VBA提供的系統(tǒng)內(nèi)部已經(jīng)定義好的常量，可以直接使用，分為VBA系統(tǒng)常量和Excel系統(tǒng)常量VBA系統(tǒng)常量以小寫(xiě)字母“vb”開(kāi)頭，例如色彩常量“vbBlack”表示黑色。Excel系統(tǒng)常量通常以小寫(xiě)字母“xl”開(kāi)頭系統(tǒng)常數(shù)采用大小寫(xiě)混合的格式，用戶可以通過(guò)在VBE中單擊“視圖”菜單下的“對(duì)象瀏覽器”命令，在打開(kāi)的“對(duì)象瀏覽器”中查看系統(tǒng)常量的具體值運(yùn)算符與表達(dá)式運(yùn)算符是對(duì)特定數(shù)據(jù)執(zhí)行運(yùn)算任務(wù)的操作符將常量、變量和函數(shù)等用運(yùn)算符連接起來(lái)的運(yùn)算式稱為表達(dá)式常見(jiàn)的4種基本運(yùn)算符：算術(shù)運(yùn)算符連接運(yùn)算符比較運(yùn)算符邏輯運(yùn)算符算術(shù)運(yùn)算符運(yùn)算符+-*/\Mod^名稱加法減法/取負(fù)乘法浮點(diǎn)除法整數(shù)除法取模指數(shù)說(shuō)明：/

：浮點(diǎn)除法，如10/3的結(jié)果為3.3333333\

：整數(shù)除法，若操作數(shù)不是整數(shù)，則通過(guò)舍去小數(shù)

部分再進(jìn)行整除，如10\3的結(jié)果為3，11.6\4的結(jié)

果為3Mod：取模運(yùn)算，返回兩個(gè)數(shù)（若是浮點(diǎn)數(shù)則四舍五入

為整數(shù)）相除的余數(shù)，如12Mod5的結(jié)果為2，19

Mod6.7的結(jié)果為5^

：指數(shù)運(yùn)算，進(jìn)行乘冪運(yùn)算，如3^2的結(jié)果為9算術(shù)表達(dá)式算術(shù)表達(dá)式與數(shù)學(xué)表達(dá)式的區(qū)別不能漏寫(xiě)運(yùn)算符，如3xy應(yīng)寫(xiě)為3*x*y算術(shù)表達(dá)式中使用的括號(hào)都是圓括號(hào)，如

((a-b)^2+(a+b)^2)*c算術(shù)運(yùn)算符的優(yōu)先級(jí)：()、^、*/、\、MOD、+-練習(xí)：表達(dá)式2^3/3Mod9\4的值為？答案：1連接運(yùn)算符連接運(yùn)算符用來(lái)連接兩個(gè)以上的字符串，使其成為一個(gè)單一的字符串。VBA中有兩個(gè)：&

運(yùn)算符。任何非字符串變量或表達(dá)式在進(jìn)行&連接前都會(huì)被轉(zhuǎn)換為字符串，如

+

運(yùn)算符。操作數(shù)都是字符串時(shí)才可以進(jìn)行連接運(yùn)算，如"Visual"&"Basic"的結(jié)果為"VisualBasic""Excel"&2010的結(jié)果為"Excel2010"4&5的結(jié)果為字符串"45""Visual"+"Basic"的結(jié)果為"VisualBasic""Excel"+2010運(yùn)行結(jié)果出錯(cuò)，提示“類型不匹配”4+5的結(jié)果為整數(shù)9關(guān)系運(yùn)算符關(guān)系運(yùn)算符用于比較數(shù)據(jù)的大小關(guān)系，主要有：=、<>、<、>、>=、<=說(shuō)明數(shù)值的比較按數(shù)值取值字符的比較按ASCII碼取值逐個(gè)比較、英文字母按字典順序、數(shù)字按數(shù)值順序、小寫(xiě)字母大于大寫(xiě)字母。例："cat">"dog"

？"101">"99"

？邏輯運(yùn)算符常用的邏輯運(yùn)算符有：And邏輯與Or邏輯或Not邏輯非優(yōu)先級(jí)：Not>And>Or實(shí)踐編寫(xiě)一個(gè)宏，針對(duì)A1單元格中輸入的某個(gè)個(gè)年份數(shù)據(jù)進(jìn)行判斷，并以“閏年”或“平年”為結(jié)論寫(xiě)入到B1單元格中閏年的判斷條件：能被4整除但不能被100整除，或者能被400整除With語(yǔ)句編寫(xiě)一個(gè)宏，設(shè)置A1單元格的文字屬性為宋體、14磅、粗體、字體顏色為紅色？對(duì)象重復(fù)書(shū)寫(xiě)With語(yǔ)句作用：簡(jiǎn)化代碼，不需要輸入重復(fù)的內(nèi)容格式：實(shí)踐：改寫(xiě)過(guò)程“字體格式”？With對(duì)象

.屬性1=屬性值1.屬性2=屬性值2……

.屬性n=屬性值n

EndWith常用的VBA函數(shù)Int(x)函數(shù)返回不大于x的整數(shù)如：Int(5.8)的結(jié)果為5，Int(-5.8)的結(jié)果為-6Rnd()函數(shù)返回一個(gè)[0,1)之間的隨機(jī)浮點(diǎn)數(shù)若要返回一個(gè)[m,n]之間的隨機(jī)整數(shù)，則可以使用公式：Int(Rnd()*(n-m+1))+m在調(diào)用Rnd函數(shù)之前，應(yīng)先使用無(wú)參數(shù)的Randomize語(yǔ)句初始化隨機(jī)數(shù)生成器實(shí)踐編寫(xiě)一個(gè)宏，先在A1單元格中生成一個(gè)[10,99]之間的隨機(jī)整數(shù)，然后識(shí)別該整數(shù)是奇數(shù)還是偶數(shù)，并將識(shí)別結(jié)果寫(xiě)入到B1單元格常用的VBA函數(shù)Val(s)函數(shù)返回s中第一個(gè)非數(shù)字字符之前的數(shù)字（忽略空格）例如：Val(“1615198thStreetN.E.”)的返回值為1615198可以把Val(s)當(dāng)作是一個(gè)將數(shù)字文本轉(zhuǎn)換成數(shù)字?jǐn)?shù)值的函數(shù)常用的VBA函數(shù)InputBox函數(shù)作用：產(chǎn)生輸入對(duì)話框，向計(jì)算機(jī)提供信息，輸入數(shù)據(jù)格式：

變量=InputBox(提示信息[,對(duì)話框標(biāo)題][,默認(rèn)值])返回值：輸入框中輸入的內(nèi)容，字符型常用的VBA函