【正文】 目 錄 第一章 Excel VBA 簡(jiǎn)明語言之基礎(chǔ) 第一節(jié) 標(biāo)識(shí)符 第二節(jié) 運(yùn)算符 第三節(jié) 數(shù)據(jù)類型 第四節(jié) 變量與常量 第五節(jié) 數(shù)組使用 第六節(jié) 注釋和賦值語句 第七節(jié) 書寫規(guī)范 第八節(jié) 條件語句 第九節(jié) 循環(huán)語句 第十節(jié) 其他類語句和錯(cuò)誤語句處理 第十一節(jié) 過程和函數(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ǔ)充說明 4) 實(shí)例 第二節(jié) Excel VBA程序的保密 1) 使用動(dòng)態(tài)連接庫DLL 2) 獲得硬盤物理地址 3) 加密與注冊(cè) 第四章 Excel VBA優(yōu)化及結(jié)束語 第一節(jié) Excel VBA優(yōu)化 第二節(jié) 結(jié)束語 附錄I Excel VBA對(duì)象框架圖 第一章 VBA語言基礎(chǔ) 第一節(jié) 標(biāo)識(shí)符 一．定義 標(biāo)識(shí)符是一種標(biāo)識(shí)變量、常量、過程、函數(shù)、類等語言構(gòu)成單位的符號(hào)，利用它可以完成對(duì)變量、常 量、過程、函數(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 無 1 布爾型 Boolean 無 2 整數(shù)型 Integer % 2 長(zhǎng)整數(shù)型 Long amp。 4 單精度型 Single ! 4 雙精度型 Double 8 日期型 Date 無 8 公元 100/1/19999/12/31 貨幣型 Currency @ 8 小數(shù)點(diǎn)型 Decimal 無 14 變體型 Variant 無 以上任意類型，可變 對(duì)象型 Object 無 4 第四節(jié) 變量與常量 1） VBA允許使用未定義的變量，默認(rèn)是變體變量。 2）在模塊通用說明部份，加入 Option Explicit 語句可以強(qiáng)迫用戶進(jìn)行變量定義。 3）變量定義語句及變量作用域 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è)變量引用通過數(shù)組索引下標(biāo)進(jìn)行。在內(nèi) 存中表現(xiàn)為一個(gè)連續(xù)的內(nèi)存塊，必須用Global或Dim語句來定義。定義規(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í)無大小維數(shù)堀明；在程序中再利用 Redim語句來重新改變數(shù)組大小，原來數(shù)組內(nèi)容可以通過加 preserve關(guān)鍵字來保留。如下例： Dim array1() as double : Redim array1(5) : array1(3)=250 : Redim preserve array1(5,10) 第六節(jié) 注釋和賦值語句 1）注釋語句是用來說明程序中某些語句的功能和作用； VBA中有兩種方法標(biāo)識(shí)為注釋語句。 9 單引號(hào) ’ 。如：’定義全局變量；可以位于別的語句之尾，也可單獨(dú)一行 9 Rem 。如： Rem定義全局變量；只能單獨(dú)一行 2）賦值語句是進(jìn)行對(duì)變量或?qū)ο髮傩再x值的語句，采用賦值號(hào) =，如X=123：=”我的窗口 ” 對(duì)對(duì)象的賦值采用： set myobject=object 或 myobject:=object 第七節(jié) 書寫規(guī)范 1） VBA不區(qū)分標(biāo)識(shí)符的字母大小寫，一律認(rèn)為是小寫字母； 2）一行可以書寫多條語句，各語句之間以冒號(hào) : 分開； 3）一條語句可以多行書寫，以空格加下劃線 _ 來標(biāo)識(shí)下行為續(xù)行； 4）標(biāo)識(shí)符最好能簡(jiǎn)潔明了，不造成歧義。 第八節(jié) 條件語句 1） If…Then…Else語句 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 或者，可以使用塊形式的語法： 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語句 如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)，可以用來選擇自變量串列中的一個(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á)式，沒有一個(gè)表達(dá)式為 True， Switch 會(huì)返回一個(gè) Null值。 第九節(jié) 循環(huán)語句 1） For Next語句 以指定次數(shù)來重復(fù)執(zhí)行一組語句 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語句 主要功能是對(duì)一個(gè)數(shù)組或集合對(duì)象進(jìn)行，讓所有元素重復(fù)執(zhí)行一次語句 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 語句，目的是省去對(duì)象多次調(diào)用，加快速度；語法為： With object [statements] End With 3）Do…loop語句 在條件為 true時(shí)，重復(fù)執(zhí)行區(qū)塊命令 Do {while |until} condition 39。 while 為當(dāng)型循環(huán)， until為直到型循環(huán)，顧名思義，不多說啦 Statements Exit do Statements Loop 或者使用下面語法 Do 39。 先 do 再判斷，即不論如何先干一次再說 Statements Exit do Statements Loop {while |until} condition 第十節(jié) 其他類語句和錯(cuò)誤語句處理 一．其他循環(huán)語句 結(jié)構(gòu)化程序使用以上判斷和循環(huán)語句已經(jīng)足夠，建議不要輕易使用下面的語句，雖然 VBA還支持。 1) Goto line 該語句為跳轉(zhuǎn)到line語句行 2) On expression gosub destinatioinlist 或者 on expression goto destinationlist 語句為根據(jù) exprssion表達(dá)式 值來跳轉(zhuǎn)到所要的行號(hào)或行標(biāo)記 3) Gosub line…line…Return語句， 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語句，只要條件為TRUE，循環(huán)就執(zhí)行，這是以前 VB老語法保留下來的，如下例： while condition ‘while I50 [statements] ‘I=I+1 wend ‘Wend 二．錯(cuò)誤語句處理 執(zhí)行階段有時(shí)會(huì)有錯(cuò)誤的情況發(fā)生，利用On Error語句來處理錯(cuò)誤，啟動(dòng)一個(gè)錯(cuò)誤的處理程序。語法如下： 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ì)立刻停止過程中任何錯(cuò)誤處理過程 第十一