【正文】 選擇取消：不再出現(xiàn)這個(gè)提示, vbYesNoCancel + 64, 休息一會(huì)吧！) ’提示用戶保存當(dāng)前活動(dòng)文檔。 選擇是：立刻存盤 amp。 Sub Run_it() TimeValue(17:00:00), Show_my_msg ’設(shè)置定時(shí)器在 17:00:00 激活，激活后運(yùn)行 Show_my_msg 。 這個(gè)函數(shù)是用來(lái)安排一個(gè)過程在將來(lái)的特定時(shí)間運(yùn)行， （可為某個(gè)日期的指定時(shí)間，也可為 指定的時(shí)間段之后） 。例如 Sheets(″Sheet3″).Select Range(″A1″).Value = 100 Range(″A2″).Value = 200 可改為： With Sheets(″Sheet3″) .Range(″A1″).Value = 100 .Range(″A2″).Value = 200 End With 方法 4：關(guān)閉屏幕更新 如果你的 VBA 程序前面三條做得比較差，則關(guān)閉屏幕更新是提高 VBA 程序運(yùn)行速度 的最有效的方法，縮短運(yùn)行時(shí)間 2/3 左右。 Workbooks(1).Sheets(1).Range(″A1:A1000″).=″Pay″ Workbooks(1).Sheets(1).Range(″A1:A1000″).=″Bold″ …… 則以下語(yǔ)句比上面的快 With Workbooks(1).Sheets(1).Range(″A1:A1000″).Font .Name = ″Pay″ .FontStyle = ″Bold″ …… End With 2．使用對(duì)象變量。 充分利用 Worksheet 函數(shù)是提高程序運(yùn)行速度的極度有效的方法。 例如用 Range 的屬性 CurrentRegion 來(lái)返回 Range 對(duì)象，該對(duì)象代表當(dāng)前區(qū)。然 后，在 第一 個(gè)程 序中的 Range(A1).Select 后插入一行，寫入以下代碼： = 56 這段程序，在你輸入正確密碼后，將該表所有文字轉(zhuǎn)變?yōu)樯罨疑１菊n的最后部分我們 學(xué)習(xí)了變量和常量的作用域。要?jiǎng)?chuàng)建公共級(jí)變量，可以用 Public 語(yǔ)句，具體語(yǔ)法如下： Public variablename As datatype 要?jiǎng)?chuàng)建公共級(jí)常量，具體語(yǔ)法如下： Public const CONSTANAME datatype = value 公共級(jí)變量或常量必須在模塊頂部的“通用聲明”區(qū)域中定義。 i ) Next 使用常量 現(xiàn)在,. 好理解得多. 要聲明常量并設(shè)置常量的值,需要使用 const , 如,假設(shè)需要聲明一個(gè)常量來(lái)保存銷項(xiàng)稅率,可以使用以下語(yǔ)句: conet 銷項(xiàng)稅率 As Long = 通常常量聲明時(shí)用全大寫字母以區(qū)分變量. 作用域 到現(xiàn)在為止,已經(jīng)學(xué)習(xí)了如何定義變量和常量, 方定義常量和變量: 過程中定義和在模塊頂部一個(gè)名為通用聲明 租用域. 在過程中聲明,該變量只能在該過程中使用,其他過程中不能使用這個(gè)變量和常量,這中 變量成為局部變量或過程級(jí)變量； 在模塊頂部聲明的變量稱為模塊級(jí)變量， 該變量在該模塊 的所有過程中都可以使用。 聲明動(dòng)態(tài)數(shù)組的語(yǔ)法如下： Dim dyn_array() As type 對(duì)數(shù)組聲明后可以在程序運(yùn)行時(shí)用：ReDim 語(yǔ)句指定數(shù)組的大?。?ReDim dyn_array()(array_size) 參數(shù) array_size 代表數(shù)組的新大小。也可以創(chuàng)建一個(gè)數(shù)組來(lái)保存考試成績(jī)，具體如下： Dim s 考試成績(jī)（14） As Integer 聲明數(shù)組時(shí)的另一種方法是不給定大小。 s 名字 End Sub 3)將鼠標(biāo)放到過程中的任何地方,按下 F5 鍵運(yùn)行過程,會(huì)顯示一個(gè)輸入框. 4)輸入你自己的名字并按回車鍵,會(huì)顯示一個(gè)消息框,顯示的文字中包含你自己的名字. 5)單擊確定按鈕,返回過程中. 在 Dim ,變量將被定義為 Variant 類型,因?yàn)?VBA 中默認(rèn)的數(shù)據(jù)類型是 ,最初的反應(yīng)也許是覺得應(yīng)該不用自己決 定數(shù)據(jù)類型,而將一切拋給 。例如，要保存諸如班級(jí)學(xué)生總數(shù)這樣 的小數(shù)字，那么 Byte 數(shù)據(jù)類型就足夠了。 : 1）只有在 VBA 編輯器中才能添加用戶窗體。我們對(duì)控件不在感 到陌生，也明白如何向工作表和窗體添加控件,但控件的內(nèi)容很多,，我 們將從界面轉(zhuǎn)移到學(xué)習(xí)編寫代碼，并最終將二者融合。還記得在使用 fx“粘貼函數(shù)”時(shí)的情況 嗎？ 通過實(shí)踐，我們會(huì)逐漸掌握每個(gè)控件的特性，這的確需要花時(shí)間，但不必死記硬背。 9）微調(diào)控件：也是一種數(shù)值選擇機(jī)制，通過單擊控件的箭頭來(lái)選擇數(shù)值?？梢赃x擇其中的項(xiàng)目或者輸入一個(gè)其它值。 5）選項(xiàng)按鈕：通常幾個(gè)選項(xiàng)按鈕組合在一起使用，在一組中只能選擇一個(gè)選項(xiàng)按鈕。 1）標(biāo)簽：它用于表現(xiàn)靜態(tài)文本。如有興趣， 可以通過 excel 幫助文件查詢這幾個(gè)詞條。個(gè)人宏工作簿存放的位置和特性。 5）選擇“格式化文本”并確定。 如果不希望在工作表上添加控件或圖片執(zhí)行宏， 還有一種方法可以選擇： 將宏指定給 “工 具欄按鈕” ，可按如下步驟進(jìn)行： 1）打開“HOUR2”工作簿，選擇“工具”“定義” ，顯示“自定義工具欄”對(duì)話框。很明顯，你再也不需記住宏的名字或快捷鍵了，只需按一下 按鈕。 6）在按鈕的標(biāo)題“按鈕 1”前單擊鼠標(biāo)左鍵，按下 DELETE 直到刪除所有文本，輸入 “格式化”作為標(biāo)題。 4）在希望放置按鈕的位置按下鼠標(biāo)左鍵，拖動(dòng)鼠標(biāo)畫出一個(gè)矩形，這個(gè)矩形代表了該 按鈕的大小。在本練 習(xí)中，將創(chuàng)建一個(gè)按鈕，并為它指定一個(gè)宏，然后用該按鈕來(lái)執(zhí)行宏。 注意：如果存在個(gè)人宏工作簿，則每當(dāng) excel 啟動(dòng)時(shí)會(huì)自動(dòng)將此文件打開并隱藏。 ）如果你要讓某個(gè)宏在多個(gè)工作簿都能使用，那么 就應(yīng)當(dāng)創(chuàng)建個(gè)人宏工作簿，并將宏保存于其中。 3）個(gè)人宏工作簿。錄制宏后指定快捷鍵 也很簡(jiǎn)單，只需選擇“工具” “宏” ，顯示“宏”對(duì)話框，選擇要指定快捷鍵的宏，再單擊“選 項(xiàng)”按鈕，通過“選項(xiàng)”對(duì)話框進(jìn)行設(shè)置。 3）右擊該標(biāo)題，從快捷菜單中選擇“打印” 。 注意：當(dāng)包含宏的工作簿打開時(shí)間，為宏指定快捷鍵會(huì)覆蓋 excel 默認(rèn)的快捷鍵。 錄制宏的局限性 希望自動(dòng)化的許多 excel : 1)錄制的宏無(wú)判斷或循環(huán)能力. 2)人機(jī)交互能力差,即用戶無(wú)法進(jìn)行輸入,計(jì)算機(jī)無(wú)法給出提示. 3)無(wú)法顯示 excel 對(duì)話框. 4)無(wú)法顯示自定義窗體. 小結(jié) 本學(xué)時(shí)中,你已經(jīng)掌握了 VBA 的一些基礎(chǔ)知識(shí),你會(huì)錄制宏、編輯宏而且了解了錄制宏 VBA 甚至 VB 經(jīng)了解了一個(gè)謎底,就是說(shuō),做完后才可以去玩喲. 思考: 1)VBA 只能用于 excel 嗎? 2)VBA 是基于哪種語(yǔ)言? 3)說(shuō)說(shuō) excel 和 VBA 的關(guān)系. 4)為什么要用宏? 原文發(fā)表時(shí)間：未知 [dvnews_page=(2):處理錄制的宏] 為宏指定快捷鍵 你也許希望為經(jīng)常使用的宏指定快捷鍵。 一：在錄制中出錯(cuò)而不得不修改。哪兩 句？現(xiàn)在，在宏中作一個(gè)修改，刪除多余行，直到和下面代碼相同： Sub 改變顏色() ’ ’ 改變顏色 Macro ’ xw 記錄的宏 2000610 ’ ’ With .ColorIndex = 3 End With End Sub 完成后，在工作表中試驗(yàn)一下。xlSolid 表示 純色。注意：有一小圓點(diǎn)，它的作用在于簡(jiǎn)化語(yǔ)句，小圓點(diǎn) 代替出現(xiàn)在 With 后的詞,它是 With 結(jié)構(gòu)的一部分。 以 With 開頭到 End With 結(jié)束的結(jié)構(gòu)是 With 結(jié)構(gòu)語(yǔ)句，這段語(yǔ)句是宏的主要部分。代碼如下： （日期和姓名會(huì)有不同） Sub 改變顏色() ’ ’ 改變顏色 Macro ’ xw 記錄的宏 2000610 ’ ’ With .ColorIndex = 3 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End S