Excel_VBA_編程教程,excel高級(jí)教程

Excel VBA 編程教程 2010 新春版 2010 新春版 2010 2 18 Excel VBA 編程教程 2010 新春版 目錄 一 VBA 語言基礎(chǔ) 1 第一節(jié)標(biāo)識(shí)符 1 第二節(jié)運(yùn)算符 1 第三節(jié)數(shù)據(jù)類型 1 第四節(jié)變量與常量 1 第五節(jié)數(shù)組 2 第六節(jié)注釋和賦值語句 2 第七節(jié)書寫規(guī)范 2 第八節(jié)判斷語句 2 第九節(jié)循環(huán)語句 3 第十節(jié)其他類語句和錯(cuò)誤語句處理 4 第十一節(jié)過程和函數(shù) 4 一 Sub 過程 4 二 Function 函數(shù) 5 三 Property 屬性過程和 Event 事件過程 5 第十二節(jié)內(nèi)部函數(shù) 5 一 測(cè)試函數(shù) 5 二 數(shù)學(xué)函數(shù) 5 三 字符串函數(shù) 5 四 轉(zhuǎn)換函數(shù) 6 五 時(shí)間函數(shù) 6 第十三節(jié)文件操作 6 文件 6 刪除 6 打開 6 讀入 7 寫入 7 關(guān)閉 7 其他文件函數(shù) 7 二 VISUALBASIC 程序設(shè)計(jì)網(wǎng)絡(luò)教學(xué) 1 第一課 VBA 是什么 1 1 1VBA 是什么 1 1 2EXCEL 環(huán)境中基于應(yīng)用程序自動(dòng)化的優(yōu)點(diǎn) 1 Excel VBA 編程教程 2010 新春版 1 3 錄制簡(jiǎn)單的宏 1 1 4 執(zhí)行宏 2 1 5 查看錄制的代碼 2 1 6 編輯錄制的代碼 3 1 7 錄制宏的局限性 31 8 小結(jié) 3 第二課處理錄制的宏 3 2 1 為宏指定快捷鍵 3 2 2 決定宏保存的位置 4 2 3 個(gè)人宏工作簿 4 2 3 1 保存宏到個(gè)人宏工作簿 4 2 3 2 使用并編輯個(gè)人宏工作簿中的宏 4 2 4 將宏指定給按鈕 4 2 5 將宏指定給圖片或其他對(duì)象 5 2 6 小結(jié) 5 第三課學(xué)習(xí)控件 5 頁面 2 3 1EXCEL 開發(fā)過程簡(jiǎn)介 5 3 2 認(rèn)識(shí)不同的控件 5 3 3 向工作表添加控件 6 3 4 設(shè)置控件的特性 6 3 5 給控件命名 6 3 6 使用用戶窗體 6 3 7 疑難解答 7 第四課理解變量和變量的作用 7 4 1 代碼存在的位置 模塊 7 4 2 對(duì)模塊的概覽 7 4 2 1 創(chuàng)建過程 8 4 2 2 運(yùn)行宏 9 Excel VBA 編程教程 2010 新春版 4 3 保存對(duì)模塊所做的改變 9 4 4 變量 9 4 4 1 變量的數(shù)據(jù)類型 9 4 4 2 用 Dim 語句創(chuàng)建變量 聲明變量 10 4 4 3 變量命名的慣例 10 4 4 4 使用數(shù)組 10 4 4 5 變量賦值 11 第五課利用 VBA 設(shè)置工作表使用權(quán)限 11 1 使用 WITH 語句 2 使用對(duì)象變量 方法 3 減少對(duì)象的激活和選擇 方法 4 關(guān)閉屏幕更新 第六課提高 EXCEL 中 VBA 的效率 12 方法 1 盡量使用 VBA 原有的屬性 方法和 WORKSHEET 函數(shù) 12 方法 2 盡量減少使用對(duì)象引用 尤其在循環(huán)中 12 1 使用 With 語句 12 2 使用對(duì)象變量 12 3 在循環(huán)中要盡量減少對(duì)象的訪問 13 方法 3 減少對(duì)象的激活和選擇 13 方法 4 關(guān)閉屏幕更新 13 第七課如何在 EXCEL 里使用定時(shí)器 13 三 學(xué)習(xí)微軟 EXCEL2002VBA 編程和 XML ASP 技術(shù) 15 第一章電子表格自動(dòng)化簡(jiǎn)介和了解宏命令 15 1 了解宏 15 2 宏命令的普通應(yīng)用 15 3 寫宏之前的計(jì)劃 16 4 錄制宏 17 5 運(yùn)行宏 18 6 修改宏代碼 19 7 添加注釋 21 8 分析宏代碼 22 9 清除宏代碼 23 10 測(cè)試修改好的宏 24 11 兩個(gè)層面運(yùn)行宏的方法 24 12 完善你的宏代碼 25 13 重新命名宏 27 Excel VBA 編程教程 2010 新春版 14 運(yùn)行宏的其它方法 27 頁面 3 15 使用鍵盤快捷鍵運(yùn)行宏 27 16 通過菜單運(yùn)行宏 28 17 通過工具欄按鈕運(yùn)行宏 30 18 通過工作表里面的按鈕運(yùn)行宏 31 19 保存宏 32 20 打印宏 32 21 保存宏在個(gè)人宏工作簿 32 22 打開含有宏的工作簿 34 23VB 編輯窗口 35 24 了解工程瀏覽窗口 35 25 了解屬性窗口 36 26 了解代碼窗口 36 27VB 編輯器里的其它窗口 38 28 接下來 39 第二章 VBA 第一步 39 1 了解指令 模塊和過程 39 2VBA 工程命名 39 3 模塊重命名 40 4 從其它工程調(diào)用過程 41 5 了解對(duì)象 屬性和方法 42 6 學(xué)習(xí)對(duì)象 屬性和方法 43 7 句法和文法 45 8 打斷很長(zhǎng)的 VBA 語句 47 9 了解 VBA 錯(cuò)誤 47 10 查找?guī)椭?49 11 語法和編程快捷助手 50 12 屬性 方法列表 51 13 常數(shù)列表 51 14 參數(shù)信息 52 15 快速信息 52 16 自動(dòng)完成關(guān)鍵字 52 17 縮進(jìn) 凸出 53 18 設(shè)置注釋塊 解除注釋塊 53 19 使用對(duì)象瀏覽器 53 20 使用 VBA 對(duì)象庫(kù) 58 21 用對(duì)象瀏覽器來定位過程 59 22 使用立即窗口 59 23 獲取立即窗口里的信息 61 Excel VBA 編程教程 2010 新春版 24 學(xué)習(xí)對(duì)象 62 25 電子表格單元格操作 62 26 使用 RANGE 屬性 62 27 使用 CELLS 屬性 62 28 使用 OFFSET 屬性 63 29 選擇單元格的其它方法 64 30 選擇行和列 64 31 獲取工作表信息 65 32 往工作表輸入數(shù)據(jù) 65 33 返回工作表中的信息 65 34 單元格格式 66 35 移動(dòng) 復(fù)制和刪除單元格 66 36 操作工作簿和工作表 67 37 操作窗口 WINDOWS 67 38 管理 EXCEL 應(yīng)用程序 68 頁面 4 39 接下來 68 第三章了解變量 數(shù)據(jù)類型和常量 69 1 保存 VBA 語句的結(jié)果 69 2 變量是什么 69 3 數(shù)據(jù)類型 69 4 如何產(chǎn)生變量 70 5 如何聲明變量 71 6 明確變量的數(shù)據(jù)類型 72 7 變量賦值 73 8 強(qiáng)制聲明變量 75 9 了解變量范圍 76 10 過程級(jí)別 當(dāng)?shù)?變量 76 11 模塊級(jí)別變量 77 12 工程級(jí)別變量 77 13 變量的存活期 78 14 了解和使用靜態(tài)變量 78 15 聲明和使用對(duì)象變量 79 16 使用明確的對(duì)象變量 80 17 查找變量定義 80 18 在 VB 過程里面使用常量 80 19 內(nèi)置常量 81 20 接下來 82 第四章 VBA 過程 子程序和函數(shù) 82 Excel VBA 編程教程 2010 新春版 1 關(guān)于函數(shù)過程 82 2 創(chuàng)建函數(shù)過程 82 3 執(zhí)行函數(shù)過程 84 4 從工作表里運(yùn)行函數(shù)過程 84 5 從另外一個(gè) VBA 過程里運(yùn)行函數(shù)過程 85 6 傳遞參數(shù) 86 7 明確參數(shù)類型 87 8 按地址和按值傳遞參數(shù) 88 9 使用可選的參數(shù) 88 10 定位內(nèi)置函數(shù) 89 11 使用 MSGBOX 函數(shù) 90 12 MSGBOX 函數(shù)的運(yùn)行值 94 13 使用 INPUTBOX 函數(shù) 95 14 數(shù)據(jù)類型轉(zhuǎn)變 96 15 使用 INPUTBOX 方法 97 16 使用主過程和子過程 100 17 接下來 102 第五章基于 VBA 做決定 102 1 關(guān)系和邏輯運(yùn)算符 102 2 IF THEN 語句 103 3 基于多于一個(gè)條件的決定 105 4 THEIF THEN ELSE 語句 106 5 IF THEN ELSEIF 語句 108 6 嵌套的 IF THEN 語句 110 7 SELECTCASE 語句 110 8 和 CASE 子句一起使用 IS 112 9 確定 CASE 子句里數(shù)值的范圍 113 10 在 CASE 子句里確定多個(gè)表達(dá)式 114 頁面 5 11 接下來 114 第六章在 VBA 中重復(fù)操作 114 1 DOLOOPS DO WHILE 和 DO UNTIL 114 2 觀察過程執(zhí)行 117 3 WHILE WEND 循環(huán) 118 4 FOR NEXT 循環(huán) 119 5 FOREACH NEXT 循環(huán) 120 7 提前跳出循環(huán) 121 Excel VBA 編程教程 2010 新春版 8 循環(huán)嵌套 122 9 接下來 122 第七章利用 VBA 數(shù)組管理數(shù)據(jù)清單和表格 122 1 了解數(shù)組 123 2 聲明數(shù)組 124 3 數(shù)組的上界和下界 124 4 在 VBA 過程里使用數(shù)組 124 5 數(shù)組和循環(huán)語句 125 6 使用二維數(shù)組 127 7 靜態(tài)和動(dòng)態(tài)數(shù)組 128 8 數(shù)組函數(shù) 129 9 ARRAY 函數(shù) 130 10 ISARRAY 函數(shù) 130 11 ERASE 函數(shù) 131 12 LBOUND 函數(shù)和 UBOUND 函數(shù) 131 13 數(shù)組中的錯(cuò)誤 132 14 數(shù)組作為參數(shù) 134 15 接下來 134 第八章利用 VBA 操縱文件和文件夾 134 1 獲取當(dāng)前文件夾的名稱 CURDIR 函數(shù) 135 2 更改文件或文件夾名稱 NAME 函數(shù) 135 3 檢查文件或文件夾是否存在 DIR 函數(shù) 136 4 獲得文件修改的日期和時(shí)間 FILEDATETIME 函數(shù) 137 5 獲得文件大小 FILELEN 函數(shù) 138 6 返回和設(shè)置文件屬性 GETATTR 函數(shù)和 SETATTR 函數(shù) 138 7 更改缺省文件夾或驅(qū)動(dòng)器 CHDIR 語句和 CHDRIVE 語句 139 8 創(chuàng)建和刪除文件夾 MKDIR 語句和 RMDIR 語句 140 9 復(fù)制文件 FILECOPY 語句 140 10 刪除文件 KILL 語句 142 11 從文件讀取和寫入數(shù)據(jù) INPUT OUTPUT 142 12 文件訪問類型 142 13 使用順序文件 143 14 讀取儲(chǔ)存于順序文件里的數(shù)據(jù) 143 15 逐行讀取文件 143 16 從順序文件中讀取字符 144 17 讀取分隔文本文件 145 18 往順序文件里寫數(shù)據(jù) 146 19 使用 WRITE 和 PRINT 語句 147 20 操作隨機(jī)文件 148 21 創(chuàng)建用戶定義的數(shù)據(jù)類型 148 Excel VBA 編程教程 2010 新春版 22 操作二進(jìn)制文件 152 23 操作文件和文件夾的時(shí)髦方法 153 24 使用 WSH 獲取文件信息 155 頁面 6 25 FILESYSTEMOBJEC 的方法和屬性 156 26 對(duì)象 FILE 的屬性 160 27 文件夾對(duì)象屬性 161 28 驅(qū)動(dòng)器對(duì)象屬性 161 29 使用 WSH 創(chuàng)建文本文件 162 30 使用 WSH 進(jìn)行其它操作 164 31 運(yùn)行其它應(yīng)用程序 164 32 創(chuàng)建快捷方式 165 33 接下來 166 第九章利用 VBA 控制其它應(yīng)用程序 167 1 啟動(dòng)應(yīng)用程序 167 2 在應(yīng)用程序之間切換 169 3 控制其它應(yīng)用程序 170 4 控制應(yīng)用程序的其它方法 171 5 了解自動(dòng)控制 172 6 了解鏈接和嵌入 172 7 使用 VBA 進(jìn)行鏈接和嵌入 173 8 COM 和自動(dòng)控制 174 9 了解綁定 174 10 后期綁定 174 11 早期綁定 174 12 建立到對(duì)象庫(kù)的引用 175 13 創(chuàng)建自動(dòng)控制對(duì)象 176 14 使用 CREATEOBJECT 函數(shù) 176 15 使用自動(dòng)控制創(chuàng)建一個(gè)新的 WORD 文檔 177 16 使用 GETOBJECT 函數(shù) 177 17 打開存在的 WORD 文檔 178 18 使用關(guān)鍵字 NEW 179 19 使用自動(dòng)控制訪問 MICROSOFTOUTLOOK 180 20 接下來 181 第十章對(duì)話框和自定義窗體 181 1 文件打開和另存為對(duì)話框 183 2 GETOPENFILENAME 和 GETSAVEASFILENAME 方法 187 3 創(chuàng)建窗體 188 Excel VBA 編程教程 2010 新春版 4 創(chuàng)建用戶窗體的工具 190 5 標(biāo)簽 191 6 文字框 191 7 框架 191 8 選項(xiàng)按鈕 191 9 復(fù)選框 192 10 切換按鈕 192 11 列表框 192 12 復(fù)合框 192 13 滾動(dòng)條 192 14 旋轉(zhuǎn)按鈕 192 15 圖像 192 16 多頁控件 192 17 TABSTRIP 控件 193 18 REFEDIT 控件 193 19 在窗體上放置控件 193 20 應(yīng)用程序示例 1 信息調(diào)查 193 21 在窗體上添加按鈕 選項(xiàng)框和其它控件 194 頁面 7 22 更改控件名稱 197 23 設(shè)置其它控件屬性 197 24 準(zhǔn)備工作表以儲(chǔ)存窗體數(shù)據(jù) 198 25 顯示自定義窗體 199 26 設(shè)置 TAB 順序 199 27 了解窗體和控件事件 200 28 編寫 VBA 過程對(duì)窗體和控件事件反應(yīng) 201 29 編寫過程來初始化窗體 201 30 編寫過程填充列表框控件 203 31 編寫過程控制選項(xiàng)按鈕 203 32 編寫過程同步文字框和旋轉(zhuǎn)按鈕 204 33 編寫過程關(guān)閉用戶窗體 204 34 轉(zhuǎn)移窗體數(shù)據(jù)到工作表 205 35 使用 INFOSURVEY 應(yīng)用程序 206 36 應(yīng)用程序示例 2 學(xué)生和考試 206 37 使用多頁和 TABSTRIP 控件 206 38 給窗體 STUDENTSANDEXAMS 自定義窗體編寫 VBA 過程 208 39 使用自定義窗體 STUDENTSANDEXAMS 212 40 接下來 214 第十一章自定義集合和類模塊 214 1 使用集合 214 Excel VBA 編程教程 2010 新春版 2 聲明自定義集合 215 3 給自定義集合添加對(duì)象 215 4 從自定義集合移出對(duì)象 216 5 創(chuàng)建自定義對(duì)象 217 6 創(chuàng)建類 218 7 變量聲明 218 8 定義類的屬性 218 9 創(chuàng)建 PROPERTYGET 過程 219 10 創(chuàng)建 PROPERTYLET 過程 219 11 創(chuàng)建類方法 220 12 創(chuàng)建類的示例 220 13 類模塊里的事件過程 221 14 創(chuàng)建用戶界面 221 15 觀察 VBA 過程的執(zhí)行 229 16 接下來 231 第十二章使用 VBA 創(chuàng)建自定義菜單和工具欄 231 1 工具欄 232 2 創(chuàng)建自定義工具欄 233 3 刪除自定義工具欄 235 4 使用 COMMANDBAR 的屬性 235 5 使用 COMMANDBAR 控件 235 6 理解和使用控件屬性 237 7 控件方法 239 8 使用菜單 240 9 菜單編程 241 10 創(chuàng)建子菜單 243 11 修改內(nèi)置快捷菜單 244 12 創(chuàng)建快捷菜單 247 13 接下來 249 第十三章調(diào)試 VBA 過程和處理錯(cuò)誤 249 頁面 8 1 測(cè)試 VBA 過程 249 2 終止過程 249 3 使用斷點(diǎn) 250 4 在中斷模式下使用立即窗口 253 5 使用 STOP 語句 254 6 添加監(jiān)視表達(dá)式 254 7 清除監(jiān)視表達(dá)式 256 8 使用快速監(jiān)視 256 Excel VBA 編程教程 2010 新春版 9 使用本地窗口和調(diào)用堆棧對(duì)話框 257 10 逐句運(yùn)行 VBA 過程 258 11 逐句運(yùn)行過程 259 12 逐過程執(zhí)行過程 259 13 設(shè)置下一條語句 260 14 顯示下一條語句 260 15 終止和重新設(shè)置 VBA 過程 260 16 了解和使用條件編譯 260 17 操縱書簽 262 18 捕捉錯(cuò)誤 262 17 接下來 266 第十四章微軟 EXCEL2002 中的事件編程 266 1 事件過程介紹 266 2 激活和失活事件 267 3 事件次序 268 4 工作表事件 268 5 工作簿事件 272 6 圖表事件 282 7 內(nèi)嵌圖表事件 284 8 可為應(yīng)用軟件對(duì)象識(shí)別的事件 285 9 查詢表時(shí)間 288 10 接下來 289 第十五章在 EXCEL 里使用 ACCESS 289 1 對(duì)象庫(kù) 289 2 建立對(duì)對(duì)象庫(kù)的引用 292 3 鏈接到 ACCESS 293 4 使用 AUTOMATION 鏈接到 ACCESS 數(shù)據(jù)庫(kù) 293 5 使用 DAO 鏈接到 ACCESS 數(shù)據(jù)庫(kù) 295 6 使用 ADO 鏈接到 ACCESS 數(shù)據(jù)庫(kù) 295 7 從 EXCEL 執(zhí)行 ACCESS 任務(wù) 296 8 創(chuàng)建新 ACCESS 數(shù)據(jù)庫(kù) 296 9 打開 ACCESS 窗體 298 10 打開 ACCESS 報(bào)表 300 11 運(yùn)行 ACCESS 查詢 301 12 運(yùn)行選擇查詢 302 13 運(yùn)行參數(shù)查詢 303 14 調(diào)用 ACCESS 函數(shù) 304 15 獲取 ACCESS 數(shù)據(jù)到 EXCEL 工作表 304 16 使用 GETROWS 方法獲取數(shù)據(jù) 304 17 使用 COPYFROMRECORDSET 方法獲取數(shù)據(jù) 305 Excel VBA 編程教程 2010 新春版 18 使用 TRANSFERSPREADSHEET 方法獲取數(shù)據(jù) 306 19 使用 OPENDATABASE 方法 307 20 從 ACCESS 數(shù)據(jù)創(chuàng)建文本文件 309 21 從 ACCESS 數(shù)據(jù)創(chuàng)建查詢表 310 頁面 9 22 在 EXCEL 里使用 ACCESS 數(shù)據(jù) 311 23 用 ACCESS 數(shù)據(jù)創(chuàng)建內(nèi)嵌圖表 311 24 傳輸 EXCEL 電子表格到 ACCESS 數(shù)據(jù)庫(kù) 313 25 將 EXCEL 電子表格鏈接到 ACCESS 數(shù)據(jù)庫(kù) 313 26 將 EXCEL 電子表格導(dǎo)入 ACCESS 數(shù)據(jù)庫(kù) 314 27 放置 EXCEL 數(shù)據(jù)到 ACCESS 表中 314 28 接下來 316 頁面 10 VBA 語言基礎(chǔ)橄欖樹整理 一 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 保留字重名 如 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)算符2 過 程名參數(shù) 1 參數(shù) 2 4 Excel VBA 編程教程 2010 新春版 頁面 14 VBA 語言基礎(chǔ)橄欖樹整理 debug printx1 y1 結(jié)果是 12 112 y1 按地址傳遞改變了值 而 x1 按值傳遞 未 改變?cè)?Endsub 二 Function 函數(shù) 函數(shù)實(shí)際是實(shí)現(xiàn)一種映射 它通過一定的映射規(guī)則 完成運(yùn)算并返回結(jié)果 參數(shù)傳遞也兩 種 按值傳遞 ByVal 和按地址傳遞 ByRef 如下例 Functionpassword ByValxasinteger byrefyasinteger asboolean Ify 100theny x yelsey x y x x 100 ify 150thenpassword trueelsepassword false EndFunction Subcall password Dimx1asinteger Dimy1asinteger x1 12 y1 100 ifpasswordthen 調(diào)用函數(shù) 1 作為一個(gè)表達(dá)式放在 右端 2 作為參數(shù)使用 debug printx1 endif Endsub 三 Property 屬性過程和 Event 事件過程 這是 VB 在對(duì)象功能上添加的兩個(gè)過程 與對(duì)象特征密切相關(guān) 也是 VBA 比較重要組成 技 術(shù)比較復(fù)雜 可以參考相關(guān)書籍 第十二節(jié)內(nèi)部函數(shù) 在 VBA 程序語言中有許多內(nèi)置函數(shù) 可以幫助程序代碼設(shè)計(jì)和減少代碼的編寫工作 一 測(cè)試函數(shù) IsNumeric x 是否為數(shù)字 返回 Boolean 結(jié)果 TrueorFalse IsDate x 是否是日期 返回 Boolean 結(jié)果 TrueorFalse IsEmpty x 是否為 Empty 返回 Boolean 結(jié)果 TrueorFalse IsArray x 指出變量是否為一個(gè)數(shù)組 IsError expression 指出表達(dá)式是否為一個(gè)錯(cuò)誤值 IsNull expression 指出表達(dá)式是否不包含任何有效數(shù)據(jù) Null IsObject identifier 指出標(biāo)識(shí)符是否表示對(duì)象變量 二 數(shù)學(xué)函數(shù) Sin X Cos X Tan X Atan x 三角函數(shù) 單位為弧度 Log x 返回 x 的自然對(duì)數(shù) Exp x 返回 ex Excel VBA 編程教程 2010 新春版 Abs x 返回絕對(duì)值 Int number Fix number 都返回參數(shù)的整數(shù)部分 區(qū)別 Int 將 8 4 轉(zhuǎn)換成 9 而 Fix 將 8 4 轉(zhuǎn)換成 8 Sgn number 返回一個(gè) Variant Integer 指出參數(shù)的正負(fù)號(hào) Sqr number 返回一個(gè) Double 指定參數(shù)的平方根 VarType varname 返回一個(gè) Integer 指出變量的子類型 Rnd x 返回 0 1 之間的單精度數(shù)據(jù) x 為隨機(jī)種子 三 字符串函數(shù) Trim string 去掉 string 左右兩端空白 Ltrim string 去掉 string 左端空白 Rtrim string 去掉 string 右端空白 Len string 計(jì)算 string 長(zhǎng)度 Left string x 取 string 左段 x 個(gè)字符組成的字符串 Right string x 取 string 右段 x 個(gè)字符組成的字符串 Mid string start x 取 string 從 start 位開始的 x 個(gè)字符組成的字符串 Ucase string 轉(zhuǎn)換為大寫 5 頁面 15 VBA 語言基礎(chǔ)橄欖樹整理 Lcase string 轉(zhuǎn)換為小寫 Space x 返回 x 個(gè)空白的字符串 Asc string 返回一個(gè) integer 代表字符串中首字母的字符代碼 Chr charcode 返回 string 其中包含有與指定的字符代碼相關(guān)的字符 四 轉(zhuǎn)換函數(shù) CBool expression 轉(zhuǎn)換為 Boolean 型 CByte expression 轉(zhuǎn)換為 Byte 型 CCur expression 轉(zhuǎn)換為 Currency 型 CDate expression 轉(zhuǎn)換為 Date 型 CDbl expression 轉(zhuǎn)換為 Double 型 CDec expression 轉(zhuǎn)換為 Decemal 型 CInt expression 轉(zhuǎn)換為 Integer 型 CLng expression 轉(zhuǎn)換為 Long 型 CSng expression 轉(zhuǎn)換為 Single 型 CStr expression 轉(zhuǎn)換為 String 型 CVar expression 轉(zhuǎn)換為 Variant 型 Val string 轉(zhuǎn)換為數(shù)據(jù)型 Str number 轉(zhuǎn)換為 String 五 時(shí)間函數(shù) Now 返回一個(gè) Variant Date 根據(jù)計(jì)算機(jī)系統(tǒng)設(shè)置的日期和時(shí)間來指定日期和時(shí) Excel VBA 編程教程 2010 新春版 間 Date 返回包含系統(tǒng)日期的 Variant Date Time 返回一個(gè)指明當(dāng)前系統(tǒng)時(shí)間的 Variant Date Timer 返回一個(gè) Single 代表從午夜開始到現(xiàn)在經(jīng)過的秒數(shù) TimeSerial hour minute second 返回一個(gè) Variant Date 包含具有具體時(shí) 分 秒的 時(shí)間 DateDiff interval date1 date2 firstdayofweek firstweekofyear 返回 Variant Long 的值 表示兩個(gè)指定日期間的時(shí)間間隔數(shù)目 Second time 返回一個(gè) Variant Integer 其值為 0 到 59 之間的整數(shù) 表示一分鐘之中 的某個(gè)秒 Minute time 返回一個(gè) Variant Integer 其值為 0 到 59 之間的整數(shù) 表示一小時(shí)中的 某分鐘 Hour time 返回一個(gè) Variant Integer 其值為 0 到 23 之間的整數(shù) 表示一天之中的某 一鐘點(diǎn) Day date 返回一個(gè) Variant Integer 其值為 1 到 31 之間的整數(shù) 表示一個(gè)月中的某 一日 Month date 返回一個(gè) Variant Integer 其值為 1 到 12 之間的整數(shù) 表示一年中的某月 Year date 返回 Variant Integer 包含表示年份的整數(shù) Weekday date firstdayofweek 返回一個(gè) Variant Integer 包含一個(gè)整數(shù) 代表某個(gè) 日期是星期幾 第十三節(jié)文件操作 文件 Dir pathname attributes pathname 可選參數(shù) 用來指定文件名的字符串表達(dá)式 可 能包含目錄或文件夾 以及驅(qū)動(dòng)器 如果沒有找到 pathname 則會(huì)返回零長(zhǎng)度字符串 attributes 可選參數(shù) 常數(shù)或數(shù)值表達(dá)式 其總和用來指定文件屬性 如果省略 則會(huì)返回匹 配 pathname 但不包含屬性的文件 刪除 Killpathname 從磁盤中刪除文件 pathname 參數(shù)是用來指定一個(gè)文件名 RmDirpathname 從磁盤中刪除目錄 pathname 參數(shù)是用來指定一個(gè)文件夾 打開 OpenpathnameFormode Accessaccess lock As filenumber Len reclength 能夠 對(duì)文件輸入 輸出 I O pathname 必要 字符串表達(dá)式 指定文件名 該文件名可能還包括目錄 文件夾及驅(qū)動(dòng)器 6 頁面 16 VBA 語言基礎(chǔ)橄欖樹整理 mode 必要 關(guān)鍵字 指定文件方式 有 Append Binary Input Output 或 Random 方式 如果未指定方式 則以 Random 訪問方式打開文件 Excel VBA 編程教程 2010 新春版 access 可選 關(guān)鍵字 說明打開的文件可以進(jìn)行的操作 有 Read Write 或 ReadWrite 操 作 lock 可選 關(guān)鍵字 說明限定于其它進(jìn)程打開的文件的操作 有 Shared LockRead LockWrite 和 LockReadWrite 操作 filenumber 必要 一個(gè)有效的文件號(hào) 范圍在 1 到 511 之間 使用 FreeFile 函數(shù)可得到下 一個(gè)可用的文件號(hào) reclength 可選 小于或等于 32 767 字節(jié) 的一個(gè)數(shù) 對(duì)于用隨機(jī)訪 問方式打開的文件 該值就是記錄長(zhǎng)度 對(duì)于順序文件 該值就是緩沖字符數(shù) 說明對(duì)文件做任何 I O 操作之前都必須先打開文件 Open 語句分配一個(gè)緩沖區(qū)供文件進(jìn)行 I O 之用 并決定緩沖區(qū)所使用的訪問方式 如果 pathname 指定的文件不存在 那么 在用 Append Binary Output 或 Random 方式打開文件時(shí) 可以建立這一文件 如果文件已由其 它進(jìn)程打開 而且不允許指定的訪問類型 則 Open 操作失敗 而且會(huì)有錯(cuò)誤發(fā)生 如果 mode 是 Binary 方式 則 Len 子句會(huì)被忽略掉 重要在 Binary Input 和 Random 方式下可以用不同的文件號(hào)打開同一文件 而不必先將該 文件關(guān)閉 在 Append 和 Output 方式下 如果要用不同的文件號(hào)打開同一文件 則必須在打 開文件之前先關(guān)閉該文件 讀入 Input filenumber varlist 從已打開的順序文件中讀出數(shù)據(jù)并將數(shù)據(jù)指定給變量 Get filenumber recnumber varname 將一個(gè)已打開的磁盤文件讀入一個(gè)變量之中 寫入 Write filenumber outputlist 將數(shù)據(jù)寫入順序文件 Print filenumber outputlist 將格式化顯示的數(shù)據(jù)寫入順序文件中 Put filenumber recnumber varname 將一個(gè)變量的數(shù)據(jù)寫入磁盤文件中 關(guān)閉 Close filenumberlist 關(guān)閉 Open 語句所打開的輸入 輸出 I O 文件 注意如果今后想用 Input 語句讀出文件的數(shù)據(jù) 就要用 Write 語句而不用 Print 語 句將數(shù)據(jù)寫入文件 因?yàn)樵谑褂?Write 時(shí) 將數(shù)據(jù)域分界就可確保每個(gè)數(shù)據(jù)域的完整性 因 此可用 Input 再將數(shù)據(jù)讀出來 使用 Write 還能確保任何地區(qū)的數(shù)據(jù)都被正確讀出 Write 與 Print 語句不同 當(dāng)要將數(shù)據(jù)寫入文件時(shí) Write 語句會(huì)在項(xiàng)目和用來標(biāo)記字符串的引 號(hào)之間插入逗號(hào) Write 語句在將 outputlist 中的最后一個(gè)字符寫入文件后會(huì)插入一個(gè)新 行字符 即回車換行符 Chr 13 Chr 10 其他文件函數(shù) LOF filenumber 返回一個(gè) Long 表示用 Open 語句打開的文件的大小 該大小以字節(jié)為單 位 EOF filenumber 返回一個(gè) Integer 它包含 Boolean 值 True 表明已經(jīng)到達(dá)為 Random 或 順序 Input 打開的文件的結(jié)尾 Loc filenumber 返回一個(gè) Long 在已打開的文件中指定當(dāng)前讀 寫位置 Seek filenumber 返回一個(gè) Long 在 Open 語句打開的文件中指定當(dāng)前的讀 寫位 7 頁面 17 VisualBASIC 程序設(shè)計(jì)網(wǎng)絡(luò)教學(xué)橄欖樹 整理 Excel VBA 編程教程 2010 新春版 二 VisualBASIC 程序設(shè)計(jì)網(wǎng)絡(luò)教學(xué) 第一課 VBA 是什么 1 1VBA 是什么 直到 90 年代早期 使應(yīng)用程序自動(dòng)化還是充滿挑戰(zhàn)性的領(lǐng)域 對(duì)每個(gè)需要自動(dòng)化的應(yīng)用程 序 人們不得不學(xué)習(xí)一種不同的自動(dòng)化語言 例如 可以用 EXCEL 的宏語言來使 EXCEL 自動(dòng)化 使 用 WORDBASIC 使 WORD 自動(dòng)化 等等 微軟決定讓它開發(fā)出來的應(yīng)用程序共享一種通用的自動(dòng)化 語言 VisualBasicForApplication VBA 可以認(rèn)為 VBA 是非常流行的應(yīng)用程序開發(fā) 語言 VASUALBASIC 的子集 實(shí)際上 VBA 是 寄生于 VB 應(yīng)用程序的版本 VBA 和 VB 的區(qū)別包括如 下幾個(gè)方面 1 VB 是設(shè)計(jì)用于創(chuàng)建標(biāo)準(zhǔn)的應(yīng)用程序 而 VBA 是使已有的應(yīng)用程序 EXCEL 等 自動(dòng)化 2 VB 具有自己的開發(fā)環(huán)境 而 VBA 必須寄生于已有的應(yīng)用程序 3 要運(yùn)行 VB 開發(fā)的應(yīng)用程序 用戶不必安裝 VB 因?yàn)?VB 開發(fā)出的應(yīng)用程序是可執(zhí)行文件 EXE 而 VBA 開發(fā)的程序必須依賴于它的 父 應(yīng)用程序 例如 EXCEL 盡管存在這些不同 VBA 和 VB 在結(jié)構(gòu)上仍然十分相似 事實(shí)上 如果你已經(jīng)了解了 VB 會(huì)發(fā)現(xiàn) 學(xué)習(xí) VBA 非?？?相應(yīng)的 學(xué)完 VBA 會(huì)給學(xué)習(xí) VB 打下堅(jiān)實(shí)的基礎(chǔ) 而且 當(dāng)學(xué)會(huì)在 EXCEL 中用 VBA 創(chuàng)建解決方案后 即已具備在 WORDACCESSOUTLOOKFOXPROPROWERPOINT 中用 VBA 創(chuàng)建解決方 案的大部分知識(shí) VBA 一個(gè)關(guān)鍵特征是你所學(xué)的知識(shí)在微軟的一些產(chǎn)品中可以相互轉(zhuǎn)化 VBA 可以稱作 EXCEL 的 遙控器 VBA 究竟是什么 更確切地講 它是一種自動(dòng)化語言 它可以使常用的程序自動(dòng)化 可以創(chuàng)建 自定義的解決方案 此外 如果你愿意 還可以將 EXCEL 用做開發(fā)平臺(tái)實(shí)現(xiàn)應(yīng)用程序 1 2EXCEL 環(huán)境中基于應(yīng)用程序自動(dòng)化的優(yōu)點(diǎn) 也許你想知道 VBA 可以干什么 使用 VBA 可以實(shí)現(xiàn)的功能包括 1 使重復(fù)的任務(wù)自動(dòng)化 2 自定義 EXCEL 工具欄 菜單和界面 3 簡(jiǎn)化模板的使用 4 自定義 EXCEL 使其成為開發(fā)平臺(tái) 5 創(chuàng)建報(bào)表 6 對(duì)數(shù)據(jù)進(jìn)行復(fù)雜的操作和分析 用 EXCEL 作為開發(fā)平臺(tái)有如下原因 1 EXCEL 本身功能強(qiáng)大 包括打印 文件處理 格式化和文本編輯 2 EXCEL 內(nèi)置大量函數(shù) 3 EXCEL 界面熟悉 4 可連接到多種數(shù)據(jù)庫(kù) 用其他語言開發(fā)應(yīng)用程序 一半的工作是編寫一些基本功能的模塊 包括文件的打開和保存 打印 復(fù)制等 而用 EXCEL 作為開發(fā)平臺(tái) 則由于 EXCEL 已經(jīng)具備這些基本功能 你要做的只是使 Excel VBA 編程教程 2010 新春版 用它 1 3 錄制簡(jiǎn)單的宏 在介紹學(xué)習(xí) VBA 之前 應(yīng)該花幾分鐘錄制一個(gè)宏 新術(shù)語 宏 指一系列 EXCEL 能夠執(zhí)行的 VBA 語句 以下將要錄制的宏非常簡(jiǎn)單 只是改變單元格顏色 請(qǐng)完成如下步驟 1 打開新工作簿 確認(rèn)其他工作簿已經(jīng)關(guān)閉 2 選擇 A1 單元格 調(diào)出 常用 工具欄 3 選擇 工具 宏 錄制新宏 4 輸入 改變顏色 作為宏名替換默認(rèn)宏名 單擊確定 注意 此時(shí)狀態(tài)欄中顯示 錄制 特 別是 停止錄制 工具欄也顯示出來 替換默認(rèn)宏名主要是便于分別這些宏 宏名最多可為 255 個(gè)字符 并且必須以字母開始 其中可用的字符包括 字母 數(shù)字和 1 頁面 18 VisualBASIC 程序設(shè)計(jì)網(wǎng)絡(luò)教學(xué)橄欖樹 整理 下劃線 宏名中不允許出現(xiàn)空格 通常用下劃線代表空格 5 選擇 格式 的 單元格 選擇 圖案 選項(xiàng)中的紅色 單擊 確定 6 單擊 停止錄制 工具欄按鈕 結(jié)束宏錄制過程 如果 停止錄制 工具欄開始并未出現(xiàn) 請(qǐng)選擇 工具 宏 停止錄制 錄制完一個(gè)宏后就可以執(zhí)行它了 1 4 執(zhí)行宏 當(dāng)執(zhí)行一個(gè)宏時(shí) EXCEL 按照宏語句執(zhí)行的情況就像 VBA 代碼在對(duì) EXCEL 進(jìn)行 遙控 但 VBA 的 遙控 不僅能使操作變得簡(jiǎn)便 還能使你獲得一些使用 EXCEL 標(biāo)準(zhǔn)命令所無法實(shí)現(xiàn)的功 能 而且 一旦熟悉了 EXCEL 的 遙控 你都會(huì)奇怪自己在沒有這些 遙控 的情況下 到底是 怎么熬過來的 要執(zhí)行剛才錄制的宏 可以按以下步驟進(jìn)行 1 選擇任何一個(gè)單元格 比如 A3 2 選擇 工具 宏 宏 顯示 宏 對(duì)話框 3 選擇 改變顏色 選擇 執(zhí)行 則 A3 單元格的顏色變?yōu)榧t色 試著選擇其它單元格和 幾個(gè)單元格組成的區(qū)域 然后再執(zhí)行宏 以便加深印象 1 5 查看錄制的代碼 到底是什么在控制 EXCEL 的運(yùn)行呢 你可能有些疑惑 好 讓我們看看 VBA 的語句吧 1 選擇 工具 宏 宏 顯示 宏 對(duì)話框 2 單擊列表中的 改變顏色 選擇 編輯 按鈕 此時(shí) 會(huì)打開 VBA 的編輯器窗口 VBE 關(guān)于該編輯器 以后再詳細(xì)說明 先將注意力集 Excel VBA 編程教程 2010 新春版 中到顯示的代碼上 代碼如下 日期和姓名會(huì)有不同 Sub 改變顏色 改變顏色 Macro xw 記錄的宏 2000 6 10 WithSelection Interior ColorIndex 3 Pattern xlSolid PatternColorIndex xlAutomatic EndWith EndSub 將來會(huì)十分熟悉這種代碼 雖然現(xiàn)在它們看上去像一種奇怪的外語 學(xué)習(xí) VBA 或編程語言在某 種程度上比較像在學(xué)習(xí)一種外語 Sub 改變顏色 這是宏的名稱 中間的以 開頭的五行稱為 注釋 它在錄制宏時(shí)自動(dòng)產(chǎn)生 以 With 開頭到 EndWith 結(jié)束的結(jié)構(gòu)是 With 結(jié)構(gòu)語句 這段語句是宏的主要部分 注意單詞 selection 它代表 突出顯示的區(qū)域 即 選定區(qū)域 WithSelection Interior 它讀 作 選擇區(qū)域的的內(nèi)部 這整段語句設(shè)置該區(qū)域內(nèi)部的一些 屬性 其中 ColorIndex 3 將該內(nèi)部設(shè)為紅色 注意 有一小圓點(diǎn) 它的作用在于簡(jiǎn)化語句 小圓點(diǎn)代 替出現(xiàn)在 With 后的詞 它是 With 結(jié)構(gòu)的一部分 另外 紅色被數(shù)字化為 3 紅色警戒是否可稱 作 3 號(hào)警戒 嗯 有興趣的話 你將 3 改為其他數(shù)字試試看 Pattern xlSolid 設(shè)置該區(qū)域的內(nèi)部圖案 由于是錄制宏 所以 雖然你并未設(shè)置這一項(xiàng) 宏仍然將其記錄下來 因?yàn)樵?圖案 選項(xiàng)中有此一項(xiàng) 只是你未曾設(shè)置而已 xlSolid 表示純 色 PatternColorIndex xlAutomatic 表示內(nèi)部圖案底紋顏色為自動(dòng)配色 EndWith 結(jié)束 With 語句 EndSub 整個(gè)宏的結(jié)束語 2 頁面 19 VisualBASIC 程序設(shè)計(jì)網(wǎng)絡(luò)教學(xué)橄欖樹 整理 1 6 編輯錄制的代碼 在上一節(jié) 我們錄制了一個(gè)宏并查看了代碼 代碼中有兩句實(shí)際上并不起作用 哪兩句 現(xiàn)在 在宏中作一個(gè)修改 刪除多余行 直到和下面代碼相同 Sub 改變顏色 改變顏色 Macro Excel VBA 編程教程 2010 新春版 xw 記錄的宏 2000 6 10 WithSelection Interior ColorIndex 3 EndWith EndSub 完成后 在工作表中試驗(yàn)一下 你會(huì)發(fā)現(xiàn)結(jié)果和修改前的狀況一樣 在 With 語句前加入 一行 Range A5 Select 試著運(yùn)行該宏 則無論開始選擇哪個(gè)單元格 宏運(yùn)行結(jié)果都是使 A5 單元格變紅 現(xiàn)在可以看到 編輯錄制的宏同樣非常簡(jiǎn)單 需要編輯宏是因?yàn)橐韵氯齻€(gè)方面的原因 一 在錄制中出錯(cuò)而不得不修改 二 錄制的宏中有多余的語句需要?jiǎng)h除 提高宏的運(yùn)行速度 三 希望增加宏的功能 比如 加入判斷或循環(huán)等無法錄制的語句 1 7 錄制宏的局限性 希望自動(dòng)化的許多 EXCEL 過程大多都可以用錄制宏來完成 但是宏記錄器存在以下局限性 通過宏記錄器無法完成的工作有 1 錄制的宏無判斷或循環(huán)能力 2 人機(jī)交互能力差 即用戶無法進(jìn)行輸入 計(jì)算機(jī)無法給出提示 3 無法顯示 EXCEL 對(duì)話框 4 無法顯示自定義窗體 1 8 小結(jié) 本課中 你已經(jīng)掌握了 VBA 的一些基礎(chǔ)知識(shí) 你會(huì)錄制宏 編輯宏而且了解了錄制宏的局限 性 你很努力 并且已經(jīng)為將來學(xué)習(xí) VBA 甚至 VB 等編程語言打下了基礎(chǔ) 關(guān)鍵是你已經(jīng)了解了一 個(gè)謎底 就是說 你了解了什么是編程 下面是些小練習(xí) 做完后才可以去玩喲 思考 1 VBA 只能用于 EXCEL 嗎 2 VBA 是基于哪種語言 3 說說 EXCEL 和 VBA 的關(guān)系 4 為什么要用宏 第二課處理錄制的宏 2 1 為宏指定快捷鍵 你也許希望為經(jīng)常使用的宏指定快捷鍵 快捷鍵是指鍵的組合 當(dāng)其按下時(shí)執(zhí)行一條命令 例如 CTRL C 在許多程序中代表 復(fù)制 命令 當(dāng)給宏指定了快捷鍵后 就可以用快捷鍵來執(zhí)行宏 而不 必通過 工具 菜單 注意 當(dāng)包含宏的工作簿打開時(shí)間 為宏指定快捷鍵會(huì)覆蓋 EXCEL 默認(rèn)的快捷鍵 例如 Excel VBA 編程教程 2010 新春版 把 CTRL C 指定給某個(gè)宏 那么 CTRL C 就不再執(zhí)行復(fù)制命令 用以下方法可以打印出 EXCEL 的 快捷鍵清單 用 A4 紙打印共有 24 頁之多 1 打開 EXCEL 幫助文件并選擇 目錄 選項(xiàng) 2 從 使用快捷鍵 文件夾中選擇 快捷鍵 標(biāo)題 3 右擊該標(biāo)題 從快捷菜單中選擇 打印 4 選擇 打印所選標(biāo)題和所有子主題 單擊 確定 3 頁面 20 VisualBASIC 程序設(shè)計(jì)網(wǎng)絡(luò)教學(xué)橄欖樹 整理 可以在創(chuàng)建宏時(shí)指定快捷鍵 也可以在創(chuàng)建后再指定 要在創(chuàng)建 錄制 宏時(shí)指定快捷鍵 只 須在錄制宏時(shí)在輸入宏名后 在 快捷鍵 文本框中輸入相應(yīng)的鍵 錄制宏后指定快捷鍵也很簡(jiǎn) 單 只需選擇 工具 宏 顯示 宏 對(duì)話框 選擇要指定快捷鍵的宏 再單擊 選項(xiàng) 按鈕 通 過 選項(xiàng) 對(duì)話框進(jìn)行設(shè)置 2 2 決定宏保存的位置 宏可保存在三種可能的位置 1 當(dāng)前工作簿 只有該工作簿打開時(shí) 該宏才可用 2 新工作簿 3 個(gè)人宏工作簿 2 3 個(gè)人宏工作簿 個(gè)人宏工作簿 是為宏而設(shè)計(jì)的一種特殊的具有自動(dòng)隱藏特性的工作簿 第一次將宏創(chuàng)建 到個(gè)人宏工作簿時(shí) 會(huì)創(chuàng)建名為 PERSONAL XLS 的新文件 如果該文件存在 則每當(dāng) EXCEL 啟 動(dòng)時(shí)會(huì)自動(dòng)將此文件打開并隱藏在活動(dòng)工作簿后面 在 窗口 菜單中選擇 取消隱藏 后 可以 很方便地發(fā)現(xiàn)它的存在 如果你要讓某個(gè)宏在多個(gè)工作簿都能使用 那么就應(yīng)當(dāng)創(chuàng)建個(gè)人宏工 作簿 并將宏保存于其中 個(gè)人宏工作簿保存在 XLSTART 文件夾中 具體路徑為 C WINDOWS Profiles ApplicationData Microsoft Excel XLSTART 可以以單詞 XLSTART 查詢 注意 如果存在個(gè)人宏工作簿 則每當(dāng) EXCEL 啟動(dòng)時(shí)會(huì)自動(dòng)將此文件打開并隱藏 因?yàn)樗?存放在 XLSTART 文件夾內(nèi) 2 3 1 保存宏到個(gè)人宏工作簿 本練習(xí) 將保存一個(gè)簡(jiǎn)單的宏到個(gè)人宏工作簿 該宏為文本加下劃線并改為斜體 步驟如下 1 建立一個(gè)名為 HOUR2 的工作簿 選擇 工具 宏 錄制新宏 顯示 錄制新宏 對(duì)話框 2 輸入 格式化文本 作為宏名 3 從 保存在 下拉框中選擇 個(gè)人宏工作簿 4 單擊 確定 按鈕 現(xiàn)在進(jìn)入錄制模式 5 單擊 斜體 工具欄按鈕 一段時(shí)間內(nèi) 鼠標(biāo)出現(xiàn)沙漏 特別是在第一次創(chuàng)建個(gè)人宏工作簿 時(shí) 因?yàn)?EXCEL 在創(chuàng)建該工作簿 Excel VBA 編程教程 2010 新春版 6 單擊 下劃線 按鈕 7 停止錄制 2 3 2 使用并編輯個(gè)人宏工作簿中的宏 剛才已經(jīng)保存了一個(gè)宏到個(gè)人宏工作簿 現(xiàn)在可以在任何工作簿中使用該宏 可按如下步驟 操作 1 關(guān)閉所有 EXCEL 工作簿 2 任意打開一個(gè) EXCEL 文件 EXCEL 自動(dòng)將個(gè)人宏工作簿同時(shí)打開并隱藏 3 在 A3 中輸入你的名字 4 選擇 工具 宏 顯示宏對(duì)話框 現(xiàn)在可以在宏列表中看到 格式化文本 這個(gè)宏 5 選擇 格式化文本 宏 并執(zhí)行 現(xiàn)在 A3 單元格中 你的名字變?yōu)樾斌w字還帶有下劃線 選 擇 窗口 取消隱藏 可以將 PERSONAL XLS 顯示出來 其中沒有任何文字 但通過 VBA 編輯器可 以在其中的模塊中找到 格式化文本 這個(gè)宏 在 VBA 編輯器中可以對(duì)該宏進(jìn)行直接編輯或者刪 除 如果 PERSONAL XLS 中一個(gè)宏都沒有 在啟動(dòng) EXCEL 時(shí)仍會(huì)打開 PERSONAL XLS 這也許是 EXCEL 存在的一個(gè)小毛病 2 4 將宏指定給按鈕 即使通過快捷鍵可以是宏的執(zhí)行變快 但是一旦宏的數(shù)量多了也難于記憶 而且 如果宏是 由其他人來使用 難道你要他們也記住那么多的快捷鍵嗎 作為 EXCEL 開發(fā)者 一個(gè)主要的目標(biāo)是為自動(dòng)化提供一個(gè)易于操作的界面 按鈕 是最常見 的界面組成元素之一 通過使用 窗體 工具欄 可以為工作簿中的工作表添加按鈕 在創(chuàng)建完一 個(gè)按鈕后 可以為它指定宏 然后你的用戶就可以通過單擊按鈕來執(zhí)行宏 在本練習(xí)中 將創(chuàng) 建一個(gè)按鈕 并為它指定一個(gè)宏 然后用該按鈕來執(zhí)行宏 具體步驟如下 1 打開 HOUR2 工作簿 2 調(diào)出 窗體 工具欄 4 頁面 21 VisualBASIC 程序設(shè)計(jì)網(wǎng)絡(luò)教學(xué)橄欖樹 整理 3 單擊 窗體 工具欄中的 按鈕 控件 此時(shí)鼠標(biāo)變成十字形狀 4 在希望放置按鈕的位置按下鼠標(biāo)左鍵 拖動(dòng)鼠標(biāo)畫出一個(gè)矩形 這個(gè)矩形代表了該按鈕 的大小 對(duì)大小滿意后放開鼠標(biāo)左鍵 這樣一個(gè)命令按鈕就添加到了工作表中 同時(shí) EXCEL 自 動(dòng)顯示 指定宏 對(duì)話框 5 從 指定宏 對(duì)話框中選擇 格式化文本 單擊 確定 這樣 就把該宏指定給命令按鈕 6 在按鈕的標(biāo)題 按鈕 1 前單擊鼠標(biāo)左鍵 按下 DELETE 直到刪除所有文本 輸入 格式化 作為標(biāo)題 7 單擊按鈕外的任意位置 現(xiàn)在該按鈕的標(biāo)題由默認(rèn)的 按鈕 1 變?yōu)?格式化 而且被指定 了一個(gè)宏 8 試著在某個(gè)單元格中輸入文本 單擊按鈕運(yùn)行該宏 當(dāng)鼠標(biāo)移動(dòng)至該按鈕時(shí)自動(dòng)變成手的形狀 如果要改變其大小或標(biāo)題 只需用右鍵單擊該 按鈕就可以進(jìn)行修改和設(shè)置 很明顯 你再也不需記住宏的名字或快捷鍵了 只需按一下按鈕 Excel VBA 編程教程 2010 新春版 2 5 將宏指定給圖片或其他對(duì)象 要執(zhí)行宏有多種方法可以選擇 可以將宏指定給按鈕等控件 還可以指定給圖片 自定義 工具欄 窗體甚至可以將宏指定給某個(gè) 事件 比如單擊工作表 雙擊工作表 激活工作表 打開工作簿等等 事件 是一個(gè)重要的概念 除此而外 方法 對(duì)象 都是將來你會(huì)經(jīng)常接觸到 的 現(xiàn)在它們看來十分抽象 但是將來你會(huì)很熟悉這些詞語 指定宏到圖片十分簡(jiǎn)單 只需單 擊某個(gè)圖片 單擊快捷菜單中的 指定宏 進(jìn)行設(shè)置即可 如果不希望在工作表上添加控件或圖片執(zhí)行宏 還有一種方法可以選擇 將宏指定給 工具 欄按鈕 可按如下步驟進(jìn)行 1 打開 HOUR2 工作簿 選擇 工具 定義 顯示 自定義工具欄 對(duì)話框 2 從 類別 列表框中選擇 宏 從 命令 列表框中選擇 自定義按鈕 3 將 自定義按鈕 拖動(dòng)到工具欄 4 右鍵單擊該按鈕 選擇 指定宏 顯示 指定宏 對(duì)話框 5 選擇 格式化文本 并確定 6 單擊 關(guān)閉 按鈕 關(guān)閉 自定義工具欄 對(duì)話框 7 試著在某個(gè)單元格中輸入文本 單擊工具欄按鈕運(yùn)行該宏 2 6 小結(jié) 小結(jié)與思考 宏存放于三個(gè)可能的位置 個(gè)人宏工作簿存放的位置和特性 執(zhí)行宏的方式 指定宏是為某個(gè)對(duì)象的事件指定一個(gè)程序 一旦這個(gè)對(duì)象以該事件激活 系統(tǒng)將運(yùn)行指定的程 序 常用的對(duì)象有 workbook worksheet range cells 圖表 圖片 數(shù)據(jù)透視表 控件 窗體 工 具欄 每一個(gè)對(duì)象都有其可以響應(yīng)的特殊事件 也有一些通用事件如單擊或雙擊等 如有興趣 可以通過 EXCEL 幫助文件查詢這幾個(gè)詞條 在 EXCEL 中看到的幾乎都是屬于某個(gè)對(duì)象 而在 EXCEL 中所做的許多工作 如移動(dòng)一下鼠標(biāo)等等 都可能觸發(fā)了一個(gè)事件 下一學(xué)時(shí)我們將共同學(xué)習(xí) 控件 第三課學(xué)習(xí)控件 3 1EXCEL 開發(fā)過程簡(jiǎn)介 需要對(duì)以下問題有個(gè)大致的概念 1 誰使用 這決定了程序的操作難度及界面感觀 2 數(shù)據(jù)來源和保存在哪里 這決定了程序的結(jié)構(gòu) 3 如何操作 這將決定程序的界面和細(xì)節(jié) 4 數(shù)據(jù)處理的結(jié)果 最終決定程序的價(jià)值 3 2 認(rèn)識(shí)不同的控件 開始時(shí)請(qǐng)關(guān)閉所有工作簿 打開一個(gè)新工作簿并另存為 HOUR3 在工具欄上單擊鼠標(biāo)右鍵 從快捷菜單中選擇 窗體 顯示 窗體 工具欄 其中有 16 個(gè)控件 只有 9 個(gè)可放到工作表內(nèi) 1 標(biāo)簽 它用于表現(xiàn)靜態(tài)文本 Excel VBA 編程教程 2010 新春版 2 分組框 它用于將其他控件進(jìn)行組合 3 按鈕 用于執(zhí)行宏命令 5 頁面 22 VisualBASIC 程序設(shè)計(jì)網(wǎng)絡(luò)教學(xué)橄欖樹 整理 4 復(fù)選框 它是一個(gè)選擇控件 通過單擊可以選擇和取消選擇 可以多項(xiàng)選擇 5 選項(xiàng)按鈕 通常幾個(gè)選項(xiàng)按鈕組合在一起使用 在一組中只能選擇一個(gè)選項(xiàng)按鈕 6 列表框 用于顯示多個(gè)選項(xiàng)并從中選擇 只能單選 7 組合框 用于顯示多個(gè)選項(xiàng)并從中選擇 可以選擇其中的項(xiàng)目或者輸入一個(gè)其它值 8 滾動(dòng)條 不是你常見的來給很長(zhǎng)的窗體添加滾動(dòng)能力的控件 而是一種選擇機(jī)制 例如 調(diào)節(jié)過渡色的滾動(dòng)條控件 包括水平滾動(dòng)條和垂直滾動(dòng)條 9 微調(diào)控件 也是一種數(shù)值選擇機(jī)制 通過單擊控件的箭頭來選擇數(shù)值 例如改變 Windows 日期或時(shí)間就會(huì)使用到微調(diào)控件 3 3 向工作表添加控件 用 EXCEL 設(shè)計(jì)界面十分簡(jiǎn)單 要將控件添加到工作表上 可以按以下步驟操作 1 創(chuàng)建新工作簿并另存為 HOUR3 顯示 窗體 工具欄 2 選擇 標(biāo)簽 控件 3 將鼠標(biāo)定位到 E1 此時(shí)鼠標(biāo)變成小十字 4 按下左鍵 拖動(dòng)大約四個(gè)單元格長(zhǎng)度 放開鼠標(biāo)左鍵 如果希望控件大小易于控制 可在創(chuàng) 建該控件時(shí)按下 ALT 拖動(dòng) 5 在標(biāo)簽 1 上單擊右鍵 選擇 編輯文字 現(xiàn)在可以輸入文字 完成后 單擊任何單元格退出 文字編輯 6 通過以上步驟可以添加其它控件到工作表中 不再贅述 3 4 設(shè)置控件的特性 設(shè)置控件的特性 可以按以下步驟操作 1 選中先前創(chuàng)建的復(fù)選框控件 如果沒有馬上創(chuàng)建一個(gè) 2 右擊該控件 選擇 控制 選項(xiàng)卡 3 在 單元格鏈接 中輸入 A1 并確定 4 單擊任意單元格 退出設(shè)置 5 用鼠標(biāo)左鍵單擊復(fù)選框 A1 出現(xiàn) TRUE 這意味著該控件被選中 再次單擊該控件 A1 出現(xiàn) FALSE 6 選擇剛才創(chuàng)建的滾動(dòng)條控件 并調(diào)出 設(shè)置控件格