Excel 2013 VBA編程與實(shí)踐

黃朝陽，網(wǎng)名apolloh，ExcelTip.net站長，微軟全球最有價(jià)值專家（MVP）。擁有十多年豐富的企業(yè)信息化實(shí)踐和管理經(jīng)驗(yàn)，精通Excel和MS SQL在企業(yè)中的應(yīng)用。早期曾在多個(gè)Office技術(shù)社區(qū)擔(dān)任版主，參與過多部Excel暢銷書的編著工作。

羅剛君，網(wǎng)名andysky，ExcelTip.net技術(shù)社區(qū)版主，多個(gè)Office技術(shù)社區(qū)資深版主，從事Excel軟件研究與寫作多年，精通Excel VBA與函數(shù)、圖表。在公司擔(dān)任電腦技術(shù)管理,對(duì)辦公應(yīng)用有較豐富的實(shí)戰(zhàn)經(jīng)驗(yàn)和心得。目前已經(jīng)出版過13部Excel相關(guān)著作。

章蘭新，網(wǎng)名zlxtl，ExcelTip.net技術(shù)社區(qū)版主，多個(gè)Office技術(shù)社區(qū)資深版主，

擁有十多年豐富的政府信息化實(shí)踐、管理和組織實(shí)施經(jīng)驗(yàn)，精通Excel和MSSQL在管理中的應(yīng)用。長期在政府財(cái)政經(jīng)濟(jì)部門實(shí)施電腦技術(shù)與管理、統(tǒng)計(jì)、數(shù)據(jù)分析相融合的工作，一直致力于推廣Excel和數(shù)據(jù)庫技術(shù)，對(duì)辦公應(yīng)用有極豐富的實(shí)戰(zhàn)經(jīng)驗(yàn)和心得。

陳國良，網(wǎng)名gouweicao78，微軟全球最有價(jià)值專家（MVP），ExcelTip.net技術(shù)社區(qū)總版主，多個(gè)Office技術(shù)社區(qū)資深版主，從事公路、鐵路工程建設(shè)管理十多年，精通Excel函數(shù)與公式，具有豐富的實(shí)戰(zhàn)經(jīng)驗(yàn)，參與過多部Excel暢銷書的編著工作。

第1章 基礎(chǔ)理論 1

1．1 變量、常量與數(shù)據(jù)類型 1

疑難1 正確地定義變量和數(shù)據(jù)類型有何優(yōu)勢(shì) 1

數(shù)據(jù)類型與對(duì)象類型 5

疑難2 公共變量和靜態(tài)變量都有何用處 6

1．2 程序防錯(cuò)要點(diǎn) 8

疑難3 常見的代碼錯(cuò)誤由哪些原因造成 8

疑難4 如何偵測(cè)代碼出錯(cuò)，并將運(yùn)行代碼的錯(cuò)誤原因發(fā)給作者 12

疑難5 如何開發(fā)完善的程序 14

1．3 練習(xí)與思考 18

第2章 數(shù)據(jù)查找技巧 19

2．1 快速查找 19

疑難6 能否按范圍批量查找數(shù)值 19

疑難7 能否將符合多條件之一的所有數(shù)據(jù)提取到新表中 22

判斷工作表是否存在的方法 23

疑難8 可否按格式查找單元格，然后替換其格式 25

FindFormat的使用技巧 26

疑難9 如何找出A線的不達(dá)標(biāo)人員信息 27

單列多條件與多列多條件篩選的區(qū)別 29

疑難10 如何查找所有的“#”并標(biāo)識(shí)為上標(biāo) 29

定位單元格任意字符的方法 30

疑難11 如何找出還款時(shí)間超過一年及未還款的客戶信息 31

日期函數(shù)Datedif的特性 32

疑難12 可以將查找到的所有數(shù)據(jù)串連并寫入剪貼板中嗎 33

疑難13 可以創(chuàng)建一個(gè)工具欄來方便查找嗎 35

如何區(qū)分精確匹配與模糊匹配 37

疑難14 能否按相似度查找所有的數(shù)據(jù) 37

利用Array向區(qū)域中一次性寫入多個(gè)常量 39

疑難15 如何在具有合并單元格的區(qū)域中多條件逐步查找 40

通過“MergeArea”屬性返回合并區(qū)域 41

疑難16 如何查找成績并分批發(fā)送郵件 42

VBA中郵件正文的換行符表示法 43

疑難17 如何在輸入時(shí)逐步查找 44

通過KeyUp事件自動(dòng)執(zhí)行查詢 46

2．2 跨表查找內(nèi)容 47

疑難18 能否將所有表中的完成目標(biāo)者匯總到“總表” 47

利用SpecialCells定位實(shí)現(xiàn)快速查找 48

疑難19 查找每月產(chǎn)量冠軍名單，在窗體中羅列顯示 49

不采用循環(huán)，一次性找出最大值所在行 50

疑難20 如何找出工作簿中所有的外部鏈接且將它們轉(zhuǎn)換成值 51

如何獲取工作簿中的外部鏈接 52

疑難21 可否模糊查找所有部門的電話信息 52

Target與Activecell的區(qū)別 54

疑難22 如何實(shí)現(xiàn)將所有未收貨款者在狀態(tài)欄隨機(jī)顯示 54

利用OnTime定時(shí)執(zhí)行程序 56

疑難23 可否在單元格中創(chuàng)建多級(jí)下拉菜單 56

ActionControl對(duì)象的功能與限制 60

疑難24 可否在文件夾的所有文件中查找特定信息并匯總到新表 60

疑難25 如何統(tǒng)計(jì)文件夾中所有的成績工作簿中不及格人數(shù) 64

調(diào)用工作表函數(shù)時(shí)應(yīng)如何書寫區(qū)域引用型參數(shù) 65

2．3 文件查找與轉(zhuǎn)換 66

疑難26 如何判斷指定的文件是否存在 66

判斷文件是否存在的函數(shù) 67

疑難27 如何進(jìn)行深度查找且創(chuàng)建文件目錄 68

疑難28 可否在工作表中羅列出所有大于5MB的文件 70

疑難29 如何將所有的Word文件轉(zhuǎn)換成PDF文件 72

疑難30 如何將xlsm和xlsx格式的所有文件轉(zhuǎn)換成xls格式 76

疑難31 如何在網(wǎng)上鄰居的共享盤中查找并打開“單價(jià)表” 78

疑難32 如何實(shí)現(xiàn)全盤查找且播放音樂文件 79

疑難33 能否在文件夾的所有工作簿中執(zhí)行批量替換 81

疑難34 能否根據(jù)成績表和模板生成Word成績通知單 84

2．4 圖片查找與引用 87

疑難35 如何瞬間刪除當(dāng)前表中藝術(shù)字和圖表等以外的圖片 87

DrawingObjects與Shapes對(duì)象的區(qū)別 89

疑難36 可以將簽名圖片復(fù)制到表中所有的簽名處嗎 89

復(fù)制圖形對(duì)象與復(fù)制數(shù)據(jù)的區(qū)別 90

Selection代表什么 90

疑難37 如何像vlookup引用數(shù)據(jù)一樣引用圖片 91

循環(huán)彈出對(duì)話框直接到用戶正確操作為止的編程思路 93

疑難38 能否對(duì)材料表分頁且調(diào)用材料圖片 94

2．5 練習(xí)與思考 97

第3章 數(shù)據(jù)處理 98

3．1 按條件定位的技巧 98

疑難39 如何一次性定位產(chǎn)量大于1000的所有單元格 98

使用定位技術(shù)減少循環(huán)語句的循環(huán)次數(shù) 99

疑難40 可否全選至少三科不及格的學(xué)生姓名 100

通過SpecialCells定位錯(cuò)誤值 103

疑難41 工作表中所有的錯(cuò)誤值是否可隱藏起來 102

疑難42 能否定位數(shù)值區(qū)域并轉(zhuǎn)換成以“萬”為單位 104

VBA中如何處理雙引號(hào) 105

疑難43 如何定位當(dāng)前表的最大值或最小值 105

調(diào)用工作表函數(shù)并配合Find方法查找最大值 107

疑難44 能否定位并標(biāo)識(shí)高于平均值的單元格 107

VBA中數(shù)字、漢字的大小關(guān)系 109

疑難45 如何反向選擇工作表區(qū)域 109

輔助區(qū)的重要性 110

3．2 數(shù)據(jù)處理及格式轉(zhuǎn)換 111

疑難46 能否一鍵對(duì)選區(qū)橫向、縱向匯總 111

“R1C1”引用方式的優(yōu)點(diǎn) 112

疑難47 如何將單詞在大寫、小寫與首字母大寫間任意切換 113

利用StrConv函數(shù)對(duì)英文進(jìn)行大寫、小寫和首字母大寫轉(zhuǎn)換 114

疑難48 如何將二維的材料表轉(zhuǎn)換成一維表 115

使用數(shù)組函數(shù)Array簡化代碼 116

疑難49 如何開發(fā)一個(gè)通用的一維表轉(zhuǎn)二維表的工具 117

對(duì)數(shù)組和區(qū)域中的值去除重復(fù)值時(shí)的區(qū)別 120

疑難50 如何開發(fā)一個(gè)通用的二維表轉(zhuǎn)一維表的工具 121

疑難51 可否將字符串中的字母、數(shù)字和漢字分離到多單元格中 124

利用Like運(yùn)算符區(qū)分漢字、數(shù)字和字母 125

疑難52 能否一鍵轉(zhuǎn)換表達(dá)式為計(jì)算結(jié)果 126

通過Evaluate方法轉(zhuǎn)換表達(dá)式 127

疑難53 數(shù)據(jù)有效性可以設(shè)置為關(guān)聯(lián)的三級(jí)下拉選單嗎 127

疑難54 能否將職工信息按自定義序列排序 130

新舊版本中Sort的差異 131

疑難55 可以不打開工作簿而提取其數(shù)據(jù)嗎 132

在VBA中調(diào)用公式實(shí)現(xiàn)從未打開的工作表中取值 134

疑難56 可否一鍵保護(hù)所有的公式 134

切換Locked 屬性實(shí)現(xiàn)公式保護(hù) 135

疑難57 如何實(shí)現(xiàn)發(fā)票金額分解 136

MID取文本的特點(diǎn) 137

疑難58 VBA可以破解工作表密碼嗎 138

表的分類 139

疑難59 如何將不規(guī)范的時(shí)間統(tǒng)一為“hh：mm：ss．00”格式 139

Format與Text函數(shù)的相同點(diǎn)和不同點(diǎn) 141

疑難60 可以生成指定范圍的不重復(fù)隨機(jī)數(shù)嗎 141

Collection對(duì)象的優(yōu)勢(shì) 142

疑難61 如何對(duì)工作簿減肥 143

文件虛胖的常見原因 144

疑難62 可否讓數(shù)字在文本與數(shù)值之間快速切換 145

在文本與數(shù)值間切換的VBA思路 146

疑難63 如何將“/”分隔的數(shù)據(jù)進(jìn)行匯總 147

以“/”為分隔符取其左右字符的思路優(yōu)化 148

疑難64 可否一鍵刪除工作表中所有的空白行 148

SpecialCells方法的限制 150

疑難65 能實(shí)現(xiàn)粘貼數(shù)據(jù)時(shí)跳過隱藏區(qū)嗎 150

如何確定單元格是否被隱藏 153

疑難66 可否讓單元格的值真正地四舍五入 153

疑難67 如何對(duì)相同值進(jìn)行標(biāo)識(shí)著色 155

ColorIndex屬性的限制對(duì)VBA代碼的影響 157

疑難68 如何根據(jù)工資計(jì)算零鈔數(shù)量 158

獲取選區(qū)第一列及已用區(qū)域的交集 160

疑難69 可否將職工資料表一鍵轉(zhuǎn)換成打印格式 160

如何計(jì)算圖片所在單元格的地址 162

3．3 單元格合并技巧 162

疑難70 能否一鍵合并相同且相鄰的所有單元格 162

利用DisplayAlerts屬性關(guān)閉合并單元格時(shí)的提示加快代碼執(zhí)行速度 164

疑難71 如何實(shí)現(xiàn)按產(chǎn)品合并產(chǎn)量數(shù)據(jù)表 164

利用變量暫存數(shù)據(jù)，代替輔助區(qū) 166

疑難72 能否改進(jìn)“跨越合并”，使其居中保留所有的數(shù)據(jù) 166

Merge方法的真正功能 167

疑難73 可以合并同類項(xiàng)且分類匯總嗎 168

通過選擇性粘貼格式實(shí)現(xiàn)合并單元格 170

疑難74 如何實(shí)現(xiàn)合并時(shí)保留所有的數(shù)據(jù)，而拆分時(shí)還原數(shù)據(jù) 171

看不見的特殊字符的應(yīng)用 173

疑難75 如何一鍵選擇所有合并的單元格 174

定位合并單元格 175

查找設(shè)置對(duì)下一次查找結(jié)果有何影響 175

疑難76 如何取消所有的合并區(qū)域，并對(duì)所有的單元格填充數(shù)據(jù) 175

合并區(qū)域的賦值方式 176

疑難77 能否實(shí)現(xiàn)撤銷合并后能還原所有數(shù)據(jù)的多單元格合并 177

合并單元格后再取消合并不丟失數(shù)據(jù)的思路 178

疑難78 如何將指定的單元格合并到一個(gè)選區(qū) 178

將指定單元格鏈接到一個(gè)選區(qū) 180

疑難79 可以讓合并單元格自動(dòng)換行嗎 180

工作表簿件代碼與普通過程的區(qū)別 182

3．4 報(bào)表合并與拆分 183

疑難80 如何合并所有工作表的數(shù)據(jù)到一個(gè)表中 183

在復(fù)制數(shù)據(jù)時(shí)既去除公式，又不影響數(shù)值的顯示狀態(tài) 185

疑難81 如何實(shí)現(xiàn)多表合并匯總 185

利用相對(duì)引用公式批量合并數(shù)據(jù)，避免使用循環(huán) 187

疑難82 如何將多個(gè)工作簿中的所有工作表合并到一個(gè)工作表中 187

通過禁用工作簿重算提升代碼效率 190

疑難83 如何將多個(gè)工作簿數(shù)據(jù)合并到一個(gè)工作簿 190

利用變量作為輔助進(jìn)行條件判斷 194

疑難84 如何實(shí)現(xiàn)按條件將單個(gè)工作表拆分成多個(gè)工作表 194

Range．AutoFilter方法的特殊性 198

疑難85 如何將工作簿中的每個(gè)工作表轉(zhuǎn)換為獨(dú)立工作表 198

在不同的Excel版本中如何選擇文件格式 200

3．5 單元格顏色的綜合應(yīng)用 201

疑難86 不同版本的Excel在顏色處理方面有區(qū)別嗎 201

不同的版本中顏色差異對(duì)程序的影響 202

疑難87 可以在Excel 2013中按顏色篩選再做擴(kuò)展嗎 203

CurrentRegion與Usedrange對(duì)程序的影響 206

疑難88 如何實(shí)現(xiàn)將顏色排序 207

借用輔助區(qū)和調(diào)用老版本的Sort功能提升程序的通用性 208

疑難89 可以按顏色對(duì)選區(qū)的數(shù)據(jù)分類匯總嗎 209

修改顏色不觸發(fā)公式重算和任何VBA事件 211

疑難90 如何用函數(shù)對(duì)單元格的背景和字體按顏色匯總 212

如何聲明可選參數(shù) 214

3．6 重復(fù)數(shù)據(jù)處理 214

疑難91 可否清空重復(fù)值所在單元格并以背景色標(biāo)示 214

Countif函數(shù)的限制 216

疑難92 可用紅圈標(biāo)示重復(fù)出現(xiàn)的數(shù)據(jù)嗎 217

疑難93 如何提取兩列數(shù)據(jù)中的相同項(xiàng)與不同項(xiàng) 219

利用Transpose函數(shù)實(shí)現(xiàn)區(qū)域轉(zhuǎn)數(shù)組 220

疑難94 可否一鍵刪除重復(fù)行 221

Range．RemoveDuplicates方法中Columns參數(shù)的限制 222

3．6 練習(xí)與思考 223

第4章 報(bào)表打印 224

4．1 打印設(shè)置 224

疑難95 如何一次性設(shè)置“總表”以外工作表的頁腳 224

選擇工作表數(shù)量對(duì)頁腳的影響 225

疑難96 可否將所有工作表的打印區(qū)域設(shè)置為有數(shù)據(jù)的區(qū)域 225

更新打印區(qū)域設(shè)置的限制 227

疑難97 可否將訂單表轉(zhuǎn)換成每10行打印一頁 228

全自動(dòng)批量插入分頁符 230

疑難98 如何讓跨頁的合并單元格在打印后能完整顯示 229

判斷合并單元格是否跨頁 232

4．2 特殊打印格式設(shè)計(jì) 231

疑難99 如何制作工資條 232

疑難100 如何打印工資卡 234

疑難101 VBA可以實(shí)現(xiàn)對(duì)工作表分頁小計(jì)嗎 237

利用宏表函數(shù)Get．Document(50)獲取工作表頁數(shù) 242

疑難102 如何同時(shí)打印頂端標(biāo)題和底端標(biāo)題 241

計(jì)算第一個(gè)分頁符所在的行號(hào) 249

疑難103 可以借用圖片實(shí)現(xiàn)底端標(biāo)題打印嗎 248

Export與API方式將區(qū)域轉(zhuǎn)換成圖片的差異 251

疑難104 可否將訂單表轉(zhuǎn)換成適合針式多聯(lián)打印的報(bào)表格式 251

修改CopyObjectsWithCells屬性實(shí)現(xiàn)復(fù)制數(shù)據(jù)時(shí)忽略圖形對(duì)象 254

疑難105 如何實(shí)現(xiàn)雙面打印 254

疑難106 可以只打印活動(dòng)單元格所在頁嗎 255

如何計(jì)算分頁符位置和當(dāng)前頁的序號(hào) 257

4．3 思考與練習(xí) 257

第5章 借用事件讓程序自動(dòng)化 258

5．1 工作表事件 258

疑難107 錄入M2和M3時(shí)可自動(dòng)將2或3顯示為上標(biāo)嗎 258

Target與ActiveCell的相同與不同點(diǎn) 259

疑難108 可否錄入產(chǎn)品規(guī)格時(shí)自動(dòng)在右邊顯示表達(dá)式的值 260

修改EnableEvents屬性避免事件的連鎖反應(yīng) 261

疑難109 可否實(shí)時(shí)記錄指定區(qū)域的修改記錄 262

讓批注框自動(dòng)調(diào)整大小的必要步驟 264

疑難110 能否雙擊首行或首列時(shí)彈出工作表目錄 264

工作表事件與工作簿事件的分別 265

5．2 工作簿事件 266

疑難 111 能否在啟動(dòng)工作簿時(shí)自動(dòng)創(chuàng)建工作表目錄 266

Workbook_Open事件與Auto_open宏的相同點(diǎn)和不同點(diǎn) 267

疑難112 進(jìn)入包含“貨款”的工作表時(shí)可語音提示未收款客戶名稱嗎 268

DateDiff函數(shù)與DateDif函數(shù)的相同和不同點(diǎn) 269

疑難113 能否自動(dòng)記錄工作簿的已打印次數(shù) 270

BeforePrint事件的缺陷 271

疑難114 輸入重復(fù)的工號(hào)時(shí)能否提示“已重復(fù)” 271

創(chuàng)建讓用戶指定執(zhí)行方式的對(duì)話框的三種方法 273

疑難115 能否在狀態(tài)欄顯示選區(qū)中的最大值和最小值地址 273

工作表函數(shù)Counta的參數(shù)應(yīng)如何對(duì)待Range對(duì)象的默認(rèn)屬性值 275

5．3 應(yīng)用程序事件 275

疑難116 可否讓新建的工作簿包含“進(jìn)庫”、“出庫”和“異常統(tǒng)計(jì)”三個(gè)工作表 275

借助類實(shí)現(xiàn)應(yīng)用程序級(jí)的事件 277

安裝加載宏的兩種方法 278

疑難117 可否新建圖表時(shí)默認(rèn)顯示為圓角加陰影效果 279

工作簿級(jí)與應(yīng)用程序級(jí)的圖表事件差異 280

疑難118 可否選擇單元格時(shí)整行與整列自動(dòng)著色 280

引用活動(dòng)窗口的可見區(qū)域 282

5．4 思考與練習(xí) 283

第6章 開發(fā)自定義函數(shù) 284

6．1 自定義函數(shù)基礎(chǔ) 284

疑難119 如何開發(fā)自定義函數(shù) 284

如何跨工作簿調(diào)用自定義函數(shù) 288

疑難120 自定義函數(shù)在不同的版本中有何差異 288

顏色對(duì)自定義函數(shù)的影響 289

函數(shù)參數(shù)的數(shù)量上限 291

疑難121 如何對(duì)自定義函數(shù)添加功能描述與參數(shù)說明 291

通過Application．MacroOptions方法為自定義函數(shù)添加參數(shù)說明 292

6．2 開發(fā)自定義函數(shù) 293

疑難122 如何對(duì)區(qū)域內(nèi)混雜字符串中的數(shù)字求和 293

Excel公式對(duì)“ ”的處理方式 294

疑難123 如何分離字符串中的數(shù)值、英文和漢字 294

正則表達(dá)式在字符處理中的優(yōu)勢(shì) 295

疑難124 如何將文本混雜字符串及表達(dá)式轉(zhuǎn)換為值 296

正則表達(dá)式中如何表示數(shù)字、字母和漢字范圍 297

疑難125 如何按時(shí)間段匯總金額 298

根據(jù)計(jì)算對(duì)象的規(guī)范性決定函數(shù)參數(shù)的個(gè)數(shù) 300

疑難126 如何對(duì)具有分隔符的數(shù)據(jù)分類匯總 300

Split函數(shù)產(chǎn)生的數(shù)組的特點(diǎn) 302

疑難127 超過15位的數(shù)字如何求和 302

Excel對(duì)數(shù)據(jù)計(jì)算的長度限制 304

疑難128 如何根據(jù)身份證號(hào)碼獲取出生日期、年齡和性別 304

疑難129 可否將發(fā)票格式的數(shù)字金額合并且轉(zhuǎn)換為大寫 307

疑難130 如何突破Rank函數(shù)排名的限制 308

去除重復(fù)值的常用方法 310

疑難131 如何實(shí)現(xiàn)按數(shù)據(jù)出現(xiàn)次數(shù)排序 310

Collection與字典的區(qū)別 312

疑難132 可以用函數(shù)改變引用區(qū)域的值嗎 312

利用自定義函數(shù)修改引用區(qū)域的值的兩種方法 314

疑難133 如何對(duì)兩個(gè)以逗號(hào)分隔的亂序字符串比較異同 315

將Split函數(shù)嵌套應(yīng)用從字符串中分別獲取品名與數(shù)量 316

6．3 開發(fā)具有可選參數(shù)的自定義函數(shù) 317

疑難134 可以擴(kuò)展Vlookup函數(shù)實(shí)現(xiàn)返回所有符合條件的值嗎 317

利用Find替代工作表函數(shù)Vlookup實(shí)現(xiàn)多個(gè)數(shù)據(jù)查找 318

疑難135 可以用一個(gè)函數(shù)將人民幣大小寫相互轉(zhuǎn)換嗎 319

通過拆分法理解代碼 321

疑難136 可以讓函數(shù)的兩個(gè)參數(shù)全是可選參數(shù)嗎 322

將單個(gè)參數(shù)聲明為可選參數(shù)的方法 323

疑難137 可以用函數(shù)連接內(nèi)存數(shù)據(jù)和區(qū)域中所有的文本嗎 324

利用ParamArray聲明不確定個(gè)數(shù)的函數(shù)參數(shù) 325

6．4 思考與練習(xí) 326

第7章 文件與文件夾管理 327

7．1 文件管理 327

疑難138 能否在打開文件時(shí)自動(dòng)備份文件 327

將過程命名為“Auto_Open”使其自動(dòng)執(zhí)行 328

疑難139 如何讓文件打開一次后就自我銷毀 328

文件“自殺”的條件 329

疑難140 如何一鍵刪除3年前創(chuàng)建的所有文件 329

DATEDIF與DATEDIFF的區(qū)別 330

疑難141 可以刪除18個(gè)月沒有打開過的文件嗎 331

用DATEDIF計(jì)算文件閑置時(shí)間的技巧 331

疑難142 可以在收藏夾中對(duì)當(dāng)前工作簿創(chuàng)建快捷方式嗎 332

獲取收藏夾地址的方法 333

7．2 文件夾管理 334

疑難143 如何瞬間刪除D盤中所有的空文件夾 334

將代表磁盤的字符串轉(zhuǎn)換成磁盤對(duì)象的方法 334

疑難144 如何獲取指定目錄下的文件列表 335

Dir函數(shù)查找子文件夾的注意事項(xiàng) 337

疑難145 安裝多個(gè)版本的Excel時(shí)可以隨心所欲地選擇打開方式嗎 338

將Excel快捷方式導(dǎo)入“Sendto”文件夾 339

疑難146 如何批量創(chuàng)建以本月每日的日期命名的文件夾 341

利用DateSerial的糾錯(cuò)功能計(jì)算本月天數(shù) 342

7．3 思考與練習(xí) 342

第8章 VBA操作圖表 343

8．1 利用VBA批量修改圖表格式 343

疑難147 如何批量修改圖表標(biāo)簽 343

操作圖表標(biāo)簽的條件 347

疑難148 如何批量移位標(biāo)簽 347

手工移位圖表標(biāo)簽的限制 350

疑難149 如何對(duì)圖表系列設(shè)置條件格式 350

填充圖表系列的兩種方法 354

疑難150 可否一鍵統(tǒng)一圖表大小并對(duì)齊 354

圖表名稱的特點(diǎn) 356

8．2 思考與練習(xí) 356

第9章 VBA操作圖形對(duì)象 357

9．1 圖形對(duì)象的批量操作 357

疑難151 如何刪除E列存放的圖表以外的圖形對(duì)象 357

通過TopLeftCell和BottomRightCell定位圖片位置 358

疑難152 如何讓所有的圖形對(duì)齊所在單元格左邊框 359

通過統(tǒng)一Left屬性對(duì)齊圖片 359

疑難153 如何一鍵導(dǎo)入工作簿所在路徑下的家具圖片 360

錄制“批量插入圖片”的宏的缺陷 361

9．2 批注的高級(jí)應(yīng)用 362

疑難154 如何將指定列的數(shù)據(jù)批量追加到批注中 362

疑難155 如何批量導(dǎo)入圖片到單元格的批注中 365

在“打開”對(duì)話框中篩選文件格式的方法 366

疑難156 可以對(duì)批注進(jìn)行替換嗎 367

Unload Me、End和Exit Sub的區(qū)別 370

疑難157 如何在所有的批注末尾追加日期 370

通過設(shè)置AutoSize屬性使批注框自動(dòng)調(diào)整大小 371

疑難158 如何批量修改批注的外觀 372

聲明正確的變量類型及防錯(cuò) 374

9．3 圖形對(duì)象綜合應(yīng)用 374

疑難159 如何創(chuàng)建圖片目錄與批量插入圖片 374

單元格的行高與列寬限制 378

疑難160 如何實(shí)現(xiàn)輸入品名時(shí)查看當(dāng)前路徑下的同名圖片 378

通過修改圖像控件的Picture屬性更新圖片 379

疑難161 如何實(shí)現(xiàn)批量導(dǎo)入圖片且自動(dòng)排版打印 380

疑難162 可否以模糊匹配方式批量導(dǎo)入圖片 384

借用通配符“*”實(shí)現(xiàn)模糊匹配文件名稱 387

疑難163 如何開發(fā)批量刪除指定類型的圖形對(duì)象的工具 387

如何遍歷控件集合 390

9．4 練習(xí)與思考 390

第10章 窗體控件應(yīng)用 391

10．1 ActiveX控件應(yīng)用 391

疑難164 可以利用列表框強(qiáng)化數(shù)據(jù)有效性嗎 391

列表框相較數(shù)據(jù)有效性的靈活性 393

疑難165 如何利用復(fù)合框引用區(qū)域的唯一值 394

疑難166 能否利用復(fù)合框和列表框打造二級(jí)選單 396

MouseMove事件獲取組合框的值的技巧 399

10．2 窗體設(shè)計(jì)技巧 400

疑難167 如何用一個(gè)窗體展現(xiàn)多項(xiàng)不同的內(nèi)容 400

分頁顯示的兩種方法 403

疑難168 如何實(shí)現(xiàn)利用快捷鍵啟用和關(guān)閉窗體 403

借用命令按鈕的Cancel屬性快捷關(guān)閉窗體 405

疑難169 如何用一個(gè)按鈕執(zhí)行多個(gè)功能 406

利用PasswordChar屬性隱藏敏感字符 408

疑難170 如何讓日期輸入器窗體緊隨活動(dòng)單元格 409

影響窗體Left、Top屬性的因素 411

疑難171 VBA可以設(shè)計(jì)彩蛋嗎 412

MouseUp事件中的Button與Shift參數(shù)的作用 414

疑難172 如何通過窗體控制實(shí)現(xiàn)工作表隔行插入行 415

通過Shift參數(shù)控制Insert方法的單元格移動(dòng)方向 418

疑難173 如何在窗體中開發(fā)鼠標(biāo)右鍵快捷菜單 419

創(chuàng)建自定義菜單的基本思路 420

知識(shí)擴(kuò)展 420

疑難174 在窗體Show狀態(tài)下可以調(diào)整控件大小嗎 421

通過鼠標(biāo)指針的坐標(biāo)變化同步更新控件的寬度和邊距 423

疑難175 在窗體Show狀態(tài)下如何調(diào)整控件的位置 423

MouseMove事件中Button參數(shù)的應(yīng)用技巧 425

疑難176 如何檢測(cè)窗體中文本框的數(shù)據(jù)有效性 426

對(duì)文本框設(shè)置數(shù)據(jù)有效性檢驗(yàn)的優(yōu)勢(shì) 427

疑難177 能否通過代碼生成窗體及控件和代碼 428

用代碼操作代碼的必要條件 430

10．3 窗體與工作表之?dāng)?shù)據(jù)交互 431

疑難178 可否將多工作表中符合條件的值顯示在窗體中 431

列表框的ColumnHeads屬性的特點(diǎn) 434

疑難179 如何實(shí)現(xiàn)通過窗體向多工作表中錄入數(shù)據(jù) 434

疑難180 如何開發(fā)日歷工具箱 438

類的主要應(yīng)用領(lǐng)域 442

Excel對(duì)日期計(jì)算的限制 442

疑難181 如何實(shí)現(xiàn)多條件電話查詢 442

TextBox1_Change事件與TextBox1_Exit事件的異同 444

疑難182 如何開發(fā)復(fù)選框批量管理工具 445

區(qū)分三種復(fù)選框控件 447

疑難182 如何讓窗體控件自適應(yīng)工作表數(shù)據(jù)變化 448

用代碼創(chuàng)建新控件 450

疑難184 可以讓拆分工作簿的列表框具有拖放功能嗎 451

控件拖放相關(guān)的事件 454

疑難185 如何設(shè)計(jì)對(duì)文件批量重命名的工具箱 454

10．4 練習(xí)與思考 460

第11章 功能區(qū)菜單與backstage視圖設(shè)計(jì) 461

11．1 創(chuàng)建功能區(qū)菜單 461

疑難186 如何創(chuàng)建新選項(xiàng)卡及子菜單 461

創(chuàng)建功能區(qū)菜單的語法與代碼結(jié)構(gòu) 463

疑難187 如何在“開始”選項(xiàng)卡中插入彈出式菜單 466

創(chuàng)建彈出式菜單的語法 467

疑難188 如何創(chuàng)建對(duì)話框啟動(dòng)器 469

在標(biāo)簽控件中讓多段文字換行的技巧 471

疑難189 如何在“視圖”選項(xiàng)卡中插入“閱讀模式”的切換按鈕 472

切換按鈕與命令按鈕的區(qū)別 474

疑難198 如何將常用卻又未顯示在功能區(qū)中的按鈕顯示在“插入”選項(xiàng)卡中 475

如何查看Excel內(nèi)置命令的id 476

疑難191 如何制作功能區(qū)代碼模板 477

模板的功能與制作技巧 479

11．2 backstage視圖設(shè)計(jì) 481

疑難192 如何在“文件”菜單中添加命令按鈕 481

如何調(diào)用外部程序 483

疑難193 能否在“文件”菜單中創(chuàng)建多組命令按鈕 483

11．3 思考與練習(xí) 486

第12章 用VBA訪問網(wǎng)絡(luò)資源 487

12．1 導(dǎo)入網(wǎng)頁列表 487

疑難194 如何一鍵導(dǎo)入最近三個(gè)月人民幣與美元的歷史匯率 487

通過QueryTables．Add方法和QueryTable．Refresh方法導(dǎo)入網(wǎng)頁數(shù)據(jù) 488

疑難195 可否錄入城市名稱后自動(dòng)列出火車票信息 489

讓W(xué)orksheet_Change事件僅作用于固定區(qū)域的技巧 491

12．2 導(dǎo)入不規(guī)范的網(wǎng)頁數(shù)據(jù) 491

疑難196 能否批量計(jì)算手機(jī)號(hào)碼的歸屬地、區(qū)號(hào)與卡類型 491

分析網(wǎng)頁源代碼的基本思路 493

疑難197 可否讀取網(wǎng)頁的天氣預(yù)報(bào)數(shù)據(jù) 496

查看網(wǎng)頁源代碼的方法 497

12．3 練習(xí)與思考 499

第13章 設(shè)計(jì)Excel通用工具 500

13．1 開發(fā)Excel插件 500

疑難198 如何開發(fā)定位工具箱擴(kuò)展Excel定位的功能 500

Excel定位的限制 506

疑難199 可以利用插件一鍵錄入常用VBA代碼嗎 507

計(jì)算當(dāng)前代碼的行號(hào) 511

疑難200 如何開發(fā)帶功能區(qū)菜單的中英文互譯插件 512

用公式實(shí)現(xiàn)中英互譯 514

13．2 封裝代碼 515

疑難201 如何將已編好的兩段代碼封裝為COM加載項(xiàng) 515

安裝COM加載項(xiàng)的三種方法 522

疑難202 如何封裝包含工作簿事件的代碼 522

封裝事件過程的基本思路 525

疑難203 如何將自定義函數(shù)封裝為COM加載項(xiàng) 525

VBA中調(diào)用COM加載項(xiàng)中的函數(shù)的方法 528

13．3 設(shè)計(jì)安裝程序 529

疑難204 如何將COM加載項(xiàng)封裝為EXE格式的安裝程序 529

InnoSetup軟件的參數(shù)說明 533

疑難205 可否開發(fā)具有撤銷功能且可單擊卸載的插件 533

使用回調(diào)函數(shù)動(dòng)態(tài)更新菜單的指定屬性 537

13．4 練習(xí)與思考 538

第14章 送貨單套打程序的系統(tǒng)開發(fā) 539

14．1 羅列需求 539

14．2 設(shè)計(jì)表格 540

14．2．1 工作表職能分配 540

14．2．2 設(shè)計(jì)“配置”工作表 540

14．2．3 設(shè)計(jì)“打印界面”工作表 541

14．2．4 設(shè)計(jì)“明細(xì)表”工作表 543

14．3 編寫代碼 543

14．3．1 為品名、品牌和型號(hào)創(chuàng)建下拉列表 543

14．3．2 開發(fā)小寫金額轉(zhuǎn)大寫的函數(shù) 546

14．3．3 生成送貨單號(hào) 546

14．3．4 打印并保存數(shù)據(jù) 547

14．3．5 批量打印歷史數(shù)據(jù) 548

14．3．6 保存并清空數(shù)據(jù) 550

14．3．7 創(chuàng)建數(shù)據(jù)透視表 550

14．3．8 功能說明 551

14．4 設(shè)計(jì)菜單 551

14．5 測(cè)試功能 552

14．5．1 測(cè)試“生成送貨單號(hào)” 553

14．5．2 測(cè)試品名、品牌與型號(hào)的錄入方式 553

14．5．3 測(cè)試“打印當(dāng)前貨單” 554

14．5．4 測(cè)試“打印歷史記錄” 555

14．5．5 測(cè)試“創(chuàng)建透視表” 556

14．5．6 測(cè)試對(duì)話框啟動(dòng)器 557

14．5．7 總結(jié) 557 2100433B

本書為讀者展示Excel VBA編程的實(shí)戰(zhàn)技巧，包括工作中最常用的查詢、定位、格式轉(zhuǎn)換、報(bào)表拆分與合并、開發(fā)自定義函數(shù)、處理文件與文件夾、功能區(qū)設(shè)計(jì)，以及插件開發(fā)實(shí)戰(zhàn)與原理分析。本書側(cè)重于解決問題和展示解題思路，案例包含諸多常見疑難的解決方案。閱讀本書后，讀者可以解決工作中的諸多疑難雜癥，大大提高工作效率，且有助于提升編程能力，拓展思路，將理論向?qū)崙?zhàn)邁進(jìn)。好的代碼應(yīng)該同時(shí)具備準(zhǔn)確、糾錯(cuò)、兼容和效率四個(gè)特性，本書所有的案例都在準(zhǔn)確性與高效性的基礎(chǔ)上提供完善的錯(cuò)誤處理措施與思路講解。

內(nèi)容介紹

《Excel2007與VBA編程從入門到精通》將帶領(lǐng)讀者歷經(jīng)Excel 2007 VBA從入門到精通的全部學(xué)習(xí)過程，介紹Excel VBA的基礎(chǔ)知識(shí)和基本語法結(jié)構(gòu)，引導(dǎo)讀者掌握Excel VBA的基本操作，如錄制宏，以及使用Excel VBA操作Excel 的基本對(duì)象工作簿、工作表、單元格。

2100433B

《Excel 2007 VBA高級(jí)編程寶典》由淺人深，循序漸進(jìn)地講授如何使用VBA開發(fā)辦公應(yīng)用系統(tǒng)。《Excel 2007 VBA高級(jí)編程寶典》內(nèi)容包括認(rèn)識(shí)Excel，Excel的函數(shù)使用，VBA的含義和功能，VBA的語法，VBA各種運(yùn)算符和表達(dá)式，VBA流程控制，VBA的程序結(jié)構(gòu)，VBA窗體設(shè)計(jì)，Excel對(duì)象，類模塊，VBA中數(shù)據(jù)庫操作，VBA與XML交互，數(shù)據(jù)透視表的設(shè)計(jì)，使用VBA交互其他應(yīng)用程序，VBA中使用API函數(shù)等。

Excel 2013與以前版本相比，從操作界面到對(duì)象模型的變化都很大，例如取消了菜單和工具欄，新增了功能區(qū)。本書在介紹通過VBA操作Excel對(duì)象的基礎(chǔ)上，使用了大量篇幅介紹使用VBA操作這些新增對(duì)象的方法。本書內(nèi)容全面，講解由淺入深，每個(gè)知識(shí)點(diǎn)以實(shí)例代碼進(jìn)行介紹，使讀者可以快速入門。另外，本書專門提供了大量的配套多媒體教學(xué)視頻及書中的實(shí)例源程序，便于讀者高效、直觀地學(xué)習(xí)。

本書共31章，分7部分，分別介紹了Excel 2013開發(fā)平臺(tái)概述、使用宏、Excel VBA的開發(fā)環(huán)境、VBA基礎(chǔ)、程序控制結(jié)構(gòu)、使用數(shù)組、使用過程、管理模塊、處理字符串和日期、Excel對(duì)象概述、使用Application對(duì)象、使用Workbook對(duì)象、使用Worksheet對(duì)象、使用Range對(duì)象、使用其他常用Excel對(duì)象、使用Excel內(nèi)置對(duì)話框、創(chuàng)建自定義對(duì)話框、使用標(biāo)準(zhǔn)控件、使用ActiveX控件、使用RibbonX、使用CommandBars、控制其他Office程序、處理文件、使用ADO訪問數(shù)據(jù)庫、Excel 2013與Internet、使用Excel加載宏、使用類模塊、用代碼操作VBE、使用Windows API以及制作應(yīng)用程序的幫助等內(nèi)容。最后詳細(xì)介紹了一個(gè)進(jìn)銷存管理系統(tǒng)的開發(fā)過程 。