【正文】 存 10 個(gè)學(xué)生名字的數(shù)組,可以用以下語句: Dim s 學(xué)生名字(9) As Integer 注意,括號(hào)中的數(shù)字是 9 而不是 ,第一個(gè)索引數(shù)字是 15 門考試成績(jī),可以創(chuàng)建 15 個(gè)獨(dú)立的變量,這意味著要 使用 15 個(gè) Dim 語句。也可以創(chuàng)建一個(gè)數(shù)組來保存考試成績(jī)，具體如下： Dim s 考試成績(jī)（14） As Integer 聲明數(shù)組時(shí)的另一種方法是不給定大小。 可以在程序運(yùn)行時(shí)定義其大小。 通過創(chuàng)建動(dòng)態(tài) 數(shù)組就可以做到。例如，你的程序要?jiǎng)?chuàng)建一表格，可以提示用戶輸入表格的行和列的數(shù)目。 聲明動(dòng)態(tài)數(shù)組的語法如下： Dim dyn_array() As type 對(duì)數(shù)組聲明后可以在程序運(yùn)行時(shí)用：ReDim 語句指定數(shù)組的大?。?ReDim dyn_array()(array_size) 參數(shù) array_size 代表數(shù)組的新大小。 如果要保留數(shù)組的數(shù)值， 請(qǐng)?jiān)?ReDim 語句后使用保 留字 Preserve,具體語法如下： ReDim Preserve dyn_array(array_size) 變量賦值 聲明變量后就可以給變量賦值。請(qǐng)注意下列語句中為數(shù)組變量賦值時(shí)索引數(shù)字的使用。 程序清單 44 Dim i 人數(shù) As Integer Dim i 考試成績(jī) As Integer Dim i As Integer i 人數(shù) = inputbox(輸入學(xué)生的人數(shù)：) ReDim Preserve i 考試成績(jī)(i 數(shù)量) For i = 1 to i 人數(shù) i 考試成績(jī)(i) = inputbox(輸入考試成績(jī)amp。 i ) Next 使用常量 現(xiàn)在,. 好理解得多. 要聲明常量并設(shè)置常量的值,需要使用 const , 如,假設(shè)需要聲明一個(gè)常量來保存銷項(xiàng)稅率,可以使用以下語句: conet 銷項(xiàng)稅率 As Long = 通常常量聲明時(shí)用全大寫字母以區(qū)分變量. 作用域 到現(xiàn)在為止,已經(jīng)學(xué)習(xí)了如何定義變量和常量, 方定義常量和變量: 過程中定義和在模塊頂部一個(gè)名為通用聲明 租用域. 在過程中聲明,該變量只能在該過程中使用,其他過程中不能使用這個(gè)變量和常量,這中 變量成為局部變量或過程級(jí)變量； 在模塊頂部聲明的變量稱為模塊級(jí)變量， 該變量在該模塊 的所有過程中都可以使用。 還有一種等級(jí)的作用域稱為公共級(jí)。 公共級(jí)變量可以在應(yīng)用程序的任何過程中使用， 不 論過程和變量是否定義在一個(gè)模塊。 這就使得公共級(jí)變量在使用中十分靈活， 但是公共級(jí)變 量在程序運(yùn)行時(shí)一直保留在內(nèi)存中，這樣就占用了系統(tǒng)資源。要?jiǎng)?chuàng)建公共級(jí)變量，可以用 Public 語句，具體語法如下： Public variablename As datatype 要?jiǎng)?chuàng)建公共級(jí)常量，具體語法如下： Public const CONSTANAME datatype = value 公共級(jí)變量或常量必須在模塊頂部的“通用聲明”區(qū)域中定義。 小結(jié) 本課的重點(diǎn)是變量和常量。 在本課中你學(xué)會(huì)了如何創(chuàng)建變量來保存非靜態(tài)的數(shù)據(jù)。 我們 了解了 VBA 的數(shù)據(jù)類型，我們也學(xué)會(huì)了創(chuàng)建常量來保存靜態(tài)的數(shù)據(jù)。本課的最后部分我們 學(xué)習(xí)了變量和常量的作用域。 疑難解答 ，應(yīng)該在何處定義該變量？ 答：必須在模塊頂部的“通用聲明”區(qū)域內(nèi)定義。對(duì)于模塊級(jí)變量用 Dim 語句，對(duì)于 公共級(jí)變量用 Public 語句 ? 答:不,實(shí)際上模塊是工作簿的一部分,當(dāng)保存工作簿時(shí),對(duì)模塊所做的改變也同時(shí)保存下 來. Variant 數(shù)據(jù)類型? 答:Variant 類型的數(shù)據(jù),占用較多的內(nèi)存,并且影響應(yīng)用程序的性能. [dvnews_page=(5):利用 VBA 設(shè)置工作表使用權(quán)限] 一般保護(hù)工作表采取的方法是用 excel 菜單中的“保護(hù)”命令，有時(shí)這尚嫌不足，比如 一些機(jī)密文件根本要讓某些使用者無法看到，但又需要他來操作工作簿中的其他表，怎么 辦？ 可以打開 VBA 編輯器，打開“工程資源管理器” ，雙擊該工作表，現(xiàn)在出現(xiàn)的是設(shè)置該表 的屬性的編輯窗口，單擊窗口左上的下拉列表框，選擇 worksheet ,這時(shí)再從該窗口右上方的 列表框中選擇 Active(“激活”，這時(shí)自動(dòng)顯示如下的語句塊： ） Private Sub Worksheet_Activate() End Sub 在其中加入代碼：(假設(shè)用123作為密碼,Sheet機(jī)密文檔為限制權(quán)限文檔,sheet普通文檔 為工作簿中你認(rèn)為任何適合的工作表) If (請(qǐng)輸入操作權(quán)限密碼:) = 123 Then Range(A1).Select Else Msgbox 密碼錯(cuò)誤,即將退出! Sheets(普通文檔).Select End if 程序如下： Private Sub Worksheet_Activate() If (請(qǐng)輸入操作權(quán)限密碼:) = 123 Then Range(A1).Select Else MsgBox 密碼錯(cuò)誤,即將退出! Sheets(普通文檔).Select End If End Sub 這樣做仍有一個(gè)問題， 就是越權(quán)使用者仍會(huì)看到一些文件的片段， 即在提示密碼的那段時(shí)間。 好，你可以這樣做，用上述方法選擇工作表的 Deactivate 事件,輸入以下代碼： Sheets(機(jī)密文檔). = 2 這 段程 序使得 此工 作表在 不被 激活時(shí) ，所有 文字 為白 色。然 后，在 第一 個(gè)程 序中的 Range(A1).Select 后插入一行，寫入以下代碼： = 56 這段程序，在你輸入正確密碼后，將該表所有文字轉(zhuǎn)變?yōu)樯罨疑?完整的程序如下： Private Sub Worksheet_Activate() If (請(qǐng)輸入操作權(quán)限密碼:) = 123 Then Range(A1).Select Sheets(機(jī)密文檔). = 56 Else MsgBox 密碼錯(cuò)誤,即將退出! Sheets(普通文檔).Select End If [dvnews_page=(6):提高 excel 中 VBA 的效率] 由于 Microsoft office 辦公套件的廣泛應(yīng)用，以及該軟件版本的不斷提升，功能不斷完善，在 office 辦公套件平臺(tái)上開發(fā)出的的 VBA 應(yīng)用程序越來越多，而 VBA 是一種宏語言，在運(yùn)行 速度上有很大的限制。因此 VBA 編程的方法直接關(guān)系到 VBA 程序運(yùn)行的效率，本文列舉 了一些提高 VBA 程序運(yùn)行效率的方法。 方法 1：盡量使用 VBA 原有的屬性、方法和 Worksheet 函數(shù) 由于 excel 對(duì)象多達(dá)百多個(gè)，對(duì)象的屬性、方法、事件多不勝數(shù)，對(duì)于初學(xué)者來說可能 對(duì)它們不全部了解， 這就產(chǎn)生了編程者經(jīng)常編寫與 excel 對(duì)象的屬性、 方法相同功能的 VBA 代碼段， 而這些代碼段的運(yùn)行效率顯然與 excel 對(duì)象的屬性、 方法完成任務(wù)的速度相差甚大。 例如用 Range 的屬性 CurrentRegion 來返回 Range 對(duì)象，該對(duì)象代表當(dāng)前區(qū)。 （當(dāng)前區(qū)指以 任意空白行及空白列的組合為邊界的區(qū)域） 。同樣功能的 VBA 代碼需數(shù)十行。因此編程前 應(yīng)盡可能多地了解 excel 對(duì)象的屬性、方法。 充分利用 Worksheet 函數(shù)是提高程序運(yùn)行速度的極度有效的方法。 如求平均工資的例子： For Each c In Worksheet(1).Range(″A1:A1000″) TotalValue = TotalValue ＋ Next AverageValue = TotalValue / Worksheet(1).Range(″A1:A1000″). 而下面代碼程序比上面例子快得多： AverageValue=(Worksheets(1).Range( ″ A1:A1000″)) 其它函數(shù)如 Count,Counta,Countif,Match,Lookup 等等，都能代替相同功能的 VB