Excel VBA案例實戰

本書以案例講解的形式，由淺入深地介紹了VBA在Excel中的應用。本書的內容可分為兩個部分，前半部分介紹了VBA的基礎應用，主要講解如何簡化復雜的工作，以及減少Excel中不必要的重復性操作；後半部分介紹瞭如何使用VBA編寫各種工具、函數和小型系統，解決日常工作中遇到的包括但不局限於Excel的各種問題。

本書圖文並茂，理論與案例相結合，力求將本書涉及的VBA相關知識點通過實際案例進行講解。本書案例幾乎都源於實踐，並配有全套資料文件和解決代碼，頗具參考價值。

本書面向VBA零基礎人員，日常工作中需要接觸大量數據和Excel表格的人員，幫助他人解決Excel難題的運維人員，以及希望通過VBA進行自主開發的IT從業人員。本書亦可作為電腦培訓教材。

韩立刚

华为HCIA认证教材作者，教育部指定高等学校软件工程专业计算机网络教材作者，微软最有价值专家（MVP）。具有20年微软、思科、华为网络工程师教学经验，现任国内最大的IT在线教育网站51CTO学院金牌讲师，听课人数达1600万次。

2021年开始面向全国招收正式学生。在IT教育领域倡导“视频教学+QQ答疑”和“终身师徒关系”的教学模式。

徐侃

毕业于湖南大学软件学院，网络工程师，拥有十余年IT运维；精通VBA、Python开发。

张立明

现就职于中国节能，信息系统项目管理师，系统集成项目管理师，网络工程师，精通网络架构与数据库技术。

蒋超

毕业于华中科技大学，计算机科学与技术专业，校信息中心主任，精通微软Office办公软件。

第 1章 認識VBA

1.1 VBA概述

1.2 如何在Excel中打開VBA

1.3 案例01：新增100張工作表

1.3.1 案例解析

1.3.2 案例代碼

1.3.3 案例小結

第 2章 利用錄制宏與For循環處理重復操作

2.1 案例02：對不同工作表執行相同操作

2.1.1 案例解析

2.1.2 案例代碼

2.1.3 案例小結

2.2 案例03：標記2020年所有周日

2.2.1 案例解析

2.2.2 案例代碼

2.2.3 案例小結

2.3 案例04：生成工資條

2.3.1 案例解析

2.3.2 案例代碼

2.3.3 案例小結

2.4 案例05：恢復工資表

2.4.1 案例解析

2.4.2 案例代碼

2.4.3 案例小結

第3章 使用If函數進行邏輯判斷

3.1 案例06：不使用相對引用標記2020年所有周日

3.1.1 案例解析

3.1.2 案例代碼

3.1.3 案例小結

3.2 案例07：認識If函數

3.2.1 案例解析

3.2.2 案例代碼

3.2.3 案例小結

3.3 案例08：不使用相對引用生成工資條

3.3.1 案例解析

3.3.2 案例代碼

3.3.3 案例小結

3.4 案例09：計算個人所得稅

3.4.1 案例解析

3.4.2 案例代碼

3.4.3 案例小結

第4章 使用Sheets對象進行跨表操作

4.1 案例10：新增及刪除工作表

4.1.1 案例解析

4.1.2 案例代碼

4.1.3 案例小結

4.2 案例11：新建工作表並修改標簽名

4.2.1 案例解析

4.2.2 案例代碼

4.2.3 案例小結

4.3 案例12：取表名

4.3.1 案例解析

4.3.2 案例代碼

4.3.3 案例小結

4.4 案例13：生成日報表

4.4.1 案例解析

4.4.2 案例代碼

4.4.3 案例小結

4.5 案例14：生成匯總表

4.5.1 案例解析

4.5.2 案例代碼

4.5.3 案例小結

4.6 案例15：多表處理

4.6.1 案例解析

4.6.2 案例代碼

4.6.3 案例小結

第5章 使用Workbooks對象進行跨文件操作

5.1 案例16：使用For Each循環為單元格賦值

5.1.1 案例解析

5.1.2 案例代碼

5.1.3 案例小結

5.2 案例17：使用For Each循環按要求刪除工作表

5.2.1 案例解析

5.2.2 案例代碼

5.2.3 案例小結

5.3 案例18：打開指定工作簿並修改單元格

5.3.1 案例解析

5.3.2 案例代碼

5.3.3 案例小結

5.4 案例19：新建工作簿並進行“另存為”操作

5.4.1 案例解析

5.4.2 案例代碼

5.4.3 案例小結

5.5 案例20：表格拆分為多個文件

5.5.1 案例解析

5.5.2 案例代碼

5.5.3 案例小結

第6章 使用Range對象拆分數據（1）

6.1 案例21：以單元格的值選中工作表

6.1.1 案例解析

6.1.2 案例代碼

6.1.3 案例小結

6.2 案例22：Range對象的End屬性和Offset屬性

6.2.1 案例解析

6.2.2 案例代碼

6.2.3 案例小結

6.3 案例23：Range對象的Resize屬性、EntireRow屬性和Copy方法

6.3.1 案例解析

6.3.2 案例代碼

6.3.3 案例小結

6.4 案例24：Range對象的Merge方法

6.4.1 案例解析

6.4.2 案例代碼

6.4.3 案例小結

6.5 案例25：數據拆分到多表

6.5.1 案例解析

6.5.2 案例代碼

6.5.3 案例小結

第7章 使用Range對象拆分數據（2）

7.1 案例26：利用篩選將數據拆分到多表

7.1.1 案例解析

7.1.2 案例代碼

7.1.3 案例小結

7.2 案例27：新建工作表並避免重名

7.2.1 案例解析

7.2.2 案例代碼

7.2.3 案例小結

7.3 案例28：根據部門拆分工作表

7.3.1 案例解析

7.3.2 案例代碼

7.3.3 案例小結

7.4 案例29：按用戶要求拆分工作表

7.4.1 案例解析

7.4.2 案例代碼

7.4.3 案例小結

7.5 案例30：合並工作表

7.5.1 案例解析

7.5.2 案例代碼

7.5.3 案例小結

第8章 利用事件使Excel更加智能

8.1 案例31：設置單元格字號

8.1.1 案例解析

8.1.2 案例代碼

8.1.3 案例小結

8.2 案例32：自動修改所選單元格所在的整行的填充色

8.2.1 案例解析

8.2.2 案例代碼

8.2.3 案例小結

8.3 案例33：自動篩選

8.3.1 案例解析

8.3.2 案例代碼

8.3.3 案例小結

8.4 案例34：自動刷新透視表

8.4.1 案例解析

8.4.2 案例代碼

8.4.3 案例小結

8.5 案例35：重要數據自動備份

8.5.1 案例解析

8.5.2 案例代碼

8.5.3 案例小結

8.6 案例36：製作密碼驗證

8.6.1 案例解析

8.6.2 案例代碼

8.6.3 案例小結

第9章 在VBA中使用函數

9.1 案例37：使用工作表函數進行查詢和統計

9.1.1 案例解析

9.1.2 案例代碼

9.1.3 案例小結

9.2 案例38：按用戶要求拆分工作表（最後的完善）

9.2.1 案例解析

9.2.2 案例代碼

9.2.3 案例小結

9.3 案例39：練習使用InStr函數和Split函數

9.3.1 案例解析

9.3.2 案例代碼

9.3.3 案例小結

9.4 案例40：提取身份證號中的生日

9.4.1 案例解析

9.4.2 案例代碼

9.4.3 案例小結

第 10章 在Excel中添加自定義函數和按鈕

10.1 案例41：自定義美元換算函數

10.1.1 案例解析

10.1.2 案例代碼

10.1.3 案例小結

10.2 案例42：創建自定義函數，在工作表中實現Split函數的功能

10.2.1 案例解析

10.2.2 案例代碼

10.2.3 案例小結

10.3 案例43：創建帶參數的過程

10.3.1 案例解析

10.3.2 案例代碼

10.3.3 案例小結

10.4 案例44：在Excel中加載自定義函數

10.4.1 案例解析

10.4.2 案例代碼

10.4.3 案例小結

10.5 案例45：在Excel中添加按鈕實現一鍵拆分工作簿

10.5.1 案例解析

10.5.2 案例代碼

10.5.3 案例小結

10.6 案例46：在Excel中添加按鈕實現一鍵拆分工作表

10.6.1 案例解析

10.6.2 案例代碼

10.6.3 案例小結

第 11章 使用Dir函數進行多文件合並

11.1 案例47：將對象賦值給變量

11.1.1 案例解析

11.1.2 案例代碼

11.1.3 案例小結

11.2 案例48：學習使用Find函數

11.2.1 案例解析

11.2.2 案例代碼

11.2.3 案例小結

11.3 案例49：使用Dir函數檢驗文件是否存在

11.3.1 案例解析

11.3.2 案例代碼

11.3.3 案例小結

11.4 案例50：使用Dir函數提取文件名

11.4.1 案例解析

11.4.2 案例代碼

11.4.3 案例小結

11.5 案例51：多文件合並1（單表合並）

11.5.1 案例解析

11.5.2 案例代碼

11.5.3 案例小結

11.6 案例52：多文件合並2（多表合並）

11.6.1 案例解析

11.6.2 案例代碼

11.6.3 案例小結

11.7 案例53：多文件合並單表

11.7.1 案例解析

11.7.2 案例代碼

11.7.3 案例小結

第 12章 使用VBA數組提高代碼執行效率

12.1 案例54：認識數組

12.1.1 案例解析

12.1.2 案例代碼

12.1.3 案例小結

12.2 案例55：利用數組大幅提升VBA代碼執行效率

12.2.1 案例解析

12.2.2 案例代碼

12.2.3 案例小結

12.3 案例56：查找銷量冠軍

12.3.1 案例解析

12.3.2 案例代碼

12.3.3 案例小結

12.4 案例57：利用“暴力”破解解決組合問題

12.4.1 案例解析

12.4.2 案例代碼

12.4.3 案例小結

第 13章 在Excel中添加ActiveX控件

13.1 案例58：學習使用命令按鈕（CommandButton）

13.1.1 案例解析

13.1.2 案例代碼

13.1.3 案例小結

13.2 案例59：學習使用標簽（Label）控件

13.2.1 案例解析

13.2.2 案例代碼

13.2.3 案例小結

13.3 案例60：學習使用選項按鈕（OptionButton）

13.3.1 案例解析

13.3.2 案例代碼

13.3.3 案例小結

13.4 案例61：學習使用數值調節按鈕（SpinButton）

13.4.1 案例解析

13.4.2 案例代碼

13.4.3 案例小結

13.5 案例62：隨堂測試系統

13.5.1 案例解析

13.5.2 案例代碼

13.5.3 案例小結

第 14章 利用窗體與控件搭建會員信息查詢系統

14.1 案例63：將隨堂測試系統移植到窗體

14.1.1 案例解析

14.1.2 案例代碼

14.1.3 案例小結

14.2 案例64：學習使用復選框（CheckBox）

14.2.1 案例解析

14.2.2 案例代碼

14.2.3 案例小結

14.3 案例65：學習使用文本框（TextBox）

14.3.1 案例解析

14.3.2 案例代碼

14.3.3 案例小結

14.4 案例66：學習使用組合框（ComboBox）和列表框 （ListBox）

14.4.1 案例解析

14.4.2 案例代碼

14.4.3 案例小結

14.5 案例67：會員資料查詢

14.5.1 案例解析

14.5.2 案例代碼

14.5.3 案例小結

第 15章 如何在VBA中與用戶進行信息交互

15.1 案例68：深入學習MsgBox函數

15.1.1 案例解析

15.1.2 案例代碼

15.1.3 案例小結

15.2 案例69：深入學習InputBox函數

15.2.1 案例解析

15.2.2 案例代碼

15.2.3 案例小結

15.3 案例70：將用戶選中的多文件進行合並

15.3.1 案例解析

15.3.2 案例代碼

15.3.3 案例小結

15.4 案例71：學習Application對象的Dialogs屬性

15.4.1 案例解析

15.4.2 案例代碼

15.4.3 案例小結

第 16章 使用ADO對象連接並操作外部數據

16.1 案例72：使用ADO對象讀取外部數據

16.1.1 案例解析

16.1.2 案例代碼

16.1.3 案例小結

16.2 案例73：使用ADO對象向外部數據插入記錄

16.2.1 案例解析

16.2.2 案例代碼

16.2.3 案例小結

16.3 案例74：使用ADO對象在外部數據中修改記錄

16.3.1 案例解析

16.3.2 案例代碼

16.3.3 案例小結

16.4 案例75：使用ADO對象在外部數據中刪除記錄

16.4.1 案例解析

16.4.2 案例代碼

16.4.3 案例小結

16.5 案例76：使用ADO對象對外部數據進行左連接

16.5.1 案例解析

16.5.2 案例代碼

16.5.3 案例小結

16.6 案例77：使用ADO對象進行多表連接查詢

16.6.1 案例解析

16.6.2 案例代碼

16.6.3 案例小結

16.7 案例78：使用ADO對象訪問Access數據庫文件

16.7.1 案例解析

16.7.2 案例代碼

16.7.3 案例小結

第 17章 觸類旁通：掌握VBA的各種自學方法

17.1 案例79：自學VBA的Shapes對象

17.1.1 案例解析

17.1.2 案例代碼

17.1.3 案例小結

17.2 案例80：插入並調整圖片（利用官方資料）

17.2.1 案例解析

17.2.2 案例代碼

17.2.3 案例小結

17.3 案例81：插入圖表對象（利用錄制宏）

17.3.1 案例解析

17.3.2 案例代碼

17.3.3 案例小結

17.4 案例82：操作表單控件（利用編程推測）

17.4.1 案例解析

17.4.2 案例代碼

17.4.3 案例小結

17.5 案例83：學習使用Like語句

17.5.1 案例解析

17.5.2 案例代碼

17.5.3 案例小結

第 18章 觸“類”旁通：如何創建類模塊

18.1 案例84：VBA中的私有和公有

18.1.1 案例解析

18.1.2 案例代碼

18.1.3 案例小結

18.2 案例85：使用類模塊

18.2.1 案例解析

18.2.2 案例代碼

18.2.3 案例小結

18.3 案例86：學習使用Do-While循環

18.3.1 案例解析

18.3.2 案例代碼

18.3.3 案例小結

第 19章 利用VBA字典搭建用戶界面

19.1 案例87：使用VBA字典去除重復項

19.1.1 案例解析

19.1.2 案例代碼

19.1.3 案例小結

19.2 案例88：利用字典創建三級菜單列表

19.2.1 案例分析

19.2.2 案例代碼

19.2.3 案例小結

19.3 案例89：完成“添加”按鈕和“購物清單”列表框

19.3.1 案例解析

19.3.2 案例代碼

19.3.3 案例小結

第 20章 使用Excel+Access完成C/S系統開發

20.1 案例90：“刪除”按鈕和“總價”標簽

20.1.1 案例解析

20.1.2 案例代碼

20.1.3 案例小結

20.2 案例91：“結算”按鈕和銷售記錄

20.2.1 案例解析

20.2.2 案例代碼

20.2.3 案例小結

20.3 案例92：為商品收銀系統添加Access數據庫

20.3.1 案例解析

20.3.2 案例代碼

20.3.3 案例小結