【正文】 請(qǐng)注意下列語句中為數(shù)組變量賦值時(shí)索引數(shù)字的使用。通過創(chuàng)建動(dòng)態(tài)數(shù)組就可以做到。VBA 必須辨別 Variant 類型的變量中存儲(chǔ)了何種類型的數(shù)據(jù)。 用 Dim語句創(chuàng)建變量 (聲明變量 ) 現(xiàn)在 ,你對(duì)變量可以使用的數(shù)據(jù)類型已經(jīng)比較熟悉了 ,以下我們將創(chuàng)建變量 .創(chuàng)建變量可以使用 Dim語句 ,創(chuàng)建變量通常成為 聲明變量 Dim 語句的基本語法如下 : Dim 變量名 AS 數(shù)據(jù)類型 這條語法中的變量名代表將要?jiǎng)?chuàng)建的變量名 .對(duì)變量的命名規(guī)則和對(duì)過程的命名規(guī)則相同 .這條語句中的數(shù)據(jù)類型部分可以是表 41 中的任何一種數(shù)據(jù)類型 . 變量名必須以字母開始 ,并且只能包含字母數(shù)字和特定的特殊字符 ,不能包含空格句號(hào)驚嘆號(hào) ,也不能包含字符 amp。 2）單擊消息框之中的 確定 按鈕，關(guān)閉該消息框。 $ . * 名字最多可以包含 255個(gè)字符。可以在模 塊中看到以 Public Sub 第一個(gè)過程（）開始，以 End Sub 結(jié)束的語句結(jié)構(gòu)。 5）輸入 第一個(gè)工程 作為過程名字。 2）選擇 工具 宏 Visual Basic 編輯器 ，打開 VBA 編輯器窗口。在本練習(xí)中，創(chuàng)建的過程只顯示一個(gè)消息框。接著需要向模塊中添加一個(gè)工程。 Price 可以是數(shù)字和單元格引用。程序清單 42 是一個(gè)計(jì)算價(jià)格的 10%為運(yùn)費(fèi)的簡單例子。也就是說，當(dāng)單擊這個(gè)命令按鈕時(shí)，就會(huì)運(yùn)行這個(gè)事件過程。 程序清單 41 子程序的例子 Sub cmdSmallFont_Click() With .Name=Arial .FontStyle=Regular .Size=16 End With End sub 上面列出的過程實(shí)際上是一個(gè)事件過程。子程序只執(zhí)行一個(gè)或多個(gè)操作，而不返回?cái)?shù)值。 EXCEL 和 VBA 不關(guān)心代碼存放在哪一個(gè)模塊中，只要代碼存在于打開的工作簿中即可。模塊中的每個(gè)過程或者是函數(shù)過程，或者是子程序概念 .本 節(jié) 的最后部分將討論函數(shù)過程和子程序的區(qū)別。 在對(duì)用戶窗體設(shè)計(jì)得滿意時(shí) ，可以對(duì)其進(jìn)行預(yù)覽，方法是在 VBA 編輯器中選擇該窗體，單擊 運(yùn)行 菜單中的三角符號(hào) 運(yùn)行子過程 /用戶窗體 ，三角符號(hào)在 VBA 工具欄上也可能看得到，旁邊是一個(gè)垂直的等于符號(hào)，最右邊是個(gè)小正方形符號(hào)，它們類似于錄音機(jī)上的按鈕。例如改變Windows 日期或時(shí)間就會(huì)使用到微調(diào)控件。 8）滾動(dòng)條：不是你常見的來給很長的窗體添加滾動(dòng)能力的控件，而是一種選擇機(jī)制。 6）列表框：用于顯示多個(gè)選項(xiàng)并從 中選擇。 2）分組框：它用于將其他控件進(jìn)行組合。 6）單擊 關(guān)閉 按鈕，關(guān)閉 自定義工具欄 對(duì)話框。 2）從 類別 列表框中選擇 宏 ，從 命令 列表框中選擇 自定義按鈕 。 將宏指定給圖片或其他對(duì)象 要執(zhí)行宏有多種方法可以選擇，可以將宏指定給按鈕等控件，還可以指定給圖片、自定義工具欄、窗體甚至可以將宏指定給某個(gè) 事件 ，比如單擊工作表，雙擊工作表，激活工作表，打開工作簿等等， 事件 是一個(gè)重要的概念，除此而外 方法 對(duì)象 都是將來你會(huì)經(jīng) 常接觸到的。 7）單擊按鈕外的任意位置，現(xiàn)在該按鈕的標(biāo)題由默認(rèn)的 按鈕 1變?yōu)?格式化 而且被指定了一個(gè)宏。對(duì)大小滿意后放開鼠標(biāo)左鍵，這樣一個(gè)命令按鈕就添加到了工作表中，同時(shí)EXCEL 自動(dòng)顯示 指定宏 對(duì)話框。具體步驟如下： 1）打開 HOUR2工作簿。因?yàn)樗娣旁?XLSTART 文件夾內(nèi)。個(gè)人宏工作簿保存在 XLSTART文件夾中。 個(gè)人宏 工作簿 個(gè)人宏工作簿，是為宏而設(shè)計(jì)的一種特殊的具有自動(dòng)隱藏特性的工作簿。 決定宏保存的位置 宏可保存在三種可能的位置： 1）當(dāng)前工作簿。 4）選擇 打印所 選標(biāo)題和所有子主題 ，單擊 確定 。例如：把 CTRL+C 指定給某個(gè)宏，那么 CTRL+C 就不再執(zhí)行復(fù)制命令。快捷鍵是指鍵的組合，當(dāng)其按下時(shí)執(zhí)行一條命令。二：錄制的宏中有多余的語句需要?jiǎng)h除，提高宏的運(yùn)行速度。你會(huì)發(fā)現(xiàn)結(jié)果和修改前的狀況一樣。哪兩句？現(xiàn)在，在宏中作一個(gè)修改，刪除多余行，直到和下面代碼相同： Sub 改變顏色 () 39。 xlSolid 18 表示純色。注意：有一小圓點(diǎn)，它的作用在于簡化語句，小圓點(diǎn)代替出現(xiàn)在 With 后的詞 ,它是 With 結(jié)構(gòu)的一部分。 以 With 開頭到 End With 結(jié)束的結(jié)構(gòu)是 With 結(jié)構(gòu)語句，這段語句是宏的主要部分。學(xué)習(xí) VBA 或編程語言在某種程度上比較像在學(xué)習(xí)一種外語。關(guān)于該編輯器，以后再詳細(xì)說明，先將注意力集中到顯示的代碼上。試著選擇其它單元格和幾個(gè)單元格組成的區(qū)域，然后再執(zhí)行宏，以便加深印象。而且，一旦熟悉了 EXCEL 的 遙控 ，你都會(huì)奇怪自己在沒有這些 遙控 的情況下，到底是怎么熬過來的。 ※ 如果 停止錄制 工具欄開始并未出現(xiàn)，請(qǐng)選擇 工具 宏 停止錄制 。宏名中不允許出現(xiàn)空格。 4)輸入 改變顏色 作為宏名替換默認(rèn)宏名，單擊確定 ,注意，此時(shí)狀態(tài)欄中顯示 錄制 ，特別是 停止錄制 工具欄也顯示出來。請(qǐng)完成如下步驟： 1)打開新工作簿，確認(rèn)其他工作簿已經(jīng)關(guān)閉。 EOF(filenumber) 返回一個(gè) Integer，它包含 Boolean 值 True，表明已經(jīng)到達(dá)為 Random 或順序 Input 打開的文件的結(jié)尾。使用 Write 還能確保任何地區(qū)的數(shù)據(jù)都被正確讀出。 讀入 Input filenumber, varlist 從已打開的順序文件中讀出數(shù)據(jù)并將數(shù)據(jù)指定給變量 Get []filenumber, [reumber], varname 將一個(gè)已打開的磁盤文件讀入一個(gè)變量之中。如果文件已由其它進(jìn)程打開，而且不允許指定的訪問類型，則 Open 操作失敗，而且會(huì)有錯(cuò)誤發(fā)生。對(duì)于順序文件，該值就是緩沖字符數(shù)。使用 FreeFile 函數(shù)可得到下一個(gè)可用的文件號(hào)。 lock 可選。關(guān)鍵字，指定文件方式，有 Append、 Binary、 Input、 Output、或 Random 方式。 刪除 Kill pathname 從磁盤中刪除文件 , pathname 參數(shù)是用來指定一個(gè)文件名 RmDir pathname 從磁盤中刪除刪除目錄， pathname 參數(shù)是用來指定一個(gè)文件夾 打開 Open pathname For mode [Access access] [lock] As []filenumber [Len=reclength] 能 Excel 財(cái)務(wù) 管理中 的應(yīng)用 —— 編程篇 13 夠?qū)ξ募斎?/輸出 (I/O)。如果沒有找到 pathname，則會(huì)返回零長度字符串 ()。 Timer 返回一個(gè) Single，代表從午夜開始到現(xiàn)在經(jīng)過的秒數(shù)。 IsError(expression) ‘指出表達(dá)式是否為一個(gè)錯(cuò)誤值 IsNull(expression) ‘指出表達(dá)式是否不包含任何有效數(shù)據(jù) (Null)。如下例： Function password(ByVal x as integer, byref y as integer) as boolean If y=100 then y=x+y else y=xy x=x+100 if y=150 then password=true else password=false End Function Sub call_password () Dim x1 as integer Dim y1 as integer x1=12 y1=100 if password then ‘調(diào)用函數(shù)： 1. 作為一個(gè)表達(dá)式放在 =右端 。 一． Sub 過程 Sub 過程的參數(shù)有兩種傳遞方式：按值傳遞 (ByVal)和按地址傳遞 (ByRef)。 Goto line 該語句為跳轉(zhuǎn)到 line 語句行 On expression gosub destinatioinlist 或者 on expression goto destinationlist 語句為根據(jù) exprssion 表達(dá)式值來跳轉(zhuǎn)到所要的行號(hào)或行標(biāo)記 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 Excel 財(cái)務(wù) 管理中 的應(yīng)用 —— 編程篇 8 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ò)誤的處理程序。 39。 建立 10 次循環(huán) MyString = MyString amp。如果相關(guān)的表達(dá)式為 True，則返回此部分的數(shù)值或表達(dá)式，沒有一個(gè)表達(dá)式為 True，Switch 會(huì)返回一個(gè) Null 值。 choice 必要參數(shù)， Variant 表達(dá)式，包含可選擇項(xiàng)目的其中之一。 單引號(hào) ’ 。Lower 缺省值為 0。 4）常量為變量的一種特例，用 Const 定義，且定義時(shí)賦值，程序中不能改變值，作用域也如同變量作用 域。定義為私有變量，如 Private xyz as byte Public 變量 as 類型 39。 4 單精度型 Single ! 4 雙精度型 Double 8 日期型 Date 無 8公元 100/1/199/12/31 貨幣型 Currency 8 小數(shù)點(diǎn)型 Decimal 無 14 變體型 Variant 無 以上任意類型，可變 對(duì)象型 Object 無 4 第四節(jié) 變量與常量 1） VBA 允許使用未定義的變量，默認(rèn)是變體變量。 第二節(jié) 運(yùn) 算符 一、 定義：運(yùn)算符是代表 VB某種運(yùn)算功能的符號(hào)。管理資源吧（ ），海量管理資源免費(fèi)下載！ 管理資源吧 1）賦值運(yùn)算符 = 2）數(shù)學(xué)運(yùn)算符 amp。 2）在模塊通用說明部份，加入 Option Explicit 語句可以強(qiáng)迫用戶進(jìn)行變量定義。定義為公有變量，如 Public xyz as single Global 變量 as 類型 39。如下定義： Const Pi= as single 第五節(jié) 數(shù)組 數(shù)組是包含相同數(shù)據(jù)類型的一組變量的集合，對(duì)數(shù)組中的單個(gè)變量引用通過數(shù)組索引下標(biāo)進(jìn)行。二維數(shù)組是按行列排列，如 XYZ(行，列 )。如：’定義全局變量；可以位于別的語句之尾，也可單獨(dú)一行 Rem 。如： GetChoice = Choose(Ind, Speedy, United, Federal) 4） Switch 函數(shù) Switch(expr1, value1[, expr2, value2 _ [, exprn,valuen]]) switch 函數(shù)和 Choose 函數(shù)類似，但它是以兩個(gè)一組的方式返回所要的值，在串列中，最先為 TRUE 的值會(huì)被返回。 第九節(jié) 循環(huán)語句 1） For Next 語句 以指定次數(shù)來重復(fù)執(zhí)行一組語句 For counter = start To end [Step step] 39。 Chars 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} condition39。語法如下： 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