【正文】 目 錄 第一章 Excel VBA 簡(jiǎn)明語(yǔ)言之基礎(chǔ) 第一節(jié) 標(biāo)識(shí)符 第二節(jié) 運(yùn)算符 第三節(jié) 數(shù)據(jù)類型 第四節(jié) 變量與常量 第五節(jié) 數(shù)組使用 第六節(jié) 注釋和賦值語(yǔ)句 第七節(jié) 書寫規(guī)范 第八節(jié) 條件語(yǔ)句 第九節(jié) 循環(huán)語(yǔ)句 第十節(jié) 其他類語(yǔ)句和錯(cuò)誤語(yǔ)句處理 第十一節(jié) 過(guò)程和函數(shù) 第十二節(jié) 內(nèi)部函數(shù) 第二章 Excel VBA常用對(duì)象之使用 第一節(jié) 文件的操作 1) Excel文件 2) 文本文件 3) Access文件 4) 文件其它操作 第二節(jié) 工作表操作 1) 新建與刪除 2) 隱藏與顯示 3) 鎖定與保護(hù) 第三節(jié) 單元格操作 1) 如何引用單元格和區(qū)域 2) 如何處理單元格和區(qū)域 3) 單元格和區(qū)域的定位 4）單元格和區(qū)域的保護(hù)與鎖定 第四節(jié) 圖表的操作 1) 新建及類型 2) 設(shè)置圖表的數(shù)據(jù) 3) 圖表格式設(shè)置 4) 散點(diǎn)圖增加系列和文字 5) 實(shí)例 第三章 Excel VBA高級(jí)使用 第一節(jié) Win API的使用 1) 堀明API函數(shù) 2) 使用API函數(shù) 3) 堀明補(bǔ)充說(shuō)明 4) 實(shí)例 第二節(jié) Excel VBA程序的保密 1) 使用動(dòng)態(tài)連接庫(kù)DLL 2) 獲得硬盤物理地址 3) 加密與注冊(cè) 第四章 Excel VBA優(yōu)化及結(jié)束語(yǔ) 第一節(jié) Excel VBA優(yōu)化 第二節(jié) 結(jié)束語(yǔ) 附錄I Excel VBA對(duì)象框架圖 第一章 VBA語(yǔ)言基礎(chǔ) 第一節(jié) 標(biāo)識(shí)符 一．定義 標(biāo)識(shí)符是一種標(biāo)識(shí)變量、常量、過(guò)程、函數(shù)、類等語(yǔ)言構(gòu)成單位的符號(hào)，利用它可以完成對(duì)變量、常 量、過(guò)程、函數(shù)、類等的引用。 二．命名規(guī)則 1） 字母打頭，由字母、數(shù)字和下劃線組成，如 A987b_23Abc 2） 字符長(zhǎng)度小于 40，（Excel2002以上中文版等，可以用漢字且長(zhǎng)度可達(dá) 254個(gè)字符） 3） 不能與 VB保留關(guān)鍵字重名，如 public, private, dim, goto, next, with, integer, single等 第二節(jié) 運(yùn)算符 定義：運(yùn)算符是代表 VB某種運(yùn)算功能的符號(hào)。 1）賦值運(yùn)算符 = 2）數(shù)學(xué)運(yùn)算符 amp。、 + (字符連接符 )、 +(加)、（減）、 Mod（取余）、 \（整除）、*（乘）、/（除）、（負(fù)號(hào)）、^（指數(shù)） 3）邏輯運(yùn)算符 Not（非）、 And（與）、 Or（或）、 Xor（異或）、 Eqv（相等）、 Imp（隱含） 4）關(guān)系運(yùn)算符 = （相同）、 （不等）、（大于）、（小于）、 =（不小于）、 =（不大于）、 Like、 Is 5）位運(yùn)算符 Not（邏輯非）、 And（邏輯與）、 Or（邏輯或）、 Xor（邏輯異或）、 Eqv（邏輯等）、 Imp（隱含） 第三節(jié) 數(shù)據(jù)類型 VBA共有12種數(shù)據(jù)類型，具體見下表，此外用戶還可以根據(jù)以下類型用 Type自定義數(shù)據(jù)類型。 數(shù)據(jù)類型 類型標(biāo)識(shí)符 字節(jié) 字符串型 String $ 字符長(zhǎng)度 (065400) 字節(jié)型 Byte 無(wú) 1 布爾型 Boolean 無(wú) 2 整數(shù)型 Integer % 2 長(zhǎng)整數(shù)型 Long amp。 4 單精度型 Single ! 4 雙精度型 Double 8 日期型 Date 無(wú) 8 公元 100/1/19999/12/31 貨幣型 Currency @ 8 小數(shù)點(diǎn)型 Decimal 無(wú) 14 變體型 Variant 無(wú) 以上任意類型，可變 對(duì)象型 Object 無(wú) 4 第四節(jié) 變量與常量 1） VBA允許使用未定義的變量，默認(rèn)是變體變量。 2）在模塊通用說(shuō)明部份，加入 Option Explicit 語(yǔ)句可以強(qiáng)迫用戶進(jìn)行變量定義。 3）變量定義語(yǔ)句及變量作用域 Dim 變量 as 類型 39。定義為局部變量，如 Dim xyz as integer Private 變量 as 類型 39。定義為私有變量，如 Private xyz as byte Public 變量 as 類型 39。定義為公有變量，如 Public xyz as single Global 變量 as 類型 39。定義為全局變量，如 Globlal xyz as date Static變量 as 類型 39。定義為靜態(tài)變量，如 Static xyz as double 一般變量作用域的原則是，那部份定義就在那部份起作用，模塊中定義則在該模塊那作用。4）常量為變量的一種特例，用 Const定義，且定義時(shí)賦值，程序中不能改變值，作用域也如同變量作用域。 如下定義： Const Pi= as single 第五節(jié) 數(shù)組 數(shù)組是包含相同數(shù)據(jù)類型的一組變量的集合，對(duì)數(shù)組中的單個(gè)變量引用通過(guò)數(shù)組索引下標(biāo)進(jìn)行。在內(nèi) 存中表現(xiàn)為一個(gè)連續(xù)的內(nèi)存塊，必須用Global或Dim語(yǔ)句來(lái)定義。定義規(guī)則如下： Dim 數(shù)組名 ([lower to ]upper [, [lower to ]upper, ….]) as type 。Lower缺省值為0。二維數(shù)組是按行列排列，如 XYZ(行，列)。 除了以上固定數(shù)組外， VBA還有一種功能強(qiáng)大的動(dòng)態(tài)數(shù)組，定義時(shí)無(wú)大小維數(shù)堀明；在程序中再利用 Redim語(yǔ)句來(lái)重新改變數(shù)組大小，原來(lái)數(shù)組內(nèi)容可以通過(guò)加 preserve關(guān)鍵字來(lái)保留。如下例： Dim array1() as double : Redim array1(5) : array1(3)=250 : Redim preserve array1(5,10) 第六節(jié) 注釋和賦值語(yǔ)句 1）注釋語(yǔ)句是用來(lái)說(shuō)明程序中某些語(yǔ)句的功能和作用； VBA中有兩種方法標(biāo)識(shí)為注釋語(yǔ)句。 9 單引號(hào) ’ 。如：’定義全局變量；可以位于別的語(yǔ)句之尾，也可單獨(dú)一行 9 Rem 。如： Rem定義全局變量；只能單獨(dú)一行 2）賦值語(yǔ)句是進(jìn)行對(duì)變量或?qū)ο髮傩再x值的語(yǔ)句，采用賦值號(hào) =，如X=123：=”我的窗口 ” 對(duì)對(duì)象的賦值采用： set myobject=object 或 myobject:=object 第七節(jié) 書寫規(guī)范 1） VBA不區(qū)分標(biāo)識(shí)符的字母大小寫，一律認(rèn)為是小寫字母； 2）一行可以書寫多條語(yǔ)句，各語(yǔ)句之間以冒號(hào) : 分開； 3）一條語(yǔ)句可以多行書寫，以空格加下劃線 _ 來(lái)標(biāo)識(shí)下行為續(xù)行； 4）標(biāo)識(shí)符最好能簡(jiǎn)潔明了，不造成歧義。 第八節(jié) 條件語(yǔ)句 1） If…Then…Else語(yǔ)句 If condition Then [statements][Else elsestatements] 如1：If AB And CD Then A=B+2 Else A=C+2 如2：If x250 Then x=x100 或者，可以使用塊形式的語(yǔ)法： If condition Then [statements] [ElseIf conditionn Then [elseifstatements] ... [Else [elsestatements]] End If 如 1: If Number 10 Then Digits = 1 ElseIf Number 100 Then Digits = 2 Else Digits = 3 End If 2） Select Case…Case…End Case語(yǔ)句 如1： Select Case Pid Case “A101” Price=200 Case “A102” Price=300 …… Case Else Price=900 End Case 3）Choose 函數(shù) choose(index, choce1,choice2,…,choicen)，可以用來(lái)選擇自變量串列中的一個(gè)值，并將其返回， index 必要參數(shù)，數(shù)值表達(dá)式或字段，它的運(yùn)算結(jié)果是一個(gè)數(shù)值，且界于 1 和可選擇的項(xiàng)目數(shù)之間。choice 必 要參數(shù)， Variant表達(dá)式，包含可選擇項(xiàng)目的其中之一。如： GetChoice = Choose(Ind, Speedy, United, Federal) 4） Switch函數(shù) Switch(expr1, value1[, expr2, value2 _ [, exprn,valuen]]) switch函數(shù)和 Choose函數(shù)類似，但它是以兩個(gè)一組的方式返回所要的值，在串列中，最先為 TRUE的值 會(huì)被返回。 expr 必要參數(shù)，要加以計(jì)算的 Variant 表達(dá)式。value 必要參數(shù)。如果相關(guān)的表達(dá)式為 True， 則返回此部分的數(shù)值或表達(dá)式，沒(méi)有一個(gè)表達(dá)式為 True， Switch 會(huì)返回一個(gè) Null值。 第九節(jié) 循環(huán)語(yǔ)句 1） For Next語(yǔ)句 以指定次數(shù)來(lái)重復(fù)執(zhí)行一組語(yǔ)句 For counter = start To end [Step step] 39。 step 缺省值為 1 [statements] [Exit For] [statements] Next [counter] 如1： For Words = 10 To 1 Step 1 39。 建立 10 次循環(huán) For Chars = 0 To 9 39。 建立 10 次循環(huán) MyString = MyString amp。 Chars 39。 將數(shù)字添加到字符串中 Next Chars 39。 Increment counter MyString = MyString amp。 39。 添加一個(gè)空格 Next Words 2） For Each…Next語(yǔ)句 主要功能是對(duì)一個(gè)數(shù)組或集合對(duì)象進(jìn)行，讓所有元素重復(fù)執(zhí)行一次語(yǔ)句 For Each element In group Statements [Exit for] Statements Next [element] 如1： For Each rang2 In range1 With .colorindex=6 .pattern=xlSolid End with Next 這上面一例中用到了 With…End With 語(yǔ)句，目的是省去對(duì)象多次調(diào)用，加快速度；語(yǔ)法為： With object [statements] End With 3）Do…loop語(yǔ)句 在條件為 true時(shí)，重復(fù)執(zhí)行區(qū)塊命令 Do {while |until} condition 39。 while 為當(dāng)型循環(huán)， until為直到型循環(huán)，顧名思義，不多說(shuō)啦 Statements Exit do Statements Loop 或者使用下面語(yǔ)法 Do 39。 先 do 再判斷，即不論如何先干一次再說(shuō) Statements Exit do Statements Loop {while |until} condition 第十節(jié) 其他類語(yǔ)句和錯(cuò)誤語(yǔ)句處理 一．其他循環(huán)語(yǔ)句 結(jié)構(gòu)化程序使用以上判斷和循環(huán)語(yǔ)句已經(jīng)足夠，建議不要輕易使用下面的語(yǔ)句，雖然 VBA還支持。 1) Goto line 該語(yǔ)句為跳轉(zhuǎn)到line語(yǔ)句行 2) On expression gosub destinatioinlist 或者 on expression goto destinationlist 語(yǔ)句為根據(jù) exprssion表達(dá)式 值來(lái)跳轉(zhuǎn)到所要的行號(hào)或行標(biāo)記 3) Gosub line…line…Return語(yǔ)句， Return 返回到 Gosub line行，如下例： Sub gosubtry() Dim num Num=inputbox(“輸入一個(gè)數(shù)字，此值將會(huì)被判斷循環(huán) ”) If num0 then Gosub Routine1 ： num：Exit sub Routine1: Num=num/5 Return End sub 4) while…wend語(yǔ)句，只要條件為TRUE，循環(huán)就執(zhí)行，這是以前 VB老語(yǔ)法保留下來(lái)的，如下例： while condition ‘while I50 [statements] ‘I=I+1 wend ‘Wend 二．錯(cuò)誤語(yǔ)句處理 執(zhí)行階段有時(shí)會(huì)有錯(cuò)誤的情況發(fā)生，利用On Error語(yǔ)句來(lái)處理錯(cuò)誤，啟動(dòng)一個(gè)錯(cuò)誤的處理程序。語(yǔ)法如下： On Error Goto Line ‘當(dāng)錯(cuò)誤發(fā)生時(shí)，會(huì)立刻轉(zhuǎn)移到line行去 On Error Resume Next ‘當(dāng)錯(cuò)誤發(fā)生時(shí)，會(huì)立刻轉(zhuǎn)移到發(fā)生錯(cuò)誤的下一行去 On Erro Goto 0 ‘當(dāng)錯(cuò)誤發(fā)生時(shí)，會(huì)立刻停止過(guò)程中任何錯(cuò)誤處理過(guò)程 第十一