Excel 2010 VBA編程與實踐

前言

Excel 2010具有強(qiáng)大的運算與分析能力。從Excel 2007開始，改進(jìn)的功能區(qū)使操作更直觀、更快捷，有了質(zhì)的飛躍。本書以Excel 2010為版本介紹其新功能區(qū)下的操作方法和應(yīng)用技巧，可助您在日常辦公中獲得更高的工作效率。與黃朝陽站長和Excel技巧網(wǎng)是在年初通過微軟社區(qū)精英計劃而結(jié)識的。微軟社區(qū)精英計劃是微軟為了協(xié)助國內(nèi)在技術(shù)社區(qū)上有一定影響力的社區(qū)或個人，或是愿意為國內(nèi)信息技術(shù)做出貢獻(xiàn)的社區(qū)或個人而設(shè)立的培訓(xùn)與支持計劃，同時也是配合國家培育人才的政策而成立的。很高興看到黃朝陽與Excel技巧網(wǎng)能將這些有用的信息集結(jié)成書，讓更多的人受惠。也很開心看到微軟社區(qū)精英計劃里的社區(qū)組織與意見領(lǐng)袖們能有此成就。下面有四個如果，如果您正好符合其中一個，您可以考慮在書店里找個安靜的角落享受一下，或者是帶回家仔細(xì)品嘗。如果您還認(rèn)為Excel只是一個試算表或是辦公室軟件，那么我會建議您閱讀此書，讓您將Excel的使用價值提升到另一個高度。如果您是長期使用Excel的老手，應(yīng)該不難發(fā)現(xiàn)Excel已不再是試算表的概念。經(jīng)過微軟研發(fā)團(tuán)隊多年來不斷地收集與匯整用戶反饋后，集成了中小型企業(yè)及大型企業(yè)乃至于個人用戶的不同需求，并將商業(yè)智能（Business Intelligence）巧妙地結(jié)合進(jìn)來，通過此書，希望您能發(fā)現(xiàn)更多Excel的應(yīng)用技巧，提高您的使用技能。

內(nèi)容概要

本書是“Excel疑難千尋千解”叢書之一，為讀者展示VBA編程的實戰(zhàn)技巧，包括工作中的疑難處理方案、自定義函數(shù)技術(shù)、代碼封裝技術(shù)、功能區(qū)設(shè)計技術(shù)，以及插件開發(fā)實戰(zhàn)與原理分析。本書側(cè)重于“解決問題”，主要展示諸多常見疑難的解決方案。閱讀本書，可以解決工作中的諸多疑難雜癥，大大提高工作效率，且有助于提升編程能力、拓展思路，將理論向?qū)崙?zhàn)邁進(jìn)。
本書有一個貫穿全文的思想：讓代碼同時具備準(zhǔn)確、糾錯、兼容和效率四個特性，所以本書所有案例都在準(zhǔn)確性與高效性的基礎(chǔ)上提供完善的錯誤處理措施與思路講解，且所有案例都通用于Excel
2003、2007和2010。作者使用Excel 2010界面寫作，但代碼在多個版本中都可以正常運行，不需要任何修改。
本書包括251個案例，最后一個是VBA的大型綜合應(yīng)用——開發(fā)工資管理系統(tǒng)。書中每個案例采取疑難描述、解決方案、操作方法、原理分析、知識擴(kuò)展五個步驟進(jìn)行講解，力圖解決問題之外還讓讀者可以通曉其思路和原理。
本書配合《Excel
VBA程序開發(fā)自學(xué)寶典》學(xué)習(xí)會有更好效果，該書側(cè)重于VBA的基礎(chǔ)理論教學(xué)，而本書則側(cè)重于解決實際問題，屬于該書配套的進(jìn)階應(yīng)用。前者學(xué)習(xí)理論與語法，而通過本書學(xué)習(xí)思路與技巧。
本書既適合Excel
VBA用戶參考學(xué)習(xí)，又可以作為大中專院?；蛘咂髽I(yè)的培訓(xùn)教材，同時對于在數(shù)據(jù)處理與分析方面有實戰(zhàn)經(jīng)驗的用戶也有較高的參考價值。
序 一
在用Excel的人很多，會用Excel的人很少。類似的情況也同樣出現(xiàn)在Excel圖書上，介紹Excel的圖書很多，真正對讀者有用的書很少。
在瀏覽過琳瑯滿目、各種類型的Excel圖書之后，在領(lǐng)略過百科全書式的詳細(xì)解析和武功秘籍般的招式演繹之后，依然有這樣一本“Excel疑難千尋千解”能夠讓人眼前一亮。令人刮目相看的原因在于，這部書真正把立場和視角建立在了讀者的基礎(chǔ)上——每一個問題都來源于Excel用戶可能真實面對的疑惑和困擾，每一個解答可能正是許多坐在計算機(jī)前束手無策的朋友正在搜尋的目標(biāo)。這樣一部圖書真正做到了理解讀者在想些什么，體會到了讀者正在面對怎樣的困境，從而引領(lǐng)我們從四處碰壁的電子迷宮中輕松突圍。而本書的作者，這些技術(shù)超群的Excel專家們，這些被稱為電子世界的羅賓漢們，用他們的專業(yè)精神和實用技術(shù)，給眾多受困于Excel無邊苦海中的數(shù)據(jù)工作者們奉獻(xiàn)了一部真正意義上的Excel生存手冊。
如果你也正準(zhǔn)備踏上征服Excel的旅程，不妨就把這本書也放進(jìn)你的背包行囊里吧！
微軟全球最有價值專家MVP 方驥

作者簡介

羅剛君，網(wǎng)名andysky，ExcelTip.net技術(shù)社區(qū)版主，多個Office技術(shù)社區(qū)資深版主，從事Excel軟件研究與寫作多年，精通Excel VBA與函數(shù)、圖表。在公司擔(dān)任電腦技術(shù)管理，對辦公應(yīng)用有較極豐富的實戰(zhàn)經(jīng)驗和心得。目前已經(jīng)出版過5部Excel相關(guān)著作。章蘭新，網(wǎng)名zlxtl，ExcelTip.net技術(shù)社區(qū)版主，多個Office技術(shù)社區(qū)資深版主，擁有十多年豐富的政府信息化實踐、管理和組織實施經(jīng)驗，精通Excel和MS SQL在管理中的應(yīng)用。長期在政府財政經(jīng)濟(jì)部門實施電腦技術(shù)與管理、統(tǒng)計、數(shù)據(jù)分析相融合的工作，一直致力于推廣Excel和數(shù)據(jù)庫技術(shù).對辦公應(yīng)用有極豐富的實戰(zhàn)經(jīng)驗和心得。黃朝陽，網(wǎng)名apolloh，ExcelTiD.net站長，微軟全球最有價值專家（MVP）。擁有十多年豐富的企業(yè)信息化實踐和管理經(jīng)驗，精通Excel和MSSQL在企業(yè)中的應(yīng)用。早期曾在多個Office技術(shù)社區(qū)擔(dān)任版主，參與過多部Excel暢銷書的編著工作。

書籍目錄

第1章 基礎(chǔ)理論 1
1.1 快速獲取幫助 1
疑難1 如何獲取所有控件的屬性及屬性值 1
? 前期綁定與后期綁定 4
疑難2 部分對象在輸入時沒有成員列表提示，如何解決 5
? 沒有成員列表的對象 6
疑難3 如何找出錯誤語句及獲取錯誤原因并發(fā)送到開發(fā)者郵箱 6
? 利用ShellExecute函數(shù)調(diào)用程序的方式 8
1.2 程序防錯要點 8
疑難4 程序出錯有哪些原因 9
? 常見錯誤分析 9
疑難5 如何獲取VBA所有運行時錯誤的詳細(xì)說明 10
? 通過Error函數(shù)獲取錯誤信息 12
疑難6 如何在執(zhí)行完畢后報告出錯次數(shù)及原因 13
? 捕捉所有錯誤信息 14
疑難7 如何開發(fā)完善的程序 15
? 數(shù)組區(qū)域?qū)BA程序的影響 17
疑難8 防錯語句在程序或者函數(shù)中應(yīng)用有哪些優(yōu)勢 17
? 利用Err.Number屬性判斷錯誤類型 19
1.3 代碼優(yōu)化之道 19
疑難9 如何優(yōu)化過程“隱藏偶數(shù)行” 19
? 關(guān)閉ScreenUpdating提升程序效率 20
疑難10 如何優(yōu)化過程“設(shè)置字體屬性” 21
? 利用With簡化對象引用 22
疑難11 如何優(yōu)化過程“隔三行求和” 22
? 減少單元格的寫入次數(shù)提升程序效率 23
疑難12 如何優(yōu)化過程“B列所有圖片右移” 23
? 有針對性地使用Select方法 24
疑難13 如何優(yōu)化過程“建工作表目錄” 25
? VBA中數(shù)組的作用 26
疑難14 如何優(yōu)化過程“成績評語” 26
? 區(qū)分適合置于循環(huán)體中的語句 27
疑難15 如何優(yōu)化過程“刪除空單元格所在行” 27
? 不用循環(huán)而選擇多個符合條件的單元格 28
疑難16 如何優(yōu)化過程“批量修改批注背景色” 28
? 區(qū)分父對象與子對象 29
疑難17 如何優(yōu)化過程“隔一行插入一行” 30
? 計算模式對程序效率的影響 31
疑難18 如何優(yōu)化過程“獲取外網(wǎng)IP地址” 31
? 使用變量的條件 32
1.4 提升代碼的兼容性 32
疑難19 程序的兼容性體現(xiàn)在哪些方面 33
? 操作系統(tǒng)對VBA的影響 33
疑難20 如何讓程序適應(yīng)不確定對象 34
? 使用動態(tài)區(qū)域引用讓代碼具有更強(qiáng)的通用性 37
疑難21 如何讓程序兼容Excel多版本 37
? 識別Excel的版本號 39
疑難22 如何讓程序兼容英文和中文系統(tǒng) 40
? 利用API函數(shù)識別簡體、繁體中文與英文 41
疑難23 如何讓程序兼容簡體與繁體中文 41
? 讓代碼適應(yīng)簡體與繁體系統(tǒng) 42
1.5 練習(xí)與思考 42
第2章 查找引用 44
2.1 本表查找 44
疑難24 如何查找不及格學(xué)生姓名并突出顯示 44
? 利用Union方法合并多區(qū)域 46
疑難25 如何一次性羅列表中三省員工的姓名 47
? Find方法的使用技巧 49
疑難26 如何在輸入時逐步查找 50
? 通過KeyUp事件自動執(zhí)行查詢 52
疑難27 如何按指定的格式查找 53
? FindFormat的使用技巧 54
疑難28 如何實現(xiàn)字體格式替換 54
? 替換格式的條件 55
疑難29 如何查找所有“#”并標(biāo)為上標(biāo) 56
? 區(qū)分上標(biāo)、下標(biāo)的應(yīng)用對象 57
疑難30 如何找出還款時間超過一年及未還款的客戶信息 57
? 日期函數(shù)Datedif的特性 59
疑難31 可以將查找到的所有數(shù)據(jù)串連并寫入剪貼板中嗎 59
? 引用“Microsoft Forms 2.0 Object Library”的兩種方法 60
疑難32 可以創(chuàng)建一個工具欄來方便查找嗎 61
? 設(shè)置lookat參數(shù)實現(xiàn)模糊查找 63
疑難33 如何快速羅列出每個產(chǎn)品最新報價 63
? Collection對象的應(yīng)用技巧 65
疑難34 如何在具有合并單元格的區(qū)域中多條件逐步查找 65
? 通過“MergeArea”屬性返回合并區(qū)域 67
疑難35 如何查找成績并分批發(fā)郵件 67
? VBA中發(fā)編寫郵件正文時的換行符的表示法 68
2.2 跨表及多表查找 69
疑難36 如何引用數(shù)據(jù)表創(chuàng)建多級下拉菜單 69
?“ActionControl”對象的功能與限制 72
疑難37 如何將所有表中查找的完成數(shù)匯總到總表 73
? 利用SpecialCells定位實現(xiàn)快速查找 74
疑難38 在窗體中羅列每月產(chǎn)量冠軍名單 74
? 不采用循環(huán)，一次性找出最大值所在行 76
疑難39 如何將具有外部數(shù)據(jù)引用的單元格轉(zhuǎn)換成值 76
? 通過“[]”和“’！”定位具有外部鏈接的公式 77
疑難40 如何讓鏈接到其他表中隱藏單元格的超鏈接生效 77
? 通過xlSheetVisible屬性切換工作表顯示狀態(tài) 78
疑難41 如何實現(xiàn)多部門電話資料模糊查詢 79
? Target與Activecell的區(qū)別 80
疑難42 如何實現(xiàn)所有未收貨款者在狀態(tài)欄隨機(jī)顯示 80
? 利用OnTime定時執(zhí)行程序 82
2.3 文件查找與轉(zhuǎn)換 82
疑難43 如何判斷指定文件是否存在 82
? 利用DIR函數(shù)判斷文件是否存在 83
疑難44 如何進(jìn)行深度查找且創(chuàng)建文件目錄 84
? FileDialog對象的應(yīng)用 85
疑難45 如何查找并備份所有“3月生產(chǎn)表” 86
? CopyFile方法對文件復(fù)制 88
疑難46 如何將所有Excel文件轉(zhuǎn)換成XPS或PDF文件 88
? 利用PrintOut方法將工作表轉(zhuǎn)換成XPS文件 90
疑難47 如何在網(wǎng)上鄰居的共享盤中查找并打開“單價表” 91
? 利用FileExists方法判斷文件是否存在 92
疑難48 如何實現(xiàn)全盤查找“上海灘.MP3”，有則自動翻放 92
? 播放音樂的三種方式 94
疑難49 如何在網(wǎng)上自動搜索與當(dāng)前單元格同名的歌曲并播放 95
? 利用網(wǎng)頁地址索引歌曲并自動播放 96
2.4 圖片查找與引用 96
疑難50 如何瞬間刪除當(dāng)前表中所有圖片 96
? DrawingObjects與Shape對象的區(qū)別 97
疑難51 可以將簽名圖片復(fù)制到表中所有簽名處嗎 97
? 復(fù)制圖形對象與復(fù)制數(shù)據(jù)的區(qū)別 98
? Selection代表什么 99
疑難52 如何像vlookup引用數(shù)據(jù)一樣引用圖片 99
? 對圖片設(shè)置公式引用其他圖片 101
疑難53 如何通過窗體預(yù)覽指定目錄中的所有圖片 101
? 通過LoadPicture函數(shù)加載圖片 103
2.5 練習(xí)與思考 103
第3章 數(shù)據(jù)處理 104
3.1 定位的技巧 104
疑難54 如何選擇當(dāng)前表0～100之外的數(shù)據(jù) 104
? 使用定位技術(shù)減少循環(huán)語句的循環(huán)次數(shù) 105
疑難55 如何定位奇數(shù)行 105
? MOD配合SpecialCells定位奇數(shù)行 106
疑難56 可以瞬間定位并隱藏所有錯誤值嗎 107
? 通過SpecialCells定位錯誤值 108
疑難57 如何在輸入數(shù)據(jù)時自動定位下一行的目標(biāo)單元格 109
? 限制刪除單元格的數(shù)據(jù)時不觸發(fā)工作表的Change事件 110
疑難58 可以將標(biāo)題以外的區(qū)域轉(zhuǎn)換成“萬”為單位嗎 110
? VBA中如何處理雙引號 111
疑難59 如何定位當(dāng)前表最大值和最小值 112
? 調(diào)用工作表函數(shù)并配合Find方法查找最大值 113
疑難60 能定位并標(biāo)識高于平均值的單元格嗎 113
? VBA中數(shù)字、漢字的大小關(guān)系 115
疑難61 如何反向選擇工作表區(qū)域 115
? 輔助區(qū)的重要性 116
3.2 數(shù)據(jù)處理及格式轉(zhuǎn)換 116
疑難62 如何將單詞在大寫、小寫與首字母大寫間任意切換 116
? 利用StrConv函數(shù)對英文進(jìn)行大寫、小寫和首字母大寫轉(zhuǎn)換 117
疑難63 如何將二維的入庫表轉(zhuǎn)換成一維排版方式 118
? 利用數(shù)組提升代碼執(zhí)行效率 119
疑難64 能否不用循環(huán)對選區(qū)進(jìn)行橫向與縱向匯總 120
?“R1C1”引用方式的優(yōu)點 121
疑難65 如何批量地將字符串中的字母、數(shù)字和漢字分離出來 122
? 利用Like運算符區(qū)別漢字、數(shù)字和字母 123
疑難66 可以將表達(dá)式轉(zhuǎn)換成運算結(jié)果嗎 124
? 通過Evaluate計算表達(dá)式 125
疑難67 如何快速填充所有空單元格 125
? 利用Intersect引用區(qū)域提升代碼通用性 126
疑難68 如何將產(chǎn)品銷售地區(qū)瞬間轉(zhuǎn)換成下拉列表 126
? 利用代碼設(shè)置有效性序列 127
疑難69 數(shù)據(jù)有效性可以設(shè)置三級關(guān)聯(lián)下拉列表嗎 128
? 利用Dictionary對象獲取唯一值 130
疑難70 可以對職員信息表按學(xué)歷排序嗎 130
? 新舊版本中Sort的差異 131
疑難71 可以不打開工作簿而提取其數(shù)據(jù)嗎 132
? VBA中調(diào)用公式實現(xiàn)從未打開的工作表中取值 133
疑難72 如何保護(hù)所有公式不能修改 134
? 切換Locked 屬性實現(xiàn)公式保護(hù) 135
疑難73 如何實現(xiàn)金額數(shù)據(jù)分解 135
? MID取文本的特點 137
疑難74 VBA可以破解工作表密碼嗎 137
? 表的分類 138
疑難75 如何對分段編號進(jìn)行合并轉(zhuǎn)換 138
? 減少數(shù)組變量空間分配次數(shù)的方法 140
疑難76 如何將5個大小相同選區(qū)的數(shù)據(jù)互換 141
? Areas與CurrentRegion的區(qū)別 142
疑難77 如何取得1000之內(nèi)的質(zhì)數(shù) 142
? 質(zhì)數(shù)的特性 143
疑難78 可以生成指定范圍的不重復(fù)隨機(jī)數(shù)嗎 144
? Collection對象的優(yōu)勢 145
疑難79 如何利用VBA對工作簿進(jìn)行減肥 145
? 正確刪除單元格，減少文件體積 146
疑難80 如何讓數(shù)字在文本與數(shù)值之間快速切換 147
? 在文本與數(shù)值間切換的VBA思路 148
疑難81 如何將“/”分隔的數(shù)據(jù)進(jìn)行匯總 149
? 以“/”為分隔符取其左右字符的思路優(yōu)化 150
疑難82 可以對指定區(qū)域進(jìn)行自動更正嗎 150
? 利用Replace方法實現(xiàn)限定區(qū)域的自動更正 151
疑難83 可以對包括“星期”的所有工作表同時添加公式嗎 151
? VBA在單表和多表中輸入公式的區(qū)別 152
疑難84 在VBA中如何控制字符朗讀 153
? 利用Speech朗讀字符 153
疑難85 能實現(xiàn)粘貼數(shù)據(jù)時跳過隱藏區(qū)嗎 154
? 如何確定單元格是否隱藏 156
疑難86 如何對相同值進(jìn)行標(biāo)識著色 156
疑難87 如何根據(jù)工資計算零鈔數(shù)量 159
? 獲取選區(qū)第一列及已用區(qū)域的交集 160
疑難88 如何批量實現(xiàn)區(qū)域數(shù)據(jù)真正四舍五入 161
? 通過round解決數(shù)據(jù)顯示的假象 162
疑難89 如何優(yōu)化具有大量公式引用的數(shù)據(jù)計算 163
? 公式與VBA在計算上的區(qū)別 164
? ClearContents與Clear的區(qū)別 164
3.3 單元格合并技巧 164
疑難90 可以在表格中合并同類項嗎 165
? 利用DisplayAlerts屬性關(guān)閉合并單元格的提示及加快執(zhí)行速度 166
疑難91 如何實現(xiàn)按產(chǎn)品合并產(chǎn)量數(shù)據(jù)表 166
? 利用變量暫存數(shù)據(jù)，代替輔助區(qū) 168
疑難92 如何實現(xiàn)合并時保留所有數(shù)據(jù)，而拆分時可以還原 168
? 看不見的特殊字符的應(yīng)用 171
疑難93 可以選擇當(dāng)前表所有合并單元格嗎 171
? 定位合并單元格 172
疑難94 如何取消所有合并區(qū)域并且對所有單元格填充數(shù)據(jù) 172
? 合并區(qū)域的賦值方式 174
疑難95 合并單元格后仍然可以正常引用區(qū)域中的所有值嗎 174
? 復(fù)制合并屬性 175
疑難96 如何將指定單元格合并鏈接到一個選區(qū) 175
? 對一個區(qū)域追加鏈接 177
疑難97 跨頁合并單元格可以重新合并從而適應(yīng)分頁打印嗎 178
? 判斷合并單元格是否跨頁 179
疑難98 可以讓合并單元格自動換行嗎 180
? 工作表事件代碼與普通過程的區(qū)別 181
3.4 報表合并與拆分 181
疑難99 如何合并所有工作表到一個表中 182
? 讓復(fù)制數(shù)據(jù)時既去除公式又不影響數(shù)值的顯示狀態(tài) 183
疑難100 如何實現(xiàn)多表合并匯總 184
? 利用相對引用公式批量合并數(shù)據(jù)，避免使用循環(huán) 185
疑難101 如何將多個工作簿中的所有工作表合并到一個工作表中 186
? 通過禁用工作簿重算提升代碼效率 189
疑難102 如何將多個工作簿數(shù)據(jù)合并到一個工作簿中 189
? 利用變量作為輔助進(jìn)行條件判斷 193
疑難103 如何實現(xiàn)報表拆分 193
? 利用復(fù)制格式和復(fù)制數(shù)值實現(xiàn)完美復(fù)制，避免復(fù)制后顯示錯誤 195
疑難104 如何將工作簿中每個工作表轉(zhuǎn)換為獨立工作表 197
? 根據(jù)版本號決定文件格式 198
3.5 單元格顏色的綜合應(yīng)用 199
疑難105 Excel不同版本在顏色處理方面有分別嗎 199
? 不同版本中顏色差異對程序的影響 200
疑難106 可以對Excel 2010的按顏色篩選再做擴(kuò)展嗎 201
? CurrentRegion與Usedrange對程序的影響 204
疑難107 如何讓按顏色排序可以在Excel 多版本間通用 204
? 借用輔助和調(diào)用老版本的Sort功能提升程序的通用性 206
疑難108 如何將顏色分類重排且通用于Excel多個版本 206
? 將顏色屬性轉(zhuǎn)換成數(shù)據(jù)，輔助程序執(zhí)行 208
疑難109 可以按顏色對選區(qū)數(shù)據(jù)分類匯總嗎 208
? 修改數(shù)據(jù)源與修改顏色在VBA事件中的差異 211
疑難110 如何用函數(shù)對數(shù)據(jù)背景和字體按顏色匯總 212
? 通過Volatile讓函數(shù)聲明為易失性函數(shù) 213
3.6 重復(fù)數(shù)據(jù)處理 213
疑難111 如何清空重復(fù)值單元格并標(biāo)識 214
? Countif函數(shù)在去重復(fù)值中的應(yīng)用 215
? Countif函數(shù)的限制 216
疑難112 可以對重復(fù)出現(xiàn)的數(shù)據(jù)進(jìn)行圈釋嗎 216
? 利用CircleInvalid對單元格加圈，以及CircleInvalid的限制 217
疑難113 如何篩選唯一值 218
? 使用錯誤處理語句配合Collection取唯一值 219
疑難114 可以在輸入重復(fù)值時提示用戶嗎 219
? 通過EnableEvents提高程序的執(zhí)行效率 220
疑難115 如何對兩列數(shù)據(jù)提取相同項與不同項 221
? 利用Transpose函數(shù)實現(xiàn)區(qū)域轉(zhuǎn)數(shù)組 222
疑難116 如何將多行多列相同者保留最后一個數(shù)據(jù) 223
? 雙層Transpose配套Join實現(xiàn)橫向區(qū)域轉(zhuǎn)字符串 224
3.7 數(shù)據(jù)透視 224
疑難117 如何按職務(wù)或部門進(jìn)行工資數(shù)據(jù)的透視分析 225
? 利用Excel 2003的透視表代碼提升程序兼容性 226
疑難118 如何實現(xiàn)多重數(shù)據(jù)透視 227
? 利用Array嵌套創(chuàng)建多重透視 228
疑難119 如何實現(xiàn)同時透視多工作簿中的多工作表數(shù)據(jù) 229
? 解決VBA創(chuàng)建透視表名稱沖突的兩種方法 230
3.8 練習(xí)與思考 231
第4章 報表打印 232
4.1 打印設(shè)置 232
疑難120 如何一次性設(shè)置“總表”以外工作表的頁腳 232
? 選擇工作表數(shù)量對頁腳的影響 233
疑難121 如何設(shè)置所有工作表的已用區(qū)域為打印區(qū)域 233
? 設(shè)置打印區(qū)域?qū)?shù)據(jù)打印的影響 234
疑難122 可以記錄工作簿的打印次數(shù)嗎 235
? 借用文件自定義屬性記錄打印次數(shù) 235
4.2 特殊打印格式設(shè)計 236
疑難123 如何設(shè)計工資條打印格式 237
? 借用輔助列提升程序的容錯性 240
疑難124 如何打印工資卡 240
? 引用普通工作簿和加載宏工作簿的區(qū)別 243
疑難125 VBA可以實現(xiàn)對工作表分頁小計嗎 243
? 利用宏表函數(shù)Get.Document(50)獲取工作表頁數(shù) 246
疑難126 如何同時打印頂端標(biāo)題和底端標(biāo)題行 246
? 計算第一個分頁符的所在行號 253
疑難127 可以借用圖片實現(xiàn)底端標(biāo)題打印嗎 253
? Export與API方式將區(qū)域轉(zhuǎn)換成圖片的差異 255
疑難128 如何制作針式多聯(lián)打印機(jī)打印格式的報表 256
? 利用HPageBreaks.Add實現(xiàn)手動分頁 258
疑難129 如何實現(xiàn)雙面打印 259
? 中斷與禁止中斷程序 260
疑難130 可以僅僅打印活動單元格所在頁嗎 260
? 利用Location計算分頁符位置，配合循環(huán)判斷當(dāng)前頁序號 261
4.3 練習(xí)與思考 262
第5章 函數(shù)開發(fā) 263
5.1 自定義函數(shù)基礎(chǔ) 263
疑難131 如何開發(fā)自定義函數(shù) 263
? Office版本對自定義函數(shù)參數(shù)的影響 267
疑難132 函數(shù)與參數(shù)名規(guī)則如何 267
? 自定義函數(shù)命名規(guī)則 267
疑難133 自定義函數(shù)在不同版本中有何差異 269
? 顏色對自定義函數(shù)的影響 271
5.2 開發(fā)自定義函數(shù) 271
疑難134 如何對區(qū)域內(nèi)混雜字符串中的數(shù)字求和 271
? Excel公式對連續(xù)“+”的處理方式 273
疑難135 如何分離字符串中的數(shù)值、英文和漢字 273
? 正則表達(dá)式在字符處理中的優(yōu)勢 274
疑難136 如何將文本混雜字符串及表達(dá)式轉(zhuǎn)換為值 274
? 正則表達(dá)式中數(shù)字、漢字的表達(dá)方式 276
疑難137 如何按時間段計算匯總金額 277
? 根據(jù)計算對象的規(guī)范性決定函數(shù)參數(shù)的個數(shù) 278
疑難138 如何對具有分隔符的數(shù)據(jù)分類匯總 279
? Split函數(shù)產(chǎn)生的數(shù)組的特點 280
疑難139 可以取姓名的漢語拼音首字母嗎 280
? 漢字與拼音首字母的對應(yīng)關(guān)系 282
疑難140 超過15位的數(shù)字如何求和 282
? Excel對數(shù)據(jù)計算的長度限制 284
疑難141 可以擴(kuò)展Vlookup函數(shù)實現(xiàn)返回多個結(jié)果嗎 284
? 利用Find替代Vlookup實現(xiàn)多個數(shù)據(jù)查找 285
疑難142 如何利用函數(shù)創(chuàng)建文件目錄 286
? 自定義函數(shù)中如何表示活動單元格 287
疑難143 可以用函數(shù)連接內(nèi)存數(shù)據(jù)和區(qū)域中所有文本嗎 288
? 利用ParamArray聲明不確定個數(shù)的函數(shù)參數(shù) 290
疑難144 如何根據(jù)身份證號碼獲取出生日期、年齡和性別 290
? 身份證號碼所包含的個人信息 292
疑難145 如何將多個單元格中的人民幣數(shù)字合并且轉(zhuǎn)為大寫金額 293
? 聲明正確的類型優(yōu)化函數(shù)效率 294
疑難146 如何計算兩個區(qū)域的不同項 294
? 自定義函數(shù)對大區(qū)域運算的限制 296
疑難147 如何突破Rank函數(shù)排名的限制 296
? 去重復(fù)值的3個方法 297
疑難148 如何實現(xiàn)按數(shù)據(jù)出現(xiàn)次數(shù)排序 298
? Collection與字典的區(qū)別 300
疑難149 可以用一個函數(shù)將人民幣大小寫相互轉(zhuǎn)換嗎 300
? 通過拆分法理解代碼 302
疑難150 可以用函數(shù)改變引用區(qū)域的值嗎 303
? 利用自定義函數(shù)修改引用區(qū)域的值的兩種方法 305
疑難151 如何對兩個以逗號分隔的亂序字符串比較異同 306
? Split函數(shù)嵌套應(yīng)用從字符串中分別獲取品名與數(shù)量 307
疑難152 可以利用函數(shù)添加數(shù)據(jù)監(jiān)控嗎 308
? 借用函數(shù)的易失性實現(xiàn)自動執(zhí)行，類似于工作表事件 309
疑難153 可以讓函數(shù)的兩個參數(shù)全是可選參數(shù)嗎 310
? 將單個參數(shù)聲明為可選參數(shù)的方法 311
疑難154 可以利用函數(shù)批量對工作表命名嗎 312
? 借用類模塊將工作簿級事件提升為應(yīng)用程序級事件 314
疑難155 如何讓自定義函數(shù)運算結(jié)果是一個數(shù)組 314
? 函數(shù)返回數(shù)組的條件 316
5.3 自定義函數(shù)的管理 316
疑難156 如何對自定義函數(shù)添加說明 316
? 通過MacroOptions定義函數(shù)的幫助信息 318
疑難157 如何對自定義函數(shù)的參數(shù)添加幫助 318
? 借用REGISTER為自定義函數(shù)添加參數(shù)說明及分類 321
疑難158 可以將加載宏中的自定義函數(shù)復(fù)制到活動工作簿嗎 322
? 判斷用戶的設(shè)置是否允許訪問VBA工程 325
疑難159 如何封裝自定義函數(shù)，使其代碼不可查看 325
? 利用VB 6.0企業(yè)版封裝自定義函數(shù) 328
5.4 練習(xí)與思考 328
第6章 文件目錄 329
6.1 文件管理 329
疑難160 可以實現(xiàn)文件雙向備份嗎 329
? 利用SaveCopyAs備份文件 330
疑難161 如何讓文件使用一次后即自我銷毀 331
? 文件“自殺”的條件 331
疑難162 文件有哪些屬性，如何控制它們 332
? GetAttr函數(shù)搭配and運算符判斷文件是否具備某屬性 333
疑難163 如何刪除指定目錄中一年前創(chuàng)建的文件 334
疑難164 可以刪除18個月沒有使用的文件嗎 335
? 用DATEDIF計算文件閑置時間的技巧 336
疑難165 如何對文件批量重命名 336
? 獲取文件名的方法 338
疑難166 可以在收藏夾中對當(dāng)前工作簿創(chuàng)建快捷方式嗎 338
? 獲取收藏夾地址的方法 339
疑難167 文本文件與Excel如何批量轉(zhuǎn)換 341
? 文本文件與工作表的相互轉(zhuǎn)換 342
疑難168 如何實現(xiàn)將指定文件作為附件發(fā)送郵件 343
? Outlook的前期綁定與后期綁定 344
6.2 目錄管理 345
疑難169 如何瞬間刪除D盤中所有空文件夾 345
? 將代表磁盤的字符串轉(zhuǎn)換成磁盤對象的方法 346
疑難170 如何獲取C盤以外所有磁盤的文件目錄列表 346
? 通過FSO對象判斷某磁盤是否存在 347
疑難171 如何讓多版本Excel可以隨心所欲選擇打開方式 348
? 將Excel快捷方式導(dǎo)入“Sendto”文件夾 349
疑難172 如何批量創(chuàng)建以本月每日日期命名的文件夾 350
? 利用DateSerial的糾錯功能計算本月天數(shù) 351
6.3 練習(xí)與思考 351
第7章 圖表設(shè)計 352
7.1 圖表編輯 352
疑難173 如何利用快捷鍵對選區(qū)創(chuàng)建圖表 352
? 對宏指定組合鍵的方式及特點 355
疑難174 如何批量修改圖表標(biāo)簽 355
? 操作圖表標(biāo)簽的條件 359
疑難175 如何批量移位標(biāo)簽 359
? 移位圖表標(biāo)簽的限制 362
疑難176 如何對圖表系列設(shè)置條件格式 362
? 填充圖表系列的兩種方法 365
7.2 多表管理 366
疑難177 如何將所有圖表大小調(diào)整一致且對齊 366
? 圖表名稱的特點 367
疑難178 如何將所有圖表轉(zhuǎn)換成JPG文件保存到文件夾 368
? 將圖片轉(zhuǎn)換為圖片的思路 369
7.3 練習(xí)與思考 369
第8章 圖形對象 370
8.1 圖形對象的基本操作 370
疑難179 可以僅僅刪除E列存放的圖表以外的圖形對象嗎 370
? 通過TopLeftCell和BottomRightCell定位圖片位置 371
疑難180 如何將工作簿所在路徑的圖片全部導(dǎo)入工作表 371
? Pictures.Insert與Shapes.AddPicture的分別 373
疑難181 如何讓所有圖形對齊所在單元格左邊框 374
? 通過統(tǒng)一TopLeftCell屬性對齊圖片 374
疑難182 如何實現(xiàn)所有圖片剛好適應(yīng)所在單元格大小與邊距 375
? 行高與列寬的特點 376
疑難183 如何將選區(qū)轉(zhuǎn)換成圖片并保存到桌面 377
? 借用圖表中介實現(xiàn)區(qū)域轉(zhuǎn)圖片 379
8.2 批注的高級應(yīng)用 379
疑難184 如何利用快捷鍵在單元格插入當(dāng)前日期的批注 379
? 通過設(shè)置AutoSize屬性使批注框自動調(diào)整大小 380
疑難185 如何將指定列的數(shù)據(jù)批量追加到批注中 381
? 強(qiáng)制返回選區(qū)第一列的3種方法 383
疑難186 如何實現(xiàn)指定區(qū)域批量創(chuàng)建歷史記錄于批注中 383
? 讓代碼應(yīng)用于所有工作簿的方法 386
疑難187 如何批量導(dǎo)入圖片到單元格的批注中 386
? 對批注框設(shè)置背景的條件 388
疑難188 可以對批注進(jìn)行替換嗎 388
? “Unload Me”、“End”和“Exit Sub”的區(qū)別 391
疑難189 如何在所有批注末尾追加當(dāng)前日期 391
? 利用Isdate判斷批注最后一行是否為日期 392
疑難190 如何批量修改批注的外觀 392
? 聲明正確的變量類型及防錯 394
疑難191 可以改造默認(rèn)的插入批注功能嗎 394
? 正確引用右鍵菜單 395
8.3 圖形對象綜合應(yīng)用 396
疑難192 可以讓圖片跟隨鼠標(biāo)移動嗎 396
? 利用DoEvents函數(shù)展示動畫過程 398
疑難193 如何創(chuàng)建圖片目錄與批量插入圖片 398
? 單元格的行高與列寬限制 401
疑難194 如何利用窗體預(yù)覽圖片 402
? 控件背景圖片的3種顯示方式 404
疑難195 VBA中的窗體能否轉(zhuǎn)換成圖片保存在工作表中 404
? 調(diào)用API函數(shù)調(diào)用截圖的快捷鍵 405
疑難196 可以在工作表中導(dǎo)入GIF動畫嗎 406
? 播放GIF文件時不能將文件嵌入工作表 408
疑難197 如何實現(xiàn)輸入品名時查看當(dāng)前路徑中的同名圖片 408
? 利用API計算圖片文件的長與寬 409
疑難198 可以讓鼠標(biāo)指定圖片時放大圖片嗎 410
? 利用API函數(shù)獲取鼠標(biāo)指針坐標(biāo) 413
疑難199 如何實現(xiàn)圖片批量導(dǎo)入并自動排版打印 413
? 利用FSO技術(shù)中的Getextensionname獲取文件后綴名 417
8.4 練習(xí)與思考 417
第9章 窗體控件 418
9.1 ActiveX控件應(yīng)用 418
疑難200 可以利用列表框強(qiáng)化數(shù)據(jù)有效性嗎 418
? 列表框相較數(shù)據(jù)有效性的靈活性 420
疑難201 如何利用復(fù)合框引用區(qū)域的唯一值 421
? 復(fù)合框調(diào)用數(shù)據(jù)的兩種方法及各自優(yōu)勢 423
疑難202 利用復(fù)合框和列表框?qū)崿F(xiàn)二級列表 423
? MouseMove事件獲取列表框的值的技巧 426
9.2 窗體設(shè)計技巧 426
疑難203 如何實現(xiàn)利用快捷鍵啟用和關(guān)閉窗體 426
? KeyPress事件可以檢查的按鍵及例外項目 428
疑難204 如何用一個窗體展現(xiàn)多個不同內(nèi)容 429
? 分頁顯示的兩種方法 432
疑難205 如何用一個按鈕執(zhí)行多個功能 433
? 利用PasswordChar屬性隱藏敏感字符 435
疑難206 如何讓日期輸入器窗體緊跟活動單元格 435
? 影響窗體Left、Top屬性的因素 436
疑難207 如何設(shè)計五角星窗體 437
? 顯示五角星窗體的方法 440
疑難208 VBA可以設(shè)計彩蛋嗎 440
? MouseUp事件中Shift參數(shù)的作用 442
疑難209 如何通過窗體控制實現(xiàn)工作表隔行插入行 442
? 通過Shift參數(shù)控制Insert方法的單元格移動方向 446
疑難210 如何在窗體中開發(fā)右鍵快捷菜單 446
? 創(chuàng)建自定義菜單的基本思路 448
疑難211 窗體可以利用鼠標(biāo)自由調(diào)整大小嗎 449
? 利用API讓窗體可以自由拖動的思路 449
疑難212 在窗體Show狀態(tài)下可以調(diào)整控件大小嗎 450
? MouseMove事件中各參數(shù)的作用 452
疑難213 在窗體Show狀態(tài)下如何批量設(shè)置控件格式 452
? 可修改控件字體格式的幾種對話框 454
疑難214 在窗體Show狀態(tài)下如何調(diào)整控件位置 455
? MouseMove事件中Button參數(shù)的應(yīng)用技巧 456
疑難215 如何檢測窗體中文本框的數(shù)據(jù)有效性 456
? 對文本框設(shè)置數(shù)據(jù)有效性檢驗的優(yōu)勢 457
疑難216 如何設(shè)計懸浮感應(yīng)式窗體 458
? 通過調(diào)整邊距控制窗體的動態(tài)效果 460
疑難217 可否瞬間備份所有窗體 460
? VBA工程中的子對象分類 461
疑難218 能否對窗體中所有控件同步縮放 462
? 窗體的Zoom屬性的特點 464
疑難219 能否通過代碼生成窗體及控件 464
? 用代碼操作代碼、窗體和模塊的優(yōu)缺點 466
9.3 窗體與工作表之?dāng)?shù)據(jù)交互 467
疑難220 可以實現(xiàn)多工作表篩選并將結(jié)果導(dǎo)入窗體嗎 467
? 列表框的ColumnHeads屬性的特點 469
疑難221 多工作表數(shù)據(jù)輸入窗體如何設(shè)計 469
? 利用SetFocus方法控制焦點的轉(zhuǎn)移 472
疑難222 如何開發(fā)日歷工具箱 472
? Excel對日期計算的限制 476
疑難223 如何實現(xiàn)多條件電話查詢 476
? “TextBox1_Change”事件與“TextBox1_Exit”事件的異同 478
疑難224 如何開發(fā)復(fù)選框批量管理工具 478
? 認(rèn)識復(fù)選框 481
疑難225 如何讓窗體控件自適應(yīng)工作表數(shù)據(jù)變化 481
? 用代碼創(chuàng)建新控件 483
疑難226 可以讓列表框具有拖放功能嗎 484
? 控件拖放相關(guān)的事件 485
? 本例僅支持一次拖放一行數(shù)據(jù) 486
疑難227 如何開發(fā)四則運算自動出題機(jī) 486
? 通過Rnd函數(shù)產(chǎn)生指定范圍的隨機(jī)數(shù) 488
9.4 開發(fā)動畫窗體 489
疑難228 如何讓窗體中的文本框循環(huán)滾動 489
? 控制動畫速度的兩種方式 491
疑難229 窗體中可以播放GIF和Flash動畫嗎 491
? Excel播放GIF的原理 493
疑難230 如何讓窗體產(chǎn)生百葉窗動畫 493
疑難231 如何設(shè)計精美邊框且?guī)痈械拇绑w 495
? 網(wǎng)頁設(shè)計與VBA 496
疑難232 如何設(shè)計動態(tài)的啟動畫面 497
? 網(wǎng)頁動畫的基本語法 499
疑難233 如何讓窗體中產(chǎn)生跟隨鼠標(biāo)指針的文字動畫 500
? VBA設(shè)計動畫的限制 501
9.5 練習(xí)與思考 501
第10章 插件開發(fā) 502
10.1 定制菜單與工具欄、功能區(qū) 502
疑難234 如何定制新菜單、工具欄與功能區(qū) 502
? 加載宏的特性與安裝方法 506
疑難235 可以任意組合內(nèi)置命令嗎 507
? CommandBars對象的ID參數(shù)的作用 508
疑難236 如何改造內(nèi)置命令的功能 509
? 修改OnAction屬性替換內(nèi)置功能 510
疑難237 可以提取所有內(nèi)置圖標(biāo)及其編號嗎 511
? ActionControl屬性的作用 513
疑難238 可利用菜單控制分頁符、零值和批注的顯隱嗎 513
? Excel不同版本的自啟動路徑 515
疑難239 如何僅僅利用菜單創(chuàng)建工作表目錄 516
? 讓一個過程執(zhí)行多個菜單執(zhí)行多個功能的方法 518
疑難240 如何讓菜單具有感應(yīng)功能 518
? State屬性的特點與應(yīng)用 520
疑難241 如何讓菜單和功能區(qū)中顯示自己的照片 521
? 控制功能區(qū)中圖片庫分布方式的4個參數(shù) 524
疑難242 如何設(shè)計可單選與復(fù)選的新工具欄菜單 525
? 具有單選與復(fù)選特效的圖標(biāo)組合 528
10.2 開發(fā)通用插件 528
疑難243 如何開發(fā)定位工具箱擴(kuò)展Excel定位的功能 528
? Excel定位的限制 533
疑難244 如何開發(fā)通用的多區(qū)域復(fù)制插件 534
疑難245 如何開發(fā)單元格批量合并插件 535
? 操作大面積區(qū)域時利用警告框提示用戶 538
疑難246 可以利用插件輸入常用VBA代碼嗎 538
? 計算當(dāng)前代碼行的行號 542
疑難247 如何利用插件刪除當(dāng)前工作簿所有代碼 543
? ActiveWorkbook與Thisworkbook的分別 544
疑難248 如何利用TreeView控件打造工作簿瀏覽器 545
? ImageList控件的特點與作用 547
10.3 封裝DLL插件 548
疑難249 如何封裝數(shù)值與文本互換的DLL插件 548
? 使用VB 6.0封裝Dll的4個重點 554
疑難250 如何設(shè)計字符串分離與表達(dá)式計算插件 555
? 利用VB開發(fā)功能區(qū)的優(yōu)勢 563
10.4 練習(xí)與思考 563
第11章 工資管理系統(tǒng) 564

章節(jié)摘錄

插圖：

媒體關(guān)注與評論

在瀏覽過琳瑯滿目、各種類型各種專題的Excel圖書之后，在領(lǐng)略過百科全書式的詳細(xì)解析或是武功秘籍般的招式演繹之后，依然有這樣一套“疑難干尋千解叢書”能夠讓人眼前一亮。刮目相看的原因在于，這套書真正把立場和視角建立在讀者基礎(chǔ)之上——每一個問題都來源于Excel用戶所可能真實面對的疑惑和困擾，每一個解答可能正是許多坐在計算機(jī)前束手無策的朋友正在搜尋的目標(biāo)?！　　④浫蜃钣袃r值專家MVP 方驥

編輯推薦

《Excel 2010 VBA編程與實踐》：ExcelTip.net出品微軟全球最有價值專家力作壁立千尋敢攀登，尋根究底解疑難！

名人推薦

“Excel疑難千尋千解”叢書依托于功能更趨完善的Excel2010版本，用詳盡的文字和圖片介紹了Excel2010各方面的知識和應(yīng)用，非常適合初學(xué)者和有一定基礎(chǔ)的讀者進(jìn)階學(xué)習(xí)。書中示例貼近實際，有利于讀者將所學(xué)知識與自己的工作結(jié)合起來，進(jìn)而提高數(shù)據(jù)分析能力和工作效率?！狤xcelpx.com 站長 趙志東（網(wǎng)名：蘭色幻想）      不論是在社區(qū)中幫助網(wǎng)友解決問題，還是將Excel 方方面面的知識點歸納整理成書，ExcelTip.Net 一直都做得很好，很有自己的特色！——Officefans.net 站長 謝汝祥（網(wǎng)名：andyxie）      Excel 的博大精深已令活躍于網(wǎng)絡(luò)社區(qū)中的眾多高手深有體會，一直以來人們都在探尋關(guān)于Excel 的最佳學(xué)習(xí)方法和途徑，希望通過其獲取最新而且實用的Excel 應(yīng)用技術(shù)，相信本書的讀者能得到一份這方面的滿意答卷?！④浫蜃钣袃r值專家MVP 陳 軍（網(wǎng)名：chenjun）深入淺出的講解，引人入勝的描述，經(jīng)典的場景和貼心的知識拓展，多思路并舉的操作方法，不知不覺中便使人沉浸于Excel無窮的技巧中，讓人欽佩作者的獨具匠心和非凡智慧。無論是Excel 新手，或是Excel 高手，相信本書都可給人以耳目一新的感覺。——微軟全球最有價值專家MVP 周建平（網(wǎng)名：守柔）     “Excel 疑難千尋千解”叢書視角獨特，貼近用戶，由點及面，舉一反三，非常適合初學(xué)者深入學(xué)習(xí)，是不可多得的Excel 學(xué)習(xí)寶典。——微軟全球最有價值專家MVP 楊彬（網(wǎng)名：BIN_YANG168）     雖然我對Excel 2010 已經(jīng)不陌生了，但打開本書，仍有一種全新的感覺。本書一改Office幫助的那種“菜單式說教”，而是將日常運用過程中經(jīng)常會遇到的疑難問題一一列出并詳加說明解決方案，有的甚至還列出多項解決方案，這無疑給使用者帶來巨大的方便。本書不僅可以作為Excel 2010 愛好者學(xué)習(xí)的自學(xué)教材，還可以作為經(jīng)常使用Excel 2010 辦公人士的“解疑字典”，在遭遇“奇怪現(xiàn)象”時可以直接找到解決問題的捷徑。——微軟全球最有價值專家MVP 方潔影（網(wǎng)名：小妖）     本套叢書立意新穎，內(nèi)容充實，按照“提出問題→解決問題→擴(kuò)展問題”的模式，圖文并茂地對大量實際工作中的常見Excel 問題進(jìn)行了細(xì)致的描述和深入淺出的講解。授人以“魚”，同時授人以“漁”，適合從基礎(chǔ)到高級的Excel 用戶和程序員閱讀，使您的工作事半功倍，得心應(yīng)手！——微軟全球最有價值專家MVP 楊志寧（網(wǎng)名：northwolves）

圖書封面

圖書標(biāo)簽Tags

無

評論、評分、閱讀與下載

---

    Excel 2010 VBA編程與實踐 PDF格式下載

---