2014年從業(yè)55 7g含excelvba開(kāi)發(fā)技術(shù)

Excel2007是Office2007的組件之一，該軟件主要用來(lái)對(duì)表格數(shù)據(jù)進(jìn)行管理、Excel2007發(fā)揮最大功效，可以借助于VBA開(kāi)發(fā)各種電子表格應(yīng)用程序。VBAExcel2007應(yīng)用程序提供新的功能或增強(qiáng)現(xiàn)有的功能，從而減少用次開(kāi)發(fā)，則需要讀者能熟練地操作Excel軟件，并具有一定的程序設(shè)計(jì)能力。Excel2000/XP/2003/2007的各版本中。使用各版本的用戶都可以通過(guò)本書學(xué)習(xí)VBA知識(shí)。VB程序設(shè)計(jì)方面的礎(chǔ)，使初學(xué)者通過(guò)本書就可學(xué)習(xí)到完整的ExcelVBA程序設(shè)計(jì)的相關(guān)知識(shí)。應(yīng)用程序開(kāi)發(fā)中的高級(jí)內(nèi)容，使讀者開(kāi)發(fā)的Excel應(yīng)用程序更專業(yè)。Excel2007的新增功能，以及實(shí)際開(kāi)發(fā)應(yīng)用程序中經(jīng)常要用到、而其他書籍很1Excel20071～3Excel開(kāi)發(fā)平臺(tái)概述、使用宏、ExcelVBA的開(kāi)發(fā)環(huán)境等內(nèi)容。2VBA4～9VBA基礎(chǔ)、程序控制結(jié)構(gòu)、使9章還詳細(xì)介紹了字符串和日期3Excel10～15Excel中常用對(duì)象的屬對(duì)象、Chart對(duì)象等常用對(duì)象的使用。第4部分用戶界面設(shè)計(jì)，包括16～21章，分別介紹了使用Excel內(nèi)置框、創(chuàng)建522～25Office程序、處理文件、使用ADO數(shù)據(jù)庫(kù)、Excel2007與Internet等內(nèi)容。6VBA26～30Excel加載宏、使用類模塊、操作VBE、使用WindowsAPI、制作應(yīng)用程序的幫助等內(nèi)容。731章為一個(gè)實(shí)例——進(jìn)銷存管理系統(tǒng)，本章詳細(xì)介經(jīng)驗(yàn)。在閱讀本書前，讀者至少已經(jīng)掌握了以下的Excel操作技能：使用和函數(shù)本書由伍遠(yuǎn)高主筆編寫。其他參與編寫和資料整理的人員有、陳冠軍、、程彩紅、、、、、、、、麻雪、領(lǐng)、、吝曉寧、、、、、、、、、、、、紀(jì)超、段桂東、顏盟盟、黃寶生、、石、陳超、牛曉輝、劉聰、任瀟、商斌、張雙、、李秀勁、李勝美、蔡文仙、杜陽(yáng)陽(yáng)、吳興亮、陳水望、黃任楨、梅、皇波、蛟、陳浩然、許、鞏長(zhǎng)宇、黃金亮、姜艷超、李軍、李慶、彭志林、王志娟、、等。在此一并表示感謝！第10章系統(tǒng)桌面控 內(nèi)容簡(jiǎn)介Excel2007與以前版本相比，從操作界面到對(duì)象模型的變化都很大，例如，取消了菜單和，新VBAExcelVBA操作這些新他Office程序、處理文件、使用ADO數(shù)據(jù)庫(kù)、Excel2007與Internet、使用Excel加載宏、使用類模塊、操作VBEWindowsAPI、制作應(yīng)用程序的幫助等內(nèi)容。最后詳細(xì)介紹了一個(gè)進(jìn)銷存管理系統(tǒng)本書知識(shí)全面，結(jié)構(gòu)由淺入深，每個(gè)知識(shí)點(diǎn)以實(shí)例代碼進(jìn)行介紹，使讀者可快速。適合需要用ExcelExcelVBAExcel應(yīng)用程序的讀者，也適合大中專院校的學(xué)生閱讀，還可作為VBA的培訓(xùn)。，。/伍遠(yuǎn)高編著.—：ⅠE…Ⅱ.伍…Ⅲ.電子表格系統(tǒng)，Excel2007–程序設(shè)計(jì)Ⅳ.館CIP（2009）第000381責(zé)任編輯：馮志強(qiáng)賴： 址：學(xué)研A 社總機(jī) 購(gòu) 銷：新華書開(kāi) 字?jǐn)?shù)：1042次：200921價(jià) 印次：200921調(diào)換。： 轉(zhuǎn)3103產(chǎn)品編號(hào)：031017-01 1部分Excel2007第1章Excel2007開(kāi)發(fā)平臺(tái)概 Excel2007新增功 Excel版本簡(jiǎn) Excel2007的特 Excel2007的界 使用功能 用Excel開(kāi)發(fā)應(yīng)用程序的優(yōu) Excel應(yīng)用程序結(jié) Excel應(yīng)用程序的構(gòu) 面向?qū)ο缶幊虣C(jī) Excel應(yīng)用程序開(kāi)發(fā)流 開(kāi)發(fā)前的準(zhǔn)備工 應(yīng)用程序開(kāi)發(fā)過(guò) 系統(tǒng)測(cè) 應(yīng)用程序發(fā) 第2章使用 宏簡(jiǎn) 什么是 使用宏的優(yōu) 創(chuàng)建宏的方 創(chuàng)建 在Excel2003中錄制 打開(kāi)Excel2007的錄制宏功 在Excel2007中錄制 使用VB創(chuàng)建 管理 設(shè)置宏選 刪除 編輯 運(yùn)行 使用快捷鍵運(yùn)行 使用【宏】框運(yùn)行 使用運(yùn)行 使用菜單欄運(yùn)行 使用快速運(yùn)行 通過(guò)按鈕運(yùn)行 打開(kāi)工作簿自動(dòng)運(yùn)行 個(gè)人宏工作 了解個(gè)人宏工作 保存宏到個(gè)人宏工作 管理個(gè)人宏工作 宏的安全 打開(kāi)包含宏的文 設(shè)置宏的安全 第3章ExcelVBA的開(kāi)發(fā)環(huán) VBE簡(jiǎn) VBE概 進(jìn)入 VBE操作界 VBE的子窗 工程資源管理窗 屬性窗 代碼窗 調(diào)整VBE子窗口位 定制VBE環(huán) 設(shè)置【編輯器】選項(xiàng) 設(shè)置【編輯器格式】選項(xiàng) 設(shè)置【通用】選項(xiàng) 設(shè)置【可連接的】選項(xiàng) 使用幫 打開(kāi)幫助主界 查看對(duì)象屬 搜索關(guān)鍵 2部分VBA第4章VBA基 VBA簡(jiǎn) 什么是 在Excel中使用VBA的優(yōu) VBA語(yǔ)法簡(jiǎn) 了解VBA代 VBA字符 關(guān)鍵 標(biāo)識(shí) 數(shù)據(jù)類 基本數(shù)據(jù)類 自定義數(shù)據(jù)類 枚舉類 常 直接常 符號(hào)常 系統(tǒng)常 變 變 變量的作用域和生存 局部變 模塊變 全局變 靜態(tài)變 運(yùn)算符和表達(dá) 算術(shù)表達(dá) 比較表達(dá) 邏輯表達(dá) 連接運(yùn)算表達(dá) 第5章程序控制結(jié) VBA程序結(jié)構(gòu)概 認(rèn)識(shí)語(yǔ) 結(jié)構(gòu)化程序設(shè)計(jì)的控制結(jié) 常用語(yǔ) 賦值語(yǔ) 注釋語(yǔ) 使用InputBox輸入 使用MsgBox函數(shù)顯示信 分支程 單分支語(yǔ)句—— 二分支語(yǔ)句——If...Then... 多分支語(yǔ)句——If...Then... 多分支語(yǔ)句——Select 循環(huán)程序結(jié) 了解循環(huán)程 For...Next語(yǔ) Do...Loop語(yǔ) ForEach...Next語(yǔ) 循環(huán)嵌 第6章使用數(shù) 數(shù)組簡(jiǎn) 用數(shù)組保存工作表數(shù) 數(shù)組的維 數(shù) 一維數(shù) 數(shù) 設(shè)置數(shù)組默認(rèn)下 初始化數(shù) 使用循環(huán)語(yǔ)句初始化數(shù) 用數(shù)組值初始化數(shù) 動(dòng)態(tài)數(shù) 動(dòng)態(tài)數(shù) 數(shù)組的清除和重定 操作數(shù)組的函 判斷數(shù) 查詢數(shù)組的下標(biāo)范 數(shù)組使用實(shí) 數(shù)據(jù)排 幸運(yùn)號(hào) 用數(shù)組填充單元格區(qū) 第7章使用過(guò) 過(guò)程的相關(guān)概 分解大過(guò) 過(guò)程的類 定義Sub過(guò) 使用框定義子過(guò) 使用代碼創(chuàng)建Sub過(guò) 定義Function函數(shù)過(guò) 使用框定義函數(shù)過(guò) 使用代碼創(chuàng)建Function過(guò) 過(guò)程的調(diào) 調(diào)用Sub過(guò) 調(diào)用Function過(guò) 過(guò)程的參數(shù)傳 形參與實(shí)參的結(jié) 按傳值方式傳遞參 按傳地址方式傳遞參 傳遞數(shù)組參 可選參數(shù)和可變參 可選參 可變參 遞歸過(guò) 常用過(guò)程實(shí) 計(jì)算個(gè)人所得 將數(shù)值轉(zhuǎn)換為表格的列 大寫金額轉(zhuǎn)換函 第8章管理模 模塊的分 管理標(biāo)準(zhǔn)模 插入模 刪除模 模塊的導(dǎo)入導(dǎo) 導(dǎo)出模 導(dǎo)入模 使用代碼窗 代碼編輯屬性/方法列 常數(shù)列 快速信 參數(shù)信 自動(dòng)完成關(guān)鍵 第9章處理字符串和日 了解處理字符 字符串的計(jì)算字符串長(zhǎng) 生成重復(fù)字符 用循環(huán)生成重復(fù)字符 用String函數(shù)生成重復(fù)字符 使用Space函數(shù)生成重復(fù)空 變換字符 大小寫字母轉(zhuǎn)換——Lcase函數(shù)和Ucase函 字符轉(zhuǎn)換——StrConv函 查詢字符編碼——Asc函 生成字符——Chr函 比較字符 使用比較運(yùn)算 使用Like運(yùn)算 使 p函 處理子字符 取左側(cè)子串——Left函 取右側(cè)子串——Rigth函 獲取部分子串——Mid函 刪除字符串兩側(cè)空 查找子串位置——InStr函 處理日期時(shí)間數(shù) 日期時(shí)間數(shù)據(jù)的保 獲取和設(shè)置日 生成日期/時(shí)間數(shù) 計(jì)算日期數(shù) 使用計(jì)時(shí) 3部分掌握Excel第10章Excel對(duì)象概 對(duì)象的概 了解對(duì) 對(duì)象的屬 對(duì)象的方 對(duì)象的對(duì)象變量和對(duì)象數(shù) 對(duì)象變 對(duì)象數(shù) 使用集 集合的概 集合中的對(duì) 集合的方法和屬 遍歷集合中的對(duì) Excel對(duì)象模 Excel對(duì)象模型簡(jiǎn) 常用對(duì)象簡(jiǎn) 隱含使用對(duì) 使用對(duì)象瀏覽 認(rèn)識(shí)對(duì)象瀏覽 用對(duì)象瀏覽器查看對(duì)象成 第11章使用Application對(duì) 了解Application對(duì) Application對(duì)象常用屬 Application對(duì)象常用方 Application對(duì)象常用設(shè)置應(yīng)用程序選 設(shè)置主窗口標(biāo)題 控制狀態(tài) 控制編輯 控制鼠標(biāo)指針形 控制應(yīng)用程 控制屏幕更 控制信 顯示最近使用的文 模擬鍵盤輸 定時(shí)執(zhí)行過(guò) 自定義功能 調(diào)用Excel工作表函 快速跳 合并單元格區(qū) 激活Excel2007的功能區(qū)選項(xiàng) 處理用戶動(dòng) 啟用Application編寫Application過(guò) 第12章使用Workbook對(duì) 了解Workbook對(duì) Workbooks集 Workbook常用屬 Workbook常用方 Workbook常用控制工作簿集 新建工作 打開(kāi)工作 打開(kāi)文本文 工作簿是否存 工作簿是否打 控制工作 保存工作 更名保存工作 設(shè)置工作簿查看文檔屬 處理工作簿文件 響應(yīng)用戶的動(dòng) 自動(dòng)打開(kāi)關(guān)聯(lián)工作 拖動(dòng)單元 退出前強(qiáng)制保存工作 保存工作 限制工作簿使用次 限制打 第13章使用Worksheet對(duì) 了解Worksheet對(duì) Worksheets集 Worksheet對(duì)象的常用屬 Worksheet對(duì)象的常用方 Worksheet對(duì)象的常用管理工作 新增工作 刪除工作 獲取工作表 激活工作 選擇工作 選取前后工作 工作表保護(hù)狀 保護(hù)工作 撤銷工作表的保 判斷工作表是否存 工作 隱藏工作 移動(dòng)工作 計(jì)算工作表打印頁(yè) 控制工作表中的處理超響應(yīng)用戶操 選中某個(gè)區(qū) 設(shè)置滾動(dòng)區(qū) 輸入相同數(shù) 輸入連續(xù)的數(shù) 增加快捷菜 限制選擇其他工作 隱藏工作 突出顯示當(dāng)前位 第14章使用Range對(duì) Range對(duì)象概 Range對(duì)象的常用屬 Range對(duì)象的常用方 Range對(duì)象 使用A1樣式單元 使用索引號(hào)單元 偏移單元 行或 查找數(shù)據(jù)區(qū)域邊 當(dāng)前區(qū) 獲取已使用區(qū) 獲取區(qū)域獲取合并區(qū)域獲取指定類型的單元 合并區(qū)域的子區(qū) 區(qū)域內(nèi)的單個(gè)單元 擴(kuò)展單元格區(qū) 獲取單元格信 獲取單元格地 獲取區(qū)域信 統(tǒng)計(jì)區(qū)域中數(shù) 追蹤單元 按顏色統(tǒng)計(jì)單元格數(shù) 操作行 插入 插入 刪除 隱藏 設(shè)置行 設(shè)置列 管理批 插入批 查看批 隱藏/顯示批 刪除批 為輸入數(shù)據(jù)的單元格添加批 將原數(shù)據(jù)作批 操作單元 給單元格設(shè)置給單元格設(shè)置錯(cuò)誤 判斷錯(cuò)誤類 設(shè)置打印區(qū) 合并單元 拆分單元 限制單元格移動(dòng)范 清除單元 刪除單元格區(qū) 設(shè)置單元格格 設(shè)置自動(dòng)套用格 設(shè)置邊框 設(shè)置文本對(duì)齊格 單元格文本縮 設(shè)置文本方 設(shè)置自動(dòng)換行格 設(shè)置縮小字體填 設(shè)置日期格 生成大寫金 設(shè)置單元格圖 設(shè)置條件格 第15章其他常用Excel對(duì) 使用Name對(duì) 添加名 修改名 顯示名稱的定 獲取Name對(duì)象的使用Window對(duì) 創(chuàng)建窗 調(diào)整窗口大 獲取窗口狀 拆分窗 設(shè)置窗口顯示比 設(shè)置工作簿顯示選 設(shè)置工作表網(wǎng)格 使用Chart對(duì) 創(chuàng)建圖表工作 創(chuàng)建嵌入圖 轉(zhuǎn)換圖表類 獲取圖表標(biāo)題信 圖表的系列信 調(diào)整圖表的數(shù)據(jù) 將圖表保存為使用嵌入圖表4部分第16章使用Excel內(nèi)置 了解Excel內(nèi)置 使用FindFile打開(kāi)文 獲取單個(gè)文件 獲取多個(gè)文件 調(diào)用Excel內(nèi)置 使用內(nèi)置框的初始 第17章創(chuàng)建自定義 新建窗 新建窗 設(shè)置窗體屬 添加控件到窗 工具 添加控 設(shè)置控件屬 控件屬 設(shè)置控件屬 調(diào)整窗體中的控 設(shè)置控件大 設(shè)置控件布 設(shè)置Tab鍵順 編寫代 編寫代 給控件編寫代 編寫窗體代 調(diào)用用戶窗 調(diào)試運(yùn)行窗 調(diào)用用戶窗體基礎(chǔ)知 編寫調(diào)用用戶窗體的代 第18章使用標(biāo)準(zhǔn)控 常用屬 控件實(shí)例——進(jìn)度 命令按 命令按鈕常用屬 命令按鈕常用按鈕實(shí)例——控制窗體顯 圖 圖像控件屬 圖像控件圖像實(shí)例——Ssh窗 文字 文字框常用屬 文字框的方 文字框常用文字框?qū)嵗獢?shù)據(jù)輸入窗 復(fù)選 復(fù)選框?qū)?復(fù)選框復(fù)選框?qū)嵗O(shè)置Excel選 選項(xiàng)按 選項(xiàng)按鈕常用屬 選項(xiàng)按鈕常用選項(xiàng)按鈕實(shí)例——設(shè)置窗體字號(hào)和顏 列表 列表框常用屬 列表框的方 列表框?qū)嵗斜砜蜷g移動(dòng)數(shù) 復(fù)合 復(fù)合框常用屬 復(fù)合框常用方 復(fù)合框常用復(fù)合框?qū)嵗C(jī)配置 滾動(dòng) 滾動(dòng)條常用屬 滾動(dòng)條常用滾動(dòng)條實(shí)例——顯示比 旋轉(zhuǎn)按 旋轉(zhuǎn)按鈕常用屬 旋轉(zhuǎn)按鈕常用旋轉(zhuǎn)按鈕實(shí)例——修改日期和時(shí) 多 多頁(yè)控件常用屬 多頁(yè)控件常用多頁(yè)實(shí)例——報(bào)名登 RefEdit常用屬 RefEdit實(shí)例——設(shè)置單元格格 第19章使用ActiveX控 添加ActiveX控 什么是ActiveX控 添加ActiveX控件到工具 使用進(jìn)度條控 進(jìn)度條控件的常用屬 進(jìn)度條控件的方 進(jìn)度條實(shí)例——隱藏 使用圖像列表控 圖像列表控件簡(jiǎn) 圖像列表控件的屬 圖像列表控件的方 添加圖像到ImageList控 圖像列表控件實(shí) 使用樹形視圖控 樹形視圖控件簡(jiǎn) 樹形視圖控件常用屬 樹形視圖控件的常用方 樹形視圖控件常用樹形視圖控件實(shí) 使用列表視圖控 列表視圖簡(jiǎn) 列表視圖控件常用屬 列表視圖控件常用列表視圖控件實(shí) 第20章使用 OfficeOpenXML的優(yōu) Excel2007OpenXML文件結(jié) RibbonX控件簡(jiǎn) 基本控 容器控 控件屬 控件回調(diào)函 自定義 手工方式自定義 使用UI編輯器自定義 自定義RibbonX實(shí) 組合內(nèi)置 添加RibbonX到內(nèi)置選項(xiàng) RibbonX控件回調(diào)函數(shù)實(shí) 第21章使用 CommandBar對(duì) CommandBars簡(jiǎn) CommandBars對(duì)象常用屬 CommandBars對(duì)象常用方 CommandBar對(duì)象常用屬 CommandBar對(duì)象常用方 列出命令 CommandBarControl對(duì) CommandBarControls集合對(duì) CommandBarControl對(duì) 列出內(nèi)置命令欄控 自定義菜 菜單的構(gòu) 創(chuàng)建新菜 自定義快捷菜 內(nèi)置快捷菜 創(chuàng)建快捷菜 添加菜單項(xiàng)到內(nèi)置快捷菜 隱藏/內(nèi)置菜單 自定義內(nèi)置創(chuàng)建5部分第22章控制其他Office程 OLE自動(dòng)化技術(shù)簡(jiǎn) OLE簡(jiǎn) 服務(wù)程 實(shí)例化對(duì)象變 控制Word程 了解Word對(duì)象模 打開(kāi)Word文 獲取Word文檔中的數(shù) 批量創(chuàng)建Word文 控 了 對(duì)象模 打開(kāi)演示文 創(chuàng)建演示文 控制Outlook程 了解Outlook對(duì)象模 用Outlook發(fā)送郵 獲取Outlook保存的郵 第23章處理文 常用文件操作語(yǔ) 文件管理語(yǔ) 創(chuàng)建文件語(yǔ) 向文件中寫入數(shù) 從文件中讀出數(shù) 文件對(duì)象模 文件對(duì)象模型簡(jiǎn) FSO對(duì)象 獲得文件信 獲取磁盤信 查看文件信 文件管 文件是否存 文 分離文件名和擴(kuò)展 處理文件 創(chuàng)建文件 列出文件夾中的文 列出文件夾名 刪除所有空文件 處理文本文 創(chuàng)建文本文 工作表保存為文本文 添加數(shù)據(jù)到文本文 文本文件中的數(shù) 第24章使用ADO數(shù)據(jù) SQL結(jié)構(gòu)查詢概 結(jié)構(gòu)化查詢簡(jiǎn) 查詢語(yǔ)句 插入語(yǔ)句 修改語(yǔ)句 刪除語(yǔ)句 ADO對(duì)象模 ADO對(duì)象模 Connection對(duì) Recordset對(duì) 其他ADO常用對(duì) 使用ADO數(shù)據(jù)庫(kù)的步 Excel工作簿的數(shù)據(jù) 查詢工作表中的數(shù) 導(dǎo)入其他工作表數(shù) Access數(shù)據(jù)庫(kù) 導(dǎo)入Access數(shù) 添加數(shù)據(jù)到 修改記 刪除記 創(chuàng)建Access數(shù)據(jù) 列出所有表 表的字段信 第25 Excel2007與 管理超插入超用VBA創(chuàng)建超添加超到收藏 直接打開(kāi)網(wǎng) 打開(kāi)Internet上的工作 打開(kāi)Web上的工作 用VBA代碼打開(kāi)Web上的工作 使用Internet上的數(shù) 創(chuàng)建Web查 了解QueryTable對(duì) 用VBA創(chuàng)建Web查 帶參數(shù)的Web查 發(fā)布數(shù)據(jù)到 保存為網(wǎng) 用VBA代碼發(fā)布網(wǎng) 6部分VBA第26章使用Excel加載 加載宏的概 加載宏的類 加載宏的用 Excel中已有的加載 管理加載 載入加載 卸載加載 系統(tǒng)加載宏列 創(chuàng)建加載 創(chuàng)建Excel加載 創(chuàng)建COM加載 使用加載 使用Excel加載 使用COM加載 第27章使用類模 類模塊的概 什么是 類的作 理解 創(chuàng)建類模 建立對(duì)象 建立類的屬 創(chuàng)建PropertyGet過(guò) 創(chuàng)建PropertyLet過(guò) 創(chuàng)建類的方 類模塊的使用類模塊創(chuàng)建對(duì) 第28章操作 VBE簡(jiǎn) 添加VBE對(duì)象模型的信任VBAVBE對(duì)象模 VBE對(duì)象模 了解VBE對(duì)象模 VBProject對(duì) ponent對(duì) Reference對(duì) CodeModule對(duì) 顯示VBA工程相關(guān)信 查看工程信 查看部 查看用VBA控制VBA代 查看VBA過(guò)程 查看VBA代 導(dǎo)出代 導(dǎo)入代 在代碼中搜 動(dòng)態(tài)添加VBA代 增加模 向模塊中添加代 工作表中動(dòng)態(tài)增加按 創(chuàng)建動(dòng)態(tài)用戶窗 第29章使用Windows WindowsAPI基 WindowsAPI概 在Excel中使用 函 調(diào)用API函 制作特殊窗 制作半透明窗 制作橢圓窗 制作不規(guī)則窗 獲取系統(tǒng)信 獲取內(nèi)存狀 獲取鍵盤信 第30章制作應(yīng)用程序的幫 認(rèn) 幫助文件的構(gòu) 準(zhǔn)備幫助文 制作HTML幫助系 創(chuàng)建項(xiàng)目文 創(chuàng) 文 創(chuàng)建索引文 設(shè)置幫助文件的選 編譯生成幫助文 打開(kāi)幫助文 給應(yīng)用程序掛接幫 7部分第31章進(jìn)銷存管理系 系統(tǒng)描 表格設(shè) 主界 商品信 銷 供 存貨統(tǒng) 銷售人 設(shè)計(jì)功能 設(shè)計(jì)功能區(qū)的 設(shè)計(jì)功能區(qū)各按鈕代 進(jìn)貨模 商品供貨錄 商品信息錄 測(cè)試商品供貨功 進(jìn)貨報(bào) 銷售模 設(shè)計(jì)銷貨 測(cè)試銷貨單功 銷售報(bào) 銷售業(yè)績(jī)報(bào) 庫(kù)存模 商品查 存貨統(tǒng) 庫(kù)存明 附錄 VBA程序調(diào)試技 VBA程序的模 設(shè)置斷 代碼調(diào)試運(yùn)行方 監(jiān)視表達(dá) 使用本地窗 使用立即窗 附錄 ASCII碼 4VBAVBAVBAVBA數(shù)據(jù)類型、常數(shù)、變量、運(yùn)算符和表達(dá)式等相關(guān)基礎(chǔ)知識(shí)，為進(jìn)一步學(xué)習(xí)VBA編程打下VBA要了解什么是VBA，以及用VBA能做什么。VBAVisualBasicforApplication的縮寫，是一種應(yīng)用程序自動(dòng)化語(yǔ)言。所謂應(yīng)用程序自動(dòng)化，是指通過(guò)編寫程序讓常規(guī)應(yīng)用程序（Excel、Word等）自動(dòng)完成工作，如在Excel里自動(dòng)設(shè)置單元格的格式、多張工作表之間的自動(dòng)計(jì)算等。VBA是微軟應(yīng)用程序開(kāi)發(fā)語(yǔ)言——VBVB程序設(shè)計(jì)的經(jīng)驗(yàn)，學(xué)VBA根據(jù)其嵌入軟件的不同，增加了對(duì)相應(yīng)軟件中對(duì)象的控制功能。例如Excel的ExcelVBAExcelExcelExcel的自動(dòng)化水平?？梢杂煤芏痰臅r(shí)間在Excel環(huán)境中開(kāi)發(fā)出一套完整的管理信息系統(tǒng)。Excel中使用VBA件給用戶即可完成文件的發(fā)布。VBAExcelVBAExcel應(yīng)用程序都由一個(gè)工程表示，每個(gè)工程包含當(dāng)前工作簿VBA代碼，本節(jié)介紹VBA代碼最基礎(chǔ)的內(nèi)容。鍵詞EndSub結(jié)束。其結(jié)構(gòu)如下：'說(shuō)明在Sub之后是宏的名稱，宏名稱后是一對(duì)括號(hào)。在Sub和EndSub之間是每次Sub設(shè)置表頭格式()'快捷鍵:Ctrl+tActiveWindow.WindowState=Sub設(shè)置表頭格式()'快捷鍵:Ctrl+tActiveWindow.WindowState=xlNormalWithSelection.HorizontalAlignment=.VerticalAlignment=.WrapText=.Orientation=.AddIndent=.IndentLevel=.ShrinkToFit=.ReadingOrder=.MergeCells=FalseEndWithWith.Name.Name宋體.Size=.Strikethrough=.Superscript=.Subscript=.OutlineFont=.Shadow=.Underline=.ColorIndex=.TintAndShade=.ThemeFont=xlThemeFontNoneEndWithSelection.Font.Bold=TrueActiveWindow.WindowState=xlNormalEnd有一些固定的單詞（稱為關(guān)鍵字）經(jīng)常出現(xiàn)，例如，Selection、With幾乎每行代碼中都包括句點(diǎn)，用來(lái)連接VBA語(yǔ)言中不同的要素。例如，VBA中具有特殊含義的字符，如+、–、*、/、>、<、=和各種標(biāo)點(diǎn)綜上所述，在VBA代碼中可使用各種常見(jiàn)的符號(hào)。VBA中具有特殊意義的保留字或符號(hào)。這些關(guān)鍵字具多種類型。常用的關(guān)鍵字如表4-1所示。4-1VBA提示：VBA中，對(duì)關(guān)鍵字不區(qū)分大小寫，無(wú)論用戶是按大寫、小寫或大小寫混合的Enter鍵后，VBE將自動(dòng)將關(guān)鍵字轉(zhuǎn)換為VBA程序中，為了區(qū)分過(guò)程、常數(shù)、變量、對(duì)象等，需要為這些過(guò)程、常數(shù)、變不能在標(biāo)識(shí)符中使用空格、句點(diǎn)（.）、感嘆號(hào)（!）或@、&、$，#整型整型數(shù)據(jù)為16位（2個(gè)字節(jié)）的數(shù)值形式，其范圍為–32768～32767之間。整型DimDimn1AsIntegerDimn%長(zhǎng)整型長(zhǎng)整型數(shù)據(jù)為32位（4個(gè)字節(jié)）有符號(hào)的數(shù)值形式，其范圍從 。Long的類型字符為和號(hào)（&）單精度浮點(diǎn)型的范圍在負(fù)數(shù)的時(shí)候是從–3.402823E38～–1.401298E-45，而在正數(shù)的時(shí)候是從1.401298E-45～3.402823E38。單精度浮點(diǎn)型的類型字符為感嘆號(hào)（!）雙精度浮點(diǎn)型貨幣型為64位（8個(gè)）10000154位數(shù)字。這種表示法的范圍可以從–9223372654775808～22337208477.5807。貨幣為at號(hào)（）。字節(jié)型字符串"Microsfot"MicrosfotVisualBasic""歡迎使用VBA"Dimstr1AsStringDimDimstr1AsStringDimstr2AsString*10定義后將一直占用10個(gè)字符位置。布爾型轉(zhuǎn)換Boolean值為其他的數(shù)據(jù)類型時(shí)，F(xiàn)alse成為0，而True成為–1。日期型11999912310:00:0023:59:59#1Jan93#日期型變量會(huì)根據(jù)計(jì)算機(jī)中的短日期格式來(lái)顯示。時(shí)間則根據(jù)計(jì)算機(jī)的時(shí)間格式值則表示時(shí)間。午夜為00.5。負(fù)整數(shù)表示18991230日之前的日期。對(duì)象型VBA是面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，用戶可在程序中各種對(duì)象，例如，Excel的工必須使用Set語(yǔ)句給對(duì)象變量賦值，對(duì)象變量使用結(jié)束后，應(yīng)為其賦值為Nothing。如：DimMyObjectAsSetMyObject=Worksheets("sheet1")SetMyObject=Nothing

'賦值對(duì) 變體型變體型是VBA中的一種特殊數(shù)據(jù)類型，所有沒(méi)有被數(shù)據(jù)類型的變量都默認(rèn)為變體型。變體型數(shù)據(jù)是所有沒(méi)被顯式（用如Dim、Private、Public或Static等語(yǔ)句——變String數(shù)據(jù)及用戶定義類型外，可以包含任函數(shù)或TypeName函數(shù)來(lái)決定如何處理變體型中的數(shù)據(jù)。As數(shù)據(jù)類型AsEndTypeTypeProductNameAsStringtyAsIntegerPriceAsCurrencyOrderAsIntegerEnd便地處理Excel工作表中的數(shù)據(jù)。使用Type語(yǔ)句了一個(gè)用戶自定義類型后，就可以在該范圍內(nèi)的任何位置聲Type語(yǔ)句進(jìn)行定義。一般情況下，記錄類型在模塊中定義，其變量可以出現(xiàn)在VBA工程的任何地方。4-1所示的工作表中每行數(shù)據(jù)產(chǎn)品名稱、庫(kù)存量、單價(jià)、訂購(gòu)量等數(shù)據(jù)。VBAProduct，然后在程序中使用4-1TypeTypeProductNameAsString tyAsInteger PriceAs OrderAsInteger EndTypeSubDimp1AsWithWorksheets("商品")p1.ProductNameCells(32)p1.Price=.Cells(3,6) ty=.Cells(3,7)p1.Order=.Cells(3,8)EndEnd4-2xlHAlign 值 –7–51–––PublicPublic|PrivateEnum類型名稱成員[=常數(shù)表達(dá)式]常數(shù)表達(dá)式EndPublicPublicEnumEnd1，“六年級(jí)”表示常數(shù)6。PublicPublicEnum一年級(jí)EndGrade枚舉類型后，即可在代碼窗口中使用該類型，在定義為變量時(shí)將Grade4-2所示。給枚舉類型變量賦值時(shí)，在代碼窗口中將自動(dòng)列出枚舉類型的成員，如圖4-3所示。圖4-2定義枚舉變 圖4-3使用枚舉 3.14、255等僅表示它自身取值的數(shù)據(jù)叫常數(shù)。常數(shù)的值在程序執(zhí)行之前就已經(jīng)確定，執(zhí)行VBA程序中可以直接使用的量。根據(jù)表示的數(shù)據(jù)類型不同，直接常 "Excel"ExcelVBA 到精通 體的意義。例如，#8/8/2008#是正確的，而#4/31/2008#是錯(cuò)誤的，因?yàn)?月沒(méi)有31日。輸入日期時(shí)，VBE自動(dòng)將其兩個(gè)“# Windows操作系統(tǒng)中的設(shè)置相關(guān)。例如，#8/13/08#可能表示2008813日。

4-4為該常數(shù)命名，在需要使用該常數(shù)的地方其常數(shù)名即可。有確定的值。VBA中可使用Const關(guān)鍵字定義符號(hào)常數(shù)，其語(yǔ)法格式如下：Const常數(shù)標(biāo)識(shí)符As數(shù)據(jù)類型=符號(hào)常數(shù)表達(dá) 其中，Const為定義符號(hào)常數(shù)的關(guān)鍵字，符號(hào)常數(shù)表達(dá)式計(jì)算出來(lái)的值保存在常數(shù)名中，如果在常數(shù)時(shí)沒(méi)有顯式地使用Astype子句，則該常數(shù)的數(shù)據(jù)類型是最適合其表ConstConstMAXCOL=ConstMyIntAsInteger=ConstBOOKNAME="ExcelVBA 到精通ConstBOOK= Office"+BOOKNAME 以上代碼使用前面定義的 Excel中的各對(duì)象，ExcelVBA預(yù)定義了許多常數(shù)，這些常數(shù)稱為系統(tǒng)常數(shù)。提供對(duì)象庫(kù)的其他應(yīng)用程序（Access、Excel、ProjectWord等）也提供常數(shù)列表，VBA中，系統(tǒng)常數(shù)名采用大小寫混合的格式，其前綴表示定義常數(shù)的對(duì)象庫(kù)名。等幾個(gè)）作為前綴，而VB中的系統(tǒng)常數(shù)名通常都是以小寫的vb作為前綴。提供了很多Msgbox常數(shù)，用vbOKOnly表示框只有【確定】按鈕，比用數(shù)值0更直“常數(shù)”的所有幫助條目，如圖4-5所示。在查找到的信息中單擊【VisualBasic常數(shù)】按鈕，可顯示VBA常數(shù)的分類，如圖4-6左圖所示。單擊分類【Color常數(shù)】按鈕即可查看具體的常數(shù)，如圖4-6右圖4-54-6常數(shù)，單擊【搜索】按鈕，將顯示Msgbox的相關(guān)常數(shù)，如圖4-7所示。4-7 VBAVBA按照變量的數(shù)據(jù)使用Dim變量，其語(yǔ)法格式如下：Dim變量名[As數(shù)據(jù)類型 Dim和As為變量的關(guān)鍵字?jǐn)?shù)據(jù)類型為前面介紹的類型關(guān)鍵字，例如，String、Date型包含進(jìn)來(lái)。在下面的語(yǔ)句中，變量intX、intY與intZ被為Integer類型。DimintXAsInteger,intYAsInteger,intZAs 用隱式變量時(shí)，VBAVariant類型。在為其指定值之前，其值Empty；當(dāng)為它賦值后，會(huì)采用所賦值的類型作為變量的類型。使用隱式的方法，看起來(lái)很方便。但是，當(dāng)程序很大或很復(fù)雜時(shí)，這種Option VBA應(yīng)用程序中，將使用很多的變量，有些變量可在整個(gè)應(yīng)用程序中使用，而另值自動(dòng)。這類變量用Dim關(guān)鍵字進(jìn)行定義。ExcelVBA的某個(gè)模塊頂端定義的變量，在該模塊的各過(guò)程中都可模塊級(jí)別變量。這類變量在模塊的開(kāi)始部分使用Dim或Private關(guān)鍵字進(jìn)行定義。用的變量。這類變量在模塊的開(kāi)始部分用Public關(guān)鍵字進(jìn)行定義。在過(guò)程中使用Static關(guān)鍵字的變量稱為靜態(tài)變量，這類變量在整個(gè)應(yīng)用程序中有碼創(chuàng)建了變量strName并且指定為String數(shù)據(jù)類型。DimstrNameAs Dims1AsStrings1測(cè)試局部變量"MsgBoxs1EndEndSubs1MsgBox4-82”中直接使用MsgBox顯示s1中的值，因?yàn)樵撨^(guò)程中并未定義變量s1的值，所以顯示框中無(wú)任何信息，如圖4-8右圖所示。4-8DimPrivatePrivate語(yǔ)句可以更容易地和解釋代碼。使用兩個(gè)語(yǔ)句變量的語(yǔ)法格式完全相同。在模塊的【】部分，輸入變量的代碼，如圖4-9所示PrivatestrNameAs 圖4-9模塊變SubSub測(cè)試模塊變量()strName=" MsgBox軟件設(shè)計(jì)：&strNameEndSubSub顯示模塊變量的值EndstrNameMsgBoxstrName的值。接著運(yùn)行過(guò)程“顯示模塊變量的值”，在該過(guò)程中未對(duì)模塊strNamestrName為模塊變量，在“測(cè)試模塊變量”過(guò)程中已經(jīng)賦值，所如果首先運(yùn)行過(guò)程“顯示模塊變量的值”，MsgBox框?qū)⒉粫?huì)顯示任何值使用Public語(yǔ)句公共模塊級(jí)別變量。全局變量可用于工程中的任何過(guò)程。如果全局變量是于標(biāo)準(zhǔn)模塊或是類模塊中，則它也可以被任何到此全局變量所屬工程的。在VBE中雙擊模塊“變量作用域”，在模塊的部分使用以下代碼全局PublicstrAppNameAs SubSub初始化全局變量strAppNameExcel測(cè)試應(yīng)用程序"MsgBoxstrAppNameEndSub顯示全局變量的值()Sub顯示全局變量的值()End圖4- 全局變 圖4-11在其他模塊中全局變靜態(tài)變量的方法是，在過(guò)程內(nèi)部用Static關(guān)鍵字一個(gè)或多個(gè)變量，其用法StaticintCountAs SubSub靜態(tài)變量測(cè)試Dimi1AsIntegerStatici2AsIntegeri1=i1+1i2=i2+MsgBox局部變量的值：&i1&vbNewLine&_"靜態(tài)變量的值："&i2,vbOKOnlyEndSub測(cè)試Fori=1To5EndSub4-12左圖所示的結(jié)果，由圖可看出局部變量和靜態(tài)變量的值都為1。單擊【確定】按鈕將再次顯示類似的框，單擊多次【確定】4-12在“靜態(tài)變量測(cè)試”過(guò)程中將變量i1為局部變量，該過(guò)程執(zhí)行時(shí)進(jìn)行初始化，執(zhí)行完后就自動(dòng)釋放，所以，無(wú)論該過(guò)程執(zhí)行多少次，輸出的結(jié)果都為1。而變量i2為靜態(tài)變量，只有第一次進(jìn)入過(guò)程時(shí)才進(jìn)行初始化操作，當(dāng)退出該過(guò)程+、都是VBA4種基本的運(yùn)算，即算術(shù)運(yùn)算、比較運(yùn)算、邏輯運(yùn)算和連接運(yùn)算。由這些運(yùn)算符連接操作數(shù)可組成4種不同的表達(dá)式。4-3優(yōu)先 ^1–2*、3\45+、62+4=6，8- 4-4 =<>Debug.PrintDebug.Print"A">"B"Debug.Print"A">"a"Debug.Print2<=5理解。而對(duì)于字符串的比較，在VBA中有特殊的規(guī)定。比較字符串時(shí)，按字母的ASCIIAASCII65，而字母“BASCII66 圖4-13立即窗Debug.Print"A"> Debug.Print2> 出如圖4-14所示的錯(cuò)誤提示信息。4-14可能。表4-5列出了邏輯運(yùn)算操作符及其優(yōu)先級(jí)。4-5優(yōu)先 1Not2XAnd3XOr4XXor5XEqv6XImp則各種邏輯運(yùn)算符的運(yùn)算結(jié)果如表4-6的真值表所示。4-6FFTTFTFTNotTTFFAAndFFFTAOrFTTTAXorFTTFAEqvTFFTAImpTTFTVBA"連接運(yùn)算符在MsgBox中使用得很多，例如：MsgBox"局部變量的值："&i1&vbNewLine&"靜態(tài)變量的值："&i2, 5VBAVBA的程序代碼中，語(yǔ)句是構(gòu)成程序的基本成分，是程序的主體部分。每個(gè)語(yǔ)句以Enter鍵結(jié)束。VBA語(yǔ)句后，VBE將按一定的規(guī)則進(jìn)行簡(jiǎn)單的格式化處理。例如，將關(guān)鍵字的VBAMsgBox時(shí)，無(wú)論輸自動(dòng)將其變?yōu)镸sgBox。VBAEnter鍵完成語(yǔ)句的輸入后，各關(guān)鍵字之間無(wú)論插入多少空格，VBE都將其自動(dòng)調(diào)整為一個(gè)空格。例如，輸入worksheets("sheet1"). DimstrNameAsString:strName=高DimDimstrNameAsStringstrName=" VBEVBA1023個(gè)字符。但是，為了使程序便于MsgBox"局部變量的值："&i1&vbNewLine&"靜態(tài)變量的值："&i2, MsgBoxMsgBox局部變量的值：&i1&vbNewLine_&"靜態(tài)變量的值："&i2,vbOKOnlyVBAGoTo轉(zhuǎn)移語(yǔ)句可以使程序的控制流程強(qiáng)制性地轉(zhuǎn)向程序的任一處。如果一個(gè)程序結(jié)構(gòu)化程序中的任意基本結(jié)構(gòu)都具有唯一和唯一出口，并且程序不會(huì)出現(xiàn)死循環(huán)。在程序的靜態(tài)形式與動(dòng)態(tài)執(zhí)行流程之間具有良好的對(duì)應(yīng)關(guān)系。順序結(jié)構(gòu)就是從頭到尾依次按順序逐條執(zhí)行語(yǔ)句，不需要控制語(yǔ)句。本節(jié)介紹[Let]變量名=表達(dá) 在VBA中可省略賦值關(guān)鍵字Let，變量名必須遵循標(biāo)識(shí)符名約定。只有當(dāng)表達(dá)式是一種與變量兼容的數(shù)據(jù)類型時(shí)，該表達(dá)式的值才可以賦給變量或?qū)傩浴２荒軐⒆址磉_(dá)式的值賦給數(shù)值變量，也不能將數(shù)值表達(dá)式的值賦給字符串變量。如果這樣做，就會(huì)在編譯時(shí)出現(xiàn)錯(cuò)誤。VariantNullVariantVariant的值可以解釋為某個(gè)數(shù)時(shí)才能賦給數(shù)值變量?？梢允褂肐sNumeric函數(shù)來(lái)確認(rèn)Variant是否可以轉(zhuǎn)換為一個(gè)數(shù)。 SubSub賦值數(shù)據(jù)類型轉(zhuǎn)換DimiAsDimsAsStringDimDimsAsStringDimbAsBooleanDimvi=3.14s=3.14b=3.14v=End5-1的執(zhí)行結(jié)果可知道，將單精度類型的數(shù)據(jù)賦值給整0True，0False。

5-1Rem注釋文 '注釋文 在VBE中，【編輯】提供了兩個(gè)按鈕：【設(shè)置注釋塊】和【解除注釋塊】如圖5-2所示。5-2一種是VB中常用的InputBox函數(shù)，在該輸入框中顯示提示信息，等待用戶輸入正文或按下【確定】或【取消】按鈕，并返回包含文本框的內(nèi)容，該框返回值類型為字符串，如圖5-3所示。一種是使用Application對(duì)象的InputBox方法顯示一個(gè)輸入框，在該框中設(shè)置輸入值的類型，如圖5-4所示。圖5-3InputBox函數(shù) 圖5-4InputBox方法顯示InputBox函數(shù)使用VBA提供的InputBox函數(shù)，可產(chǎn)生一個(gè)輸入框。該函數(shù)將打開(kāi)一個(gè)框Prompt：為框消息出現(xiàn)的字符串表達(dá)式。其最大長(zhǎng)度為1024個(gè)字符。如果需常數(shù)vbCrLf代表回車換行符。Title：為框標(biāo)題欄中的字符串。如果省略該參數(shù)，則把應(yīng)用程序名放入標(biāo)題Xpos，Ypos：這兩個(gè)參數(shù)必須成對(duì)出現(xiàn)，指定框的左上角坐標(biāo)位置。如果省SubSub使用InputBox函數(shù)()DimsPromptAsStringDimsTitleAsStringDimsDefaultAsStringDimsReturnAsStringsPrompt="請(qǐng)輸入用戶 sTitle="輸入 sDefault=" sReturn=InputBox(sPrompt,sTitle,sDefault)Debug.PrintsReturnEnd執(zhí)行上面的代碼，將顯示如圖5-5所示的框。在使用InputBox函數(shù)時(shí)，應(yīng)注意以下幾點(diǎn)：符串類型，而不是變體類型。如果需要使用該函5-5InputBoxVal函數(shù)（或其他的轉(zhuǎn)換函數(shù)）將返回值轉(zhuǎn)換為相應(yīng)類在框中，如果用戶單擊【取消】按鈕（或按Esc鍵），則表示不使用當(dāng)前輸InputBox函數(shù)，只能返回一個(gè)值，如果需要輸入多個(gè)值，則必須多次調(diào)顯示InputBox方法使用Application對(duì)象的InputBox方法，也可顯示一個(gè)接收用戶輸入的框。此框有一個(gè)【確定】按鈕和一個(gè)【取消】按鈕。如果單擊【確定】按鈕，則InputBox方法將返回框中輸入的值。如果單擊【取消】按鈕，則InputBox方法返回邏輯值Default,Left,Top,InputBox函數(shù)相同，只是在最后多了一個(gè)例如，對(duì)于一個(gè)可接受文本和數(shù)字的輸入框，將Type設(shè)置為1+2。0：4：邏輯值（True或16SubSub使用InputBox方法()SetmyCellApplication.InputBox_prompt:="選擇一個(gè)單元格",Type:=8)End運(yùn)行以上代碼，將顯示如圖5-6所示框，用鼠標(biāo)單擊一個(gè)單元格，該單元格的引圖5-6使用InputBox方法顯示使用MsgBox函數(shù)可打開(kāi)一個(gè)框，在框中顯示消息，等待用戶單擊按鈕，并 51Inputbox數(shù)目及形式、使用提示圖標(biāo)樣式、默認(rèn)按鈕以及消息框的強(qiáng)制響應(yīng)等。其常數(shù)值如表5-15-1 值 01 值 2345WarningQuery00第一組值（0～5）：用來(lái)決定框中按鈕的類型與數(shù)量。按鈕共有7種，即確第二組值（16，32，48，64）：用來(lái)決定框中顯示的圖標(biāo)。共有4種，即暫的周轉(zhuǎn)有虛線，按Enter鍵可執(zhí)行該按鈕的單擊代碼。得到的框如圖5-8所示。圖5-7MsgBox效果 圖5-8MsgBox效果MsgBox函數(shù)除了顯示提示信息之外，還可返回一個(gè)整數(shù)值，這個(gè)整數(shù)與所選擇的按鈕有關(guān)。MsgBox函數(shù)顯示的框有7種按鈕，返回值與這7種按鈕相對(duì)應(yīng)，分別為5-2MsgBox 值 1234567輸入加號(hào)將再次顯示buttons的常數(shù)列表，如圖5-9所示。5-9MsgBoxDimintReturnAsintReturnMsgBox("真的退出系統(tǒng)碼？vbYesNovbQuestion,提示")IfintReturn=vbYesThenApplication.QuitEnd執(zhí)行以上代碼，將顯示如圖5-10所示框。單擊【是】按鈕，將執(zhí)行Quit方法退Excel。單擊【否】按鈕，將返回應(yīng)用程序。提示：MsgBox圖5-10提示If邏輯表達(dá)式Then語(yǔ) TrueThen后的語(yǔ)句，執(zhí)行完成后執(zhí)的下一條語(yǔ)句。其流程圖如圖5-11所示。5-11If…Then ="工程師"Then工資=工資+100 ="工程師"Then工資=工資+100 執(zhí)行以上語(yǔ)句，如果為工程師，則工資增 IfIf邏輯表達(dá)式格式不用EndIf語(yǔ)句，而塊語(yǔ)句則必須在條件語(yǔ)句的結(jié)束處有EndIf。 工程師+崗位津貼崗位津貼+End二分支語(yǔ)句——IfThenIf…Then語(yǔ)句中，當(dāng)邏輯表達(dá)式的值為False時(shí)，不執(zhí)行任何語(yǔ)句，若要求在邏輯FalseIf...Then…Else語(yǔ)句，其語(yǔ)法格式IfIf邏輯表達(dá)式End在以上語(yǔ)句結(jié)構(gòu)中，VBA首先判斷邏輯表達(dá)式的值，若其值為True，則執(zhí)行語(yǔ)句序其流程圖如圖5-12所示。5-12If…Then…ElseSubSub填 WithWorksheets("員工")If.Cells(3,5)= ".Cells(317女".Cells(317男EndWithEnd5-13IfThenElse多分支語(yǔ)句——IfThenIf…Then…ElseIfIfIf1End塊后，再執(zhí)行EndIf后面的代碼。其流程圖如圖5-14所示。5-14IfThenElseIfSubSubIf多分支程序Dimstr1AsString DimsPromptAsString DimsTitleAsString DimsDefaultAsString默認(rèn)值DimsTempAsStringsPrompt="請(qǐng)輸入員工的 ："&vbNewLine&_"1：高級(jí)工程師"&vbNewLine&_"2：工程師"&vbNewLine&_"3：助理工程師&vbNewLine&_"4：技術(shù)員"&vbNewLine&_ sTitle="輸入 sDefault="2"str1=InputBox(sPrompt,sTitle,Ifstr1ThenExitSubIfstr1="1"ThensTemp高級(jí)工程師ElseIfstr1"2ThensTemp="工程師"ElseIfstr1"3ThensTemp="助理工程師"ElseIfstr1"4ThensTemp="技術(shù)員"sTemp其他"EndIfEnd5-15多分支語(yǔ)句——Select在If...Then分支語(yǔ)句中，總是可以添加的ElseIf塊來(lái)構(gòu)造多分支語(yǔ)句。但是，當(dāng)SelectCase在結(jié)構(gòu)的上方處理一個(gè)測(cè)試表達(dá)式并只計(jì)算一次。然后，VBA將表達(dá)式的CaseCase相關(guān)聯(lián)的語(yǔ)句塊，執(zhí)行完畢再跳轉(zhuǎn)到EndSelect語(yǔ)句后執(zhí)行。其語(yǔ)法格式如下：SelectSelectCaseEnd其中測(cè)試表達(dá)式可以是數(shù)值型或字符型的表達(dá)式，通常是一個(gè)數(shù)值型或字符型的變量。表達(dá)式列表可以是一個(gè)或幾個(gè)值的列表。如果在一個(gè)列表中有多個(gè)值，就用逗號(hào)將值0CaeCaseBACaelse子句（）中的語(yǔ)句。其流程圖如圖516所示。5-16SelectCase表達(dá)式：這種方式用來(lái)表達(dá)一些具體的取值。例如，Case1，3，5AToB：這種方式用來(lái)表示一個(gè)數(shù)據(jù)范圍。例如，Case1To10Is比較運(yùn)算符表達(dá)式。例如，CaseIs<60603種情況的混合。例如，Case0To60，80，Is>90注意：SelectCase結(jié)構(gòu)每次都要在開(kāi)始處計(jì)算表達(dá)式的值。If...Then...Else結(jié)構(gòu)為每個(gè)ElseIfIfElseIf語(yǔ)句計(jì)算的表達(dá)式相同時(shí)，才能用SelectCase結(jié)構(gòu)替換If...Then...Else結(jié)構(gòu)。SubSubCase多分支程序Dimstr1AsString DimsPromptAsString DimsTitleAsString DimsDefaultAsString默認(rèn)值DimsTempAsStringsPrompt="請(qǐng)輸入員工的 ："&vbNewLine&_"1：高級(jí)工程師"&vbNewLine&_"2：工程師"&vbNewLine&_"3：助理工程師&vbNewLine&_"4：技術(shù)員"&vbNewLine&_ sTitlesDefault=str1=InputBox(sPrompt,sTitle,Ifstr1ThenExitSub"SelectCasestr1Case"1"sTemp高級(jí)工程師CasesTemp工程師"Case"3"sTemp助理工程師CasesTemp技術(shù)員CasesTemp其他"EndSelectEnd在5.3.2節(jié)中的例子根據(jù)Excel工作表中尊稱列的值，自動(dòng)在列填充相應(yīng)的。SubSub循環(huán)填 WithWorksheets("員工")Fori=3To11If.Cells(i,5)= ".Cells(i17女".Cells(i17男EndEnd5-17For...NextForFor循環(huán)變量=To[Step步長(zhǎng)值]語(yǔ)句序列1[語(yǔ)句序列2]Next循環(huán)變量For循環(huán)使用一個(gè)計(jì)數(shù)器變量，每執(zhí)行一次循環(huán)，計(jì)數(shù)器變量的值就會(huì)按設(shè)置的步長(zhǎng)值增加或者減少。在For循環(huán)中可以使用ExitFor語(yǔ)句隨時(shí)退出該循環(huán)。沒(méi)有關(guān)鍵字Step，則步長(zhǎng)值默認(rèn)為1。For…Next循環(huán)結(jié)構(gòu)的流程圖如圖5-18所示。5-18ForNext Fori=3To SubSub隔行填 WithWorksheets("員工")Fori=3To11Step2If.Cells(i,5)= ".Cells(i17女".Cells(i17男EndEnd其循環(huán)次數(shù)為：[(11–3)/2]+1=5在工作表員工中刪除列中各數(shù)據(jù)，執(zhí)行以上代碼后，將在工作表的奇數(shù)行中填入5-1953、5、7、9、115-19Do...LoopDo循環(huán)重復(fù)執(zhí)行一語(yǔ)句塊，且重復(fù)次數(shù)不定。Do...Loop4種演變形式，但DoDoWhile邏輯表達(dá)式語(yǔ)句序列1[ExitDo]DoWhileExitDo語(yǔ)句，當(dāng)Loop5-20所示。5-20DoWhileLoop復(fù)執(zhí)行多次。如果邏輯表達(dá)式最初就為False，則不會(huì)執(zhí)行循環(huán)語(yǔ)句。后測(cè)試循環(huán)條件的DoLoop語(yǔ)句序列1[ExitDo]LoopWhile5-21DoLoopWhile先測(cè)試結(jié)束條件的DoLoopDoDoUntil邏輯表達(dá)式語(yǔ)句序列1[ExitDo]環(huán)體；否則退出循環(huán)。這種形式的循環(huán)體可能執(zhí)行0次或多次。后測(cè)試結(jié)束條件的DoLoop語(yǔ)句序列1[ExitDo]SubDoSubDo循環(huán)填寫 WithWorksheets("員工")i=3 DoWhilei<=11If.Cells(i,5)= ".Cells(i17女".Cells(i17男Endi=i+1 EndEnd循環(huán)變量的語(yǔ)句，Do循環(huán)將是一個(gè)死循環(huán)，一直不能退出循環(huán)。ForEach...NextForEach...NextFor...Next循環(huán)類似，但它針對(duì)數(shù)組或?qū)ο蠹现械拿恳粋€(gè)元素重復(fù)一組語(yǔ)句，而不是重復(fù)語(yǔ)句一定的次數(shù)。如果不知道一個(gè)集合有多少元素，F(xiàn)orEach...Next循環(huán)非常有用。ForEach...Next循環(huán)的語(yǔ)法如下：ForForEachIn對(duì)象集合語(yǔ)句序列1[2]Variant變量，或一般的對(duì)象（Object）變量，或Sub循環(huán)嵌套DimiAsIntegerFori=1To.Cells(i,1)=Int(Rnd*100)+1Fori=1ToForj=i+1ToIf.Cells(i,1)>.Cells(j,1)Thent=.Cells(i,1).Cells(i,1)=.Cells(j,.Cells(j,1)=tEndIfEnd

5-226前面各章中使用的數(shù)據(jù)都是基本數(shù)據(jù)類型，可以通過(guò)簡(jiǎn)單的變量名來(lái)其保存的AVBA中，一個(gè)數(shù)組中的元素可以是不同類型的數(shù)據(jù)，也可以是相同ExcelExcel2003VBA中，如果使用變量來(lái)保存單元格中的數(shù)據(jù)時(shí)，要保存一行的數(shù)據(jù)，則需要定V1A1V2B1中的值，……在程序中，若需要分別這些變量中的值，則需要分別編寫代碼。例如，將Excel工作表中第1行各單元格的數(shù)據(jù)進(jìn)行累加，可使用以下代碼：也可使用V(1)保存單元格A1的值，用V(2)保存單元格B1中的值，……ForFori=1To255s=s+6.1.1V，在括號(hào)中使用了一個(gè)索引，因此稱為“一維”。使用多個(gè)索引或下標(biāo)的數(shù)組稱為“”。很多數(shù)組只有一維，例如，統(tǒng)計(jì)各的人數(shù)時(shí)，可定義一個(gè)數(shù)組，每個(gè)數(shù)組元素表示一個(gè)段的人數(shù)（如t(10)中保存著為10歲的人數(shù)）。因此，這類數(shù)組只歲之間每個(gè)段的人數(shù)。 t(120)As6-1 Excel的工作表結(jié)構(gòu)，由行和列構(gòu)成。二維數(shù)組也DimaData(4,10)As 數(shù)組中的第33列的元素。6-2有些數(shù)組有三個(gè)維，如Excel工作簿就是一個(gè)三（每張工作表為一個(gè)二維數(shù)組DimaData(3,4,10)As 6-3一對(duì)或幾對(duì)圓括號(hào)，以指示該變量將數(shù)組而不是“標(biāo)量”（包含單個(gè)值的變量）來(lái)。標(biāo)量變量（非數(shù)組）與數(shù)組變量的不同在于必須為數(shù)組指定大小。若數(shù)組的Dim數(shù)組名(下界To上界)As數(shù)據(jù)類 VBA中定義數(shù)組時(shí)，下界的值可為任在數(shù)組時(shí)，也可只給出數(shù)組下標(biāo)的上界（即可以使用的最大下標(biāo)值）。而省略下標(biāo)的下界，這時(shí)默認(rèn)值為0，即數(shù)組的下標(biāo)從0開(kāi)始至定義的上界，如：DimaData(10)As DimaData(-10To10)As aData21aData(–10)、aData(–9)、下代碼在執(zhí)行時(shí)將會(huì)報(bào)錯(cuò)，如圖6-4所示。6-4SubSub用變量定義數(shù)組()DimiAsIntegeri=10DimForj=1Toa(j)a(j)=jEndDimDim數(shù)組名([1To1維上界2To2維上界nTon維上界)AsDimDimaData(1To10,1ToDimDimaData(1To65536)AsDimDimaData(1To65536,1To100)AsDimDimaData(1To65536,1To100,1To100)As在默認(rèn)情況下，在程序中數(shù)組時(shí)，如果不指定數(shù)組維數(shù)的下界，則VBA使用默認(rèn)下界0。DimDimOptionOptionBase{0|OptionBase語(yǔ)句只影響位于包含該語(yǔ)句的模塊中的數(shù)組下界。例如，以下代碼查看各數(shù)組下標(biāo)的下界為1。OptionOptionbase1DimLowerDimMyArray(20),TwoDArray(3,4)DimZeroArray(0To5)Lower=LBound(MyArray)Lower=LBound(TwoDArray,2)Lower=LBound(ZeroArray)'''''時(shí)，一般要進(jìn)行批量賦值。數(shù)組初始化可有多種方法，本節(jié)介紹幾種常用的數(shù)組初始化方法。SubSub使用循環(huán)初始化數(shù)組Dima(1To10)AsIntegerFori=1To10a(i)=0NextiEndarglistVariant所包含的數(shù)組的各元素賦值。如果不提供參數(shù)，則創(chuàng)建一個(gè)長(zhǎng)度為0的數(shù)組。注意：沒(méi)有作為數(shù)組的Variant也可以表示數(shù)組。除了長(zhǎng)度固定的字符串以及用戶定義類型之外，Variant變量可以表示任何類型的數(shù)組。盡管一個(gè)包含數(shù)組的VariantVariant類型的數(shù)組在概念上有所不同，但對(duì)數(shù)組元素的訪DimaAsVariant,bAsa=Array(1,3,5,7,b=Array("A","B","C",EndVBA中，還可以直接將一個(gè)數(shù)組的值賦值給另一個(gè)數(shù)組，以達(dá)到初始化數(shù)組的目Dima(5),b()Fori=0To5a(i)=ib=End在用戶窗體、模塊或過(guò)程中使用Dim或Public一個(gè)沒(méi)有下標(biāo)的數(shù)組（不能ReDim語(yǔ)句的作用是重新數(shù)組的大小。它是在程序執(zhí)行到ReDim語(yǔ)句時(shí)才分配ReDim[Preserve]數(shù)組名(下標(biāo))[As數(shù)據(jù)類型 當(dāng)程序編譯時(shí)，ReDim語(yǔ)句中的所有數(shù)組均被說(shuō)明為動(dòng)態(tài)數(shù)組。在程序運(yùn)行中，ReDim語(yǔ)句時(shí)，就把新的上下界重新分配給數(shù)組，數(shù)組元素的值將被初始化，所有的數(shù)值元素的值被置為0，字符串元素被置為空字符串。ReDimDim語(yǔ)句一樣定義數(shù)組。在同一程序中，ReDim語(yǔ)句還可以多ReDimErase語(yǔ)句將原來(lái)的數(shù)組全部。若要保存數(shù)組中原有的值，需要使用Preserve關(guān)鍵字，這樣，當(dāng)改變?cè)袛?shù)組DimDimreDataAsIntegerSub動(dòng)態(tài)數(shù)組()DimiAsInteger,jAsiVal(InputBox("請(qǐng)輸入數(shù)組的上界定義動(dòng)態(tài)數(shù)組5))ReDimreData(i)Forj=1ToreData(jInputBox("請(qǐng)輸入數(shù)組的第&j&個(gè)元素的值")Forj=1ToiEnd使用變量i重定義該動(dòng)態(tài)數(shù)據(jù)的大?。╥的值由用戶輸入）。執(zhí)行以上代碼，將首先打開(kāi)如圖6-5所示的框，讓用戶設(shè)置數(shù)組的上界。按用戶后在【立即窗口】列表框中輸出數(shù)組中每個(gè)元素的值，如圖6-6所示。圖6-5輸入數(shù)組的上 圖6-6輸出數(shù)組中的數(shù)定義，可以使用Erase語(yǔ)句來(lái)實(shí)現(xiàn)。Erase語(yǔ)句重新初始化大小固定的數(shù)組的元素，以及釋放動(dòng)態(tài)數(shù)組的空間。其語(yǔ)Erase Erase根據(jù)是固定大?。ǔＲ?guī)的）數(shù)組還是動(dòng)態(tài)數(shù)組，來(lái)采取完全不同的行為。EraseSubSub清除數(shù)組DimaData(10AsIntegerstr1AsStringstr1="原數(shù)組中的數(shù)據(jù)："&vbNewLineFori=0To10aData(i)=str1=str1&"aData("&i&")="&aData(i)&""EraseaDatastr1str1&vbNewLine&EraseaData：&vbNewLineFori=0To10str1=str1&"aData("&i&")="&aData(i)&""MsgBoxEnd運(yùn)行以上程序，首先定義數(shù)組aData，為該數(shù)組賦初值，并輸出數(shù)組各元素的值。接6-7特殊的數(shù)據(jù)結(jié)構(gòu)，因此，VBA提供了操作數(shù)組的函數(shù)。IsArray函數(shù)可檢查指定的變量是否為一個(gè)數(shù)組，如果指定變量是一個(gè)數(shù)組，返回值為True；否則返回False。該函數(shù)的語(yǔ)法格式如下： DimDimaData(5)AsInteger,aData1,bCheckaData1=Array(1,2,3)bCheck=bCheck= True返回1表示第一維，2表示第二維，依此類推。如果省略該參數(shù)，表示返SubSub獲取數(shù)組下界范圍DimaData(-100To100,5To15,-3ToDimstr1Asstr1數(shù)組各維的下界為：&str1=str1&"1維："&LBound(aData,1)&vbNewLinestr1=str1&"2維："&LBound(aData,2)&vbNewLinestr1=str1&"3維："&LBound(aData,3)&vbNewLinestr1str1&vbNewLine&數(shù)組各維的上界為：&vbNewLinestr1=str1&"1維："&UBound(aData,1)&vbNewLinestr1=str1&"2維："&UBound(aData,2)&vbNewLinestr1=str1&"3維："&UBound(aData,3)&vbNewLineMsgBoxstr1End6-8本章前面的內(nèi)容介紹了使用數(shù)組各方面的內(nèi)容，本節(jié)以實(shí)例形式演示數(shù)組的使用戶輸入10個(gè)數(shù)據(jù)，然后使用冒泡排序法對(duì)這10個(gè)數(shù)據(jù)進(jìn)行排序。VBEOptionOptionBase1Sub數(shù)據(jù)排序DimiAsInteger,jAsIntegerDimkDims(10)AsIntegerFori=1To10Fori=1ToForj=i+1ToIfs(i)<s(j)Thent=s(i)s(i)=s(j)s(j)=tForEachkInsEnd10個(gè)數(shù)據(jù)。最后在【立即窗口】輸出排序的結(jié)果，如圖6-10所示。圖6-9【輸入數(shù)組】 圖6-10排序結(jié)OptionOptionBase1Sub幸運(yùn)號(hào)碼DimnAsInteger,iAsInteger,jAsIntegerDiml()AsIntegerReDiml(n,7)AsIntegerFori=1TonForj=1To7l(i,j)=Int(10*Rnd)Fori=1TonForj=1To7Debug.PrintDebug.Printl(i,j);End圖6-11輸入數(shù) 圖6-12生成幸運(yùn)號(hào)Excel中要處理大量數(shù)據(jù)時(shí)，可使用循環(huán)從各單元格中讀入數(shù)據(jù)，經(jīng)過(guò)加工處理后Excel工作表中，工作表是一個(gè)二維結(jié)構(gòu)，由行和列組成。這種特性與二維數(shù)組類myarrmyarr=Range(Cells(1,1),Cells(5,組myarr中的值賦值給單元格區(qū)域Rng。Rng.ValueRng.Value=OptionOptionBaseSub數(shù)組填充單元格區(qū)域DimiAsLong,jAsDimcolAsLong,rowAsLongDimarr()AsLongcolApplication.InputBox(prompt:="輸入列數(shù)：Type:=2)ReDimarr(row,col)Fori=1ToForj=1Toarr(i,arr(i,j)=(i-1)*col+jSetRng=Sheets(1).Range(Cells(1,1),Cells(row,col))Rng.Value=arrEndExcel工作表中增加一個(gè)【填充數(shù)據(jù)】按鈕，單擊該按鈕，彈出如圖6-13所示的框，分別輸入數(shù)組的行和列。6-136-1429章WindowsWindowsAPIWindowsWindows應(yīng)VBAWindowsAPIOfficeWindowsAPI代碼進(jìn)入操作系統(tǒng)。要在Excel中調(diào)用API函數(shù)，需要先了解API及其相關(guān)知識(shí)。WindowsAPIAPIApplicationProgrammingInterface，WindowsAPI也就是Windows對(duì)Windows操作系統(tǒng)有深入的了解。這樣，程序的開(kāi)發(fā)效率將很低。Windows平臺(tái)上出現(xiàn)了很多優(yōu)秀的可視化編程環(huán)境，程優(yōu)秀的可視化編程環(huán)境操作簡(jiǎn)單、界面友好（VB、VisualC++、DELPHI等），在這API的神秘功能，事實(shí)上這些類庫(kù)和WindowsAPIAPI函數(shù)的集合。它們把常用API函數(shù)組合在一起成為一個(gè)控件或類庫(kù)，并賦予其方便的使用方法，所以極大地提高Windows應(yīng)用程序的開(kāi)發(fā)效率。有了這些控件和類庫(kù)，程序員便可以把主要精力放在程用API函數(shù)來(lái)實(shí)現(xiàn)。APIWindowsWindowsAPI提供的函數(shù)，通過(guò)這些函數(shù)可以保證所有在Windows中運(yùn)行的應(yīng)用程序都按照統(tǒng)一的方式運(yùn)行。要的時(shí)候，至少應(yīng)該知道它屬于哪一類的API函數(shù)，這樣才能正確查找和使用。API函數(shù)向應(yīng)用程序提供了一些創(chuàng)建和管理用戶界面的方法，窗體通用控制類：系統(tǒng)S 眾不同的外觀，通用控制是由通用控制庫(kù)COMCTL32.DLL提供的。 圖形設(shè)備接口（GDI32）：國(guó)際特性類：有助于編寫的應(yīng)用程序，提供Unicode字符集和多語(yǔ)種支持過(guò)查看API幫助掌握其使用方法即可。WindowsAPIVBAWindows操作系統(tǒng)的強(qiáng)大功能，VBAAPI的使用方法，使讀者掌握使用API的方法。VBA可以調(diào)用動(dòng)態(tài)庫(kù)（DLL）中的函數(shù)。在大多數(shù)情況下，這些DLL文件是由CC++VBA中調(diào)用這些函數(shù)時(shí)，需要進(jìn)行一些特殊設(shè)置，使其能與C的數(shù)據(jù)類型進(jìn)行數(shù)據(jù)交換。本節(jié)介紹具體的設(shè)置方法。。Declare[Public|Private]DeclareSubnameLib"libname"[Alias"aliasname"][Public|Private]DeclareSubnameLib"libname"[Alias"aliasname"][([arglist])][Aslias：表示將被調(diào)用的過(guò)程在動(dòng)態(tài)庫(kù)（DLL）中還有另外的名稱。當(dāng)外部過(guò)程名與某個(gè)關(guān)鍵字重名時(shí)，就可以使用這個(gè)參數(shù)。當(dāng)動(dòng)態(tài)庫(kù)的過(guò)程與同一范圍內(nèi)的公用變量、常數(shù)或任何其他過(guò)程的名稱相同時(shí)，也可以使用lias。如果該用a。則aliasname是動(dòng)態(tài)庫(kù)中該過(guò)程的處的名稱。如果首字符是（#），則隨type：FunctionByte、Boolean、