【正文】 If msg = vbYes Then Else If msg = vbCancel Then Exit Sub Call runtimer ’如果用戶沒有選擇取消就再次調(diào)用 Runtimer End Sub 以上只是兩個簡單的例子， 有興趣的話， 可以利用 這個函數(shù)寫出更多更 有用的定時程序。 Chr(13) _ amp。 Chr(13) _ amp。 Chr(13) _ amp。 End Sub Sub Show_my_msg() msg = MsgBox(現(xiàn)在是 17:00:00 ！, vbInformation, 自定義信息) End Sub excel 97 里的 自動保存宏,在這里定時 5 秒出現(xiàn)一次 Sub auto_open() MsgBox 歡迎你，在這篇文檔里，每 5 秒出現(xiàn)一次保存的提示！, vbInformation, 請 注意！ Call runtimer ’打開文檔時自動運行 End Sub Sub runtimer() Now + TimeValue(00:00:05), saveit ’ Now + TimeValue(00:15:00) 指定在當前時間過 5 秒鐘開始運行 Saveit 這個過程。 17:00:00 的時候顯示一個對話框。通過這個函數(shù)我們就可以在 excel 里編寫自己的定時程序了。 在 office 里有個方法是 ，具體函數(shù)如下： (EarliestTime, Procedure, LatestTime, Schedule) 如果想進一步了解，請參閱 excel 的幫助。關(guān)閉屏幕更新的方法： = False 請不要忘記 VBA 程序運行結(jié)束時再將該值設(shè)回來： = True 以上是提高 VBA 運行效率的比較有效的幾種方法。 For k = 1 To 1000 Sheets(″Sheet1″).Select Cells(k,1).Value = Cells(1,1).Value Next k 則以下代碼比上面的要快： Set TheValue = Cells(1,1).Value Sheets(″Sheet1″).Select For k = 1 To 1000 Cells(k,1).Value = TheValue Next k 方法 3：減少對象的激活和選擇 如果你的通過錄制宏來學(xué)習(xí) VBA 的，則你的 VBA 程序里一定充滿了對象的激活和選 擇，例如 Workbooks(XXX).Activate、Sheets(XXX).Select、Range(XXX).Select 等,但事實上大 多數(shù)情況下這些操作不是必需的。 如果你發(fā)現(xiàn)一個對象引用被多次使用， 則你可以將此對象用 Set 設(shè)置為對象變量， 以減 少對對象的訪問。例如 1．使用 With 語句。 如求平均工資的例子： 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 等等，都能代替相同功能的 VBA 程序 代碼，提高程序的運行速度。因此編程前 應(yīng)盡可能多地了解 excel 對象的屬性、方法。 （當前區(qū)指以 任意空白行及空白列的組合為邊界的區(qū)域） 。 方法 1：盡量使用 VBA 原有的屬性、方法和 Worksheet 函數(shù) 由于 excel 對象多達百多個，對象的屬性、方法、事件多不勝數(shù)，對于初學(xué)者來說可能 對它們不全部了解， 這就產(chǎn)生了編程者經(jīng)常編寫與 excel 對象的屬性、 方法相同功能的 VBA 代碼段， 而這些代碼段的運行效率顯然與 excel 對象的屬性、 方法完成任務(wù)的速度相差甚大。 完整的程序如下： Private Sub Worksheet_Activate() If (請輸入操作權(quán)限密碼:) = 123 Then Range(A1).Select Sheets(機密文檔). = 56 Else MsgBox 密碼錯誤,即將退出! Sheets(普通文檔).Select End If [dvnews_page=(6):提高 excel 中 VBA 的效率] 由于 Microsoft office 辦公套件的廣泛應(yīng)用，以及該軟件版本的不斷提升，功能不斷完善，在 office 辦公套件平臺上開發(fā)出的的 VBA 應(yīng)用程序越來越多，而 VBA 是一種宏語言，在運行 速度上有很大的限制。 好，你可以這樣做，用上述方法選擇工作表的 Deactivate 事件,輸入以下代碼： Sheets(機密文檔). = 2 這 段程 序使得 此工 作表在 不被 激活時 ，所有 文字 為白 色。 疑難解答 ，應(yīng)該在何處定義該變量？ 答：必須在模塊頂部的“通用聲明”區(qū)域內(nèi)定義。 我們 了解了 VBA 的數(shù)據(jù)類型，我們也學(xué)會了創(chuàng)建常量來保存靜態(tài)的數(shù)據(jù)。 小結(jié) 本課的重點是變量和常量。 這就使得公共級變量在使用中十分靈活， 但是公共級變 量在程序運行時一直保留在內(nèi)存中，這樣就占用了系統(tǒng)資源。 還有一種等級的作用域稱為公共級。 程序清單 44 Dim i 人數(shù) As Integer Dim i 考試成績 As Integer Dim i As Integer i 人數(shù) = inputbox(輸入學(xué)生的人數(shù)：) ReDim Preserve i 考試成績(i 數(shù)量) For i = 1 to i 人數(shù) i 考試成績(i) = inputbox(輸入考試成績amp。 如果要保留數(shù)組的數(shù)值， 請在 ReDim 語句后使用保 留字 Preserve,具體語法如下： ReDim Preserve dyn_array(array_size) 變量賦值 聲明變量后就可以給變量賦值。例如，你的程序要創(chuàng)建一表格，可以提示用戶輸入表格的行和列的數(shù)目。 可以在程序運行時定義其大小。 變量命名的慣例 下表給出了推薦的變量命名慣例 表 42 變量命名的前綴 使用數(shù)組 如果你使用過其他編程序語言, ,定義數(shù)組的方法 如下: Dim array_name(n) As type (其中 n 是數(shù)組元素的個數(shù)) 例如,如果要創(chuàng)建保存 10 個學(xué)生名字的數(shù)組,可以用以下語句: Dim s 學(xué)生名字(9) As Integer 注意,括號中的數(shù)字是 9 而不是 ,第一個索引數(shù)字是 15 門考試成績,可以創(chuàng)建 15 個獨立的變量,這意味著要 使用 15 個 Dim 語句。 因為 Variant 數(shù)據(jù)類型占用存儲空間較大（16 或 22 字節(jié)）而且它將影響程序的性能。 $ .名字最大長度為 255 個字符 在接下來的練習(xí)中將說明如何在 VBA 中使用變量,你將要輸入你的名字,并用一個消息 : 1)創(chuàng)建一個名為顯示你的名字的子程序. 2)輸入以下代碼: Public Sub 顯示你的名字() Dim s 名字 As String s 名字 = Inputbox(請輸入你的名字:) Msgbox 你好amp。在這種情況下，使用 Single 數(shù)據(jù)類型只是對計算 機存儲空間的浪費。 [dvnews_page=(4):理解變量] 變量 ,變量可能包含不同的數(shù)值,而在 程序運行時,變量的數(shù)值可以改變. 為了說明為什么需要變量,可以按照如下步驟創(chuàng)建一個簡單的過程: 1)創(chuàng)建一個名為你叫什么名字的過程. 2)在過程中輸入如下代碼: Inputbox 輸入你的名字: 現(xiàn)在不要擔(dān)心 inputbox 語句的語法,將在第六學(xué)時中了解到有關(guān)這條命令的更多信