VBA常用技巧代碼解析.doc

VBA常用技巧代碼解析/thread-395683-1-1.html大家在學(xué)習(xí)VBA的過程中，相信都有收集代碼的習(xí)慣，我也是，硬盤中藏有許多VBA實(shí)例、代碼，在去年VBA精粹的寫作過程中更是在網(wǎng)絡(luò)上收集了大量的VBA資料。這些散布在各處的代碼、實(shí)例對(duì)學(xué)習(xí)的幫助很大，但是查找起來很不方便，有時(shí)明明知道有某個(gè)例子，就是找不到，因此萌生了將這部分VBA資料進(jìn)行整理的想法。 在寫作VBA精粹一書時(shí)發(fā)現(xiàn)使用Word的文檔結(jié)構(gòu)圖和目錄的功能在查找資料時(shí)很方便，便使用VBA精粹的Word模板對(duì)資料進(jìn)行了初步整理，計(jì)劃用半年時(shí)間完成全部內(nèi)容，目前已完成目錄和第一部分內(nèi)容，弊帚不敢自珍，將整理內(nèi)容同步發(fā)在論壇上，希望對(duì)大家的學(xué)習(xí)有所幫助，也請(qǐng)大家指出其不足、錯(cuò)誤之處。在完成全部內(nèi)容后我會(huì)將Word文檔上傳。2009-2-10 10:59 上傳下載附件(99.08 KB) 聲明 上傳的附件在XP+Excel2003環(huán)境中進(jìn)行過測試，其他版本未經(jīng)測試，不能保證代碼運(yùn)行正確。部分代碼出自論壇，有些已經(jīng)找不到鏈接了，在此一并感謝原作者，在下面的內(nèi)容中就不一一言明出處了。本帖最后由 yuanzhuping 于 2010-6-12 16:00 編輯第1部分Range（單元格）對(duì)象技巧1單元格的引用方法1-1 使用Range屬性-10樓1-2 使用Cells屬性-11樓1-3 使用快捷記號(hào)-11樓1-4 使用Offset屬性-12樓1-5 使用Resize屬性-13樓1-6 使用Union方法-14樓1-7 使用UsedRange屬性-15樓1-8 使用CurrentRegion屬性-16樓技巧2 選定單元格區(qū)域的方法2-1 使用Select方法-19樓2-2 使用Activate方法-20樓2-3 使用Goto方法-21樓技巧3獲得指定行、列中的最后一個(gè)非空單元格-22樓技巧4定位單元格-26樓技巧5查找單元格5-1 使用Find方法-33樓5-2 使用Like運(yùn)算符-34樓技巧6 替換單元格內(nèi)字符串-36樓技巧7復(fù)制單元格區(qū)域-37樓技巧8僅復(fù)制數(shù)值到另一區(qū)域8-1 使用選擇性粘貼-41樓8-2 直接賦值的方法-41樓技巧9 單元格自動(dòng)進(jìn)入編輯狀態(tài)-43樓技巧10禁用單元格拖放功能-44樓技巧11單元格格式操作11-1 單元格字體格式設(shè)置-48樓11-2 設(shè)置單元格內(nèi)部格式-49樓11-3 為單元格區(qū)域添加邊框-52樓11-4 靈活設(shè)置單元格的行高列寬-53樓技巧12單元格中的數(shù)據(jù)有效性12-1 在單元格中建立數(shù)據(jù)有效性-62樓12-2 判斷單元格是否存在數(shù)據(jù)有效性-62樓12-3 動(dòng)態(tài)的數(shù)據(jù)有效性-62樓12-4 自動(dòng)展開數(shù)據(jù)有效性下拉列表-62樓技巧13單元格中的公式13-1 在單元格中寫入公式-64樓13-2 檢查單元格是否含有公式-64樓13-3 判斷單元格公式是否存在錯(cuò)誤-64樓13-4 取得單元格中公式的引用單元格-64樓13-5 將單元格中的公式轉(zhuǎn)換為數(shù)值-64樓技巧14單元格中的批注14-1 判斷單元格是否存在批注-80樓14-2 為單元格添加批注-80樓14-3 刪除單元格中的批注-80樓技巧15合并單元格操作15-1 判斷單元格區(qū)域是否存在合并單元格-81樓15-2 合并單元格時(shí)連接每個(gè)單元格的文本-82樓15-3 合并內(nèi)容相同的連續(xù)單元格-83樓15-4 取消合并單元格時(shí)在每個(gè)單元格中保留內(nèi)容-84樓技巧16高亮顯示單元格區(qū)域-90樓技巧17 雙擊被保護(hù)單元格時(shí)不顯示提示消息框-91樓技巧18重新計(jì)算工作表指定區(qū)域-92樓技巧19單元格錄入數(shù)據(jù)后自動(dòng)保護(hù)-94樓技巧20工作表事件Target參數(shù)的使用方法20-1 使用Address 屬性-95樓20-2 使用Column屬性和Row屬性-95樓20-3 使用Intersect方法-95樓第1部分Range（單元格）對(duì)象的Word文檔和附件-97樓第2部分Worksheet（工作表）對(duì)象技巧21 引用工作表的方式21-1 使用工作表的名稱-103樓21-2 使用工作表的索引號(hào)-103樓21-3 使用工作表的代碼名稱-103樓21-4 使用ActiveSheet屬性引用活動(dòng)工作表-103樓技巧22選擇工作表的方法-110樓技巧23遍歷工作表的方法23-1 使用For.Next 語句-113樓23-2 使用For Each.Next 語句-125樓技巧24在工作表中上下翻頁-126樓技巧25工作表的添加與刪除-144樓技巧26禁止刪除指定工作表-146樓技巧27自動(dòng)建立工作表目錄-147樓技巧28工作表的深度隱藏-153樓技巧29防止更改工作表的名稱-154樓技巧30工作表中一次插入多行-156樓技巧31刪除工作表中的空行-157樓技巧32刪除工作表的重復(fù)行-161樓技巧33定位刪除特定內(nèi)容所在的行-162樓技巧34判斷是否選中整行-163樓技巧35限制工作表的滾動(dòng)區(qū)域-167樓技巧36復(fù)制自動(dòng)篩選后的數(shù)據(jù)區(qū)域-170樓技巧37使用高級(jí)篩選獲得不重復(fù)記錄-171樓技巧38工作表的保護(hù)與解除保護(hù)-174樓技巧39奇偶頁打印-198樓第2部分Worksheet（工作表）對(duì)象的Word文檔和附件-199樓第3部分Wordbook（工作簿）對(duì)象技巧40工作簿的引用方法40-1 使用工作簿的名稱-212樓40-2 使用工作簿的索引號(hào)-212樓40-3 使用ThisWorkbook-212樓40-4 使用ActiveWorkbook-212樓技巧41新建工作簿文件-223樓技巧42打開指定的工作簿-224樓技巧43判斷指定工作簿是否打開43-1 遍歷Workbooks集合方法-225樓43-2 錯(cuò)誤處理方法-225樓技巧44禁用宏則關(guān)閉工作簿-233樓技巧45關(guān)閉工作簿不顯示保存對(duì)話框45-1 使用Close方法關(guān)閉工作簿-234樓45-2 單擊工作簿關(guān)閉按鈕關(guān)閉工作簿-234樓技巧46禁用工作簿的關(guān)閉按鈕-235樓技巧47保存工作簿的方法47-1 使用Save方法-246樓47-2 直接保存為另一文件名-246樓47-3 保存工作簿副本-246樓技巧48保存指定工作表為工作簿文件-247樓技巧49打印預(yù)覽時(shí)不觸發(fā)事件-251樓技巧50設(shè)置工作簿文檔屬性信息-253樓技巧51不打開工作簿取得其他工作簿數(shù)據(jù)51-1 使用公式-264樓51-2 使用GetObject函數(shù)-264樓51-3 隱藏Application對(duì)象-264樓51-4 使用ExecuteExcel4Macro方法-264樓51-5 使用SQL連接-264樓技巧52返回窗口的可視區(qū)域地址-283樓第3部分Wordbook（工作簿）對(duì)象的Word文檔和附件-287樓第4部分Shape（圖形）、Chart（圖表）對(duì)象技巧53在工作表中添加圖形-291樓技巧54導(dǎo)出工作表中的圖片-296樓技巧55在工作表中添加藝術(shù)字-302樓技巧56遍歷工作表中的圖形-306樓技巧57移動(dòng)、旋轉(zhuǎn)圖片-311樓技巧58工作表中自動(dòng)插入圖片-313樓技巧59固定工作表中圖形的位置-317樓技巧60使用VBA自動(dòng)生成圖表-339樓技巧61使用獨(dú)立窗口顯示圖表-345樓技巧62導(dǎo)出工作表中的圖表-350樓技巧63多圖表制作-364樓第4部分 Shape（圖形）、Chart（圖表）對(duì)象附件及1-4部分文檔-367樓第5部分Application對(duì)象技巧64取得Microsoft Excel版本信息-368樓技巧65取得當(dāng)前用戶名稱-369樓技巧66Excel中的“定時(shí)器”-370樓技巧67設(shè)置活動(dòng)打印機(jī)的名稱-371樓技巧68屏蔽、改變組合鍵的功能-378樓技巧69設(shè)置Excel窗口標(biāo)題欄-386樓技巧70自定義Excel狀態(tài)欄-387樓技巧71靈活退出Excel-393樓技巧72隱藏Excel主窗口72-1 設(shè)置Application對(duì)象的Visible屬性-395樓72-2 將窗口移出屏幕-395樓72-3 設(shè)置工作簿作為加載宏運(yùn)行-395樓第5部分 Application對(duì)象附件及1-5部分文檔-396樓第6部分使用對(duì)話框技巧73使用Msgbox函數(shù)73-1 顯示簡單的提示信息-409樓73-2 定制個(gè)性化的消息框-409樓73-3 獲得消息框的返回值-409樓73-4 在消息框中排版-409樓73-5 對(duì)齊消息框中顯示的信息-409樓技巧74自動(dòng)關(guān)閉的消息框74-1 使用WshShell.Popup方法顯示消息框-411樓74-2 使用API函數(shù)顯示消息框-411樓技巧75使用InputBox函數(shù)75-1 簡單的數(shù)據(jù)輸入-413樓75-2 使用對(duì)話框輸入密碼-413樓技巧76使用InputBox方法76-1 輸入指定類型的數(shù)據(jù)-421樓76-2 獲得單元格區(qū)域地址-421樓技巧77使用對(duì)話框77-1 調(diào)用內(nèi)置的對(duì)話框-440樓77-2 獲取選定文件的文件名-440樓77-3 使用“另存為”對(duì)話框-440樓技巧78調(diào)用操作系統(tǒng)“關(guān)于”對(duì)話框-444樓第6部分 使用對(duì)話框附件及1-6部分Word文檔-449樓第7部分 菜單和工具欄技巧79在菜單中添加菜單項(xiàng)-467樓技巧80在菜單欄指定位置添加菜單-468樓技巧81屏蔽和刪除工作表菜單-476樓技巧82改變系統(tǒng)菜單的操作-477樓技巧83定制自己的系統(tǒng)菜單-478樓技巧84改變菜單按鈕圖標(biāo)-489樓技巧85右鍵快捷菜單增加菜單項(xiàng)-497樓技巧86自定義右鍵快捷菜單-504樓技巧87使用右鍵菜單制作數(shù)據(jù)有效性-505樓技巧88禁用工作表右鍵菜單-506樓技巧89創(chuàng)建自定義工具欄-518樓技巧90自定義工具欄按鈕圖標(biāo)-519樓技巧91自定義工作簿圖標(biāo)-520樓技巧92移除工作表的最小最大化和關(guān)閉按鈕-530樓技巧93在工具欄上添加下拉列表框-536樓技巧94屏蔽工作表的復(fù)制功能-537樓技巧95禁用工具欄的自定義-548樓技巧96屏蔽所有的命令欄-559樓技巧97恢復(fù)Excel的命令欄-560樓第7部分 菜單和工具欄附件及1-7部分Word文檔-562樓第8部分 控件與用戶窗體技巧98限制文本框的輸入-568樓技巧99文本框添加右鍵快捷菜單-573樓技巧100文本框回車自動(dòng)輸入-581樓技巧101自動(dòng)選擇文本框內(nèi)容-582樓技巧102設(shè)置文本框數(shù)據(jù)格式-583樓技巧103限制文本框的輸入長度-584樓技巧104將光標(biāo)返回文本框中-619樓技巧105文本框的自動(dòng)換行-620樓技巧106多個(gè)文本框數(shù)據(jù)相加-629樓技巧107控件跟隨活動(dòng)單元格-630樓技巧108高亮顯示按鈕-634樓技巧109組合框和列表框添加列表項(xiàng)的方法109-1 使用RowSource屬性添加列表項(xiàng)-638樓109-2 使用List屬性添加列表項(xiàng)-639樓109-3 使用AddItem方法添加列表項(xiàng)-640樓技巧110去除列表框數(shù)據(jù)源的重復(fù)值和空格-642樓技巧111移動(dòng)列表框條目-642樓技巧112允許多項(xiàng)選擇的列表框-643樓技巧113多列組合框和列表框的設(shè)置113-1 多列組合框和列表框添加列表項(xiàng)-646樓113-2 多列列表框?qū)懭牍ぷ鞅?647樓技巧114 輸入時(shí)逐步提示信息-679樓技巧115二級(jí)組合框-694樓技巧116使用DTP控件輸入日期-698樓技巧117使用RefEdit控件選擇區(qū)域-707樓技巧118如何注冊(cè)控件-723樓技巧119遍歷控件的方法119-1 使用名稱中的變量遍歷控件-730樓119-2 使用對(duì)象類型遍歷控件-731樓119-3 使用程序標(biāo)識(shí)符遍歷控件-732樓119-4 使用名稱中的變量遍歷圖形-733樓119-5 使用FormControlType屬性遍歷圖形-734樓技巧120使微調(diào)框最小變動(dòng)量小于1-736樓技巧121不打印工作表中的控件121-1 設(shè)置控件格式-737樓121-2 設(shè)置控件的printobjcet屬性-737樓技巧122在框架中使用滾動(dòng)條-750樓技巧123使用多頁控件-757樓技巧124標(biāo)簽文字垂直居中對(duì)齊-774樓技巧125使用TabStrip控件-791樓技巧126顯示GIF動(dòng)畫圖片-803樓技巧127播放Flash文件-804樓技巧128在工作表中添加窗體控件128-1 使用AddFormControl方法-844樓128-2 使用Add方法-844樓技巧129在工作表中添加ActiveX控件129-1 使用Add方法-854樓129-2 使用AddOLEObject方法-854樓技巧130使用spreadsheet控件-865樓技巧131使用Listview控件131-1 使用Listview控件顯示數(shù)據(jù)列表-876樓131-2 在Listview控件中使用復(fù)選框-887樓131-3 調(diào)整Listview控件的行距-892樓131-4 在Listview控件中排序-901樓131-5 Listview控件的圖標(biāo)設(shè)置-908樓技巧132調(diào)用非模式窗體-925樓技巧133進(jìn)度條的制作133-1 使用進(jìn)度條控件-926樓133-2 使用標(biāo)簽控件-927樓技巧134使用TreeView控件顯示層次-931樓技巧135用戶窗體添加圖標(biāo)-937樓技巧136用戶窗體添加最大最小化按紐-938樓技巧137禁用窗體標(biāo)題欄的關(guān)閉按鈕-939樓技巧138屏蔽窗體標(biāo)題欄的關(guān)閉按鈕-947樓技巧139無標(biāo)題欄和邊框的窗體-948樓技巧140制作年月選擇窗體-950樓技巧141自定義窗體中的鼠標(biāo)指針類型-951樓技巧142調(diào)整窗體的顯示位置-959樓技巧143由鼠標(biāo)確定窗體顯示位-960樓技巧144用戶窗體的打印-962樓技巧145使用自定義顏色設(shè)置窗體顏色-963樓技巧146在窗體中顯示圖表146-1 使用Export方法-974樓146-2 使用API函數(shù)-974樓技巧147窗體運(yùn)行時(shí)調(diào)整控件大小-977樓技巧148在用戶窗體上添加菜單-987樓技巧149在用戶窗體上添加工具欄-994樓技巧150 使用代碼添加窗體及控件-1009樓1_8部分的Word文檔和附件-1014樓技巧151用戶窗體的全屏顯示 151-1 設(shè)置用戶窗體為應(yīng)用程序的大小-1095樓 151-2 根據(jù)屏幕分辨率進(jìn)行設(shè)置-1095樓技巧152在用戶窗體上添加狀態(tài)欄-1112樓第9部分 函數(shù)的使用技巧153調(diào)用工作表函數(shù)求和-1117樓技巧154查找最大、最小值-1122樓技巧155不重復(fù)值的錄入-1131樓技巧156獲得當(dāng)月的最后一天-1135樓技巧157 四舍五入運(yùn)算157-1 極小值修正法-1144樓157-2 調(diào)用工作表函數(shù)法-1144樓技巧158使用字符串函數(shù)-1148樓技巧159使用日期函數(shù)-1153樓技巧160判斷是否為數(shù)值-1194樓技巧161格式化數(shù)值、日期和時(shí)間-1200樓技巧162計(jì)算個(gè)人所得稅-1205樓技巧163人民幣大寫函數(shù)-1215樓技巧164列號(hào)轉(zhuǎn)換為列標(biāo)-1217樓技巧165判斷工作表是否為空表-1238樓技巧166查找指定工作表-1240樓技巧167查找指定工作簿是否打開-1242樓技巧168取得應(yīng)用程序的安裝路徑-1253樓技巧169數(shù)組的使用169-1 代碼運(yùn)行時(shí)創(chuàng)建數(shù)組-1271樓169-2 文本轉(zhuǎn)換為數(shù)組-1271樓169-3 使用動(dòng)態(tài)數(shù)組去除重復(fù)值-1271樓1-9部分Word文檔及附件-1272樓第10部分 文件操作技巧170 導(dǎo)入文本文件170-1 使用查詢表導(dǎo)入-1290樓170-2 使用Open 語句導(dǎo)入-1290樓170-3 使用OpenText方法-1290樓技巧171將數(shù)據(jù)寫入文本文件171-1 使用Print # 語句-1292樓171-2 另存為文本文件-1292樓技巧172文件修改的日期和時(shí)間-1309樓技巧173查找文件或文件夾-1321樓技巧174獲得當(dāng)前文件夾的名稱-1326樓技巧175創(chuàng)建和刪除文件夾-1339樓技巧176重命名文件或文件夾-1340樓技巧177復(fù)制指定的文件-1353樓技巧178 刪除指定的文件-1357樓技巧179搜索特定的文件-1359樓技巧180使用WSH處理文件180-1 獲取文件信息-1373樓180-2 查找文件-1374樓180-3 移動(dòng)文件-1375樓180-4 復(fù)制文件-1376樓180-5 刪除文件-1377樓180-6 創(chuàng)建文件夾-1378樓180-7 復(fù)制文件夾-1379樓180-8 移動(dòng)文件夾-1383樓180-9 刪除文件夾-1384樓180-10 導(dǎo)入文本文件-1388樓180-11 創(chuàng)建文本文件-1396樓1-10部分Word文檔及附件-1399樓第11部分 其他應(yīng)用技巧181取得電腦名稱-1423樓技巧182取得邏輯盤序列號(hào)-1425樓技巧183使用API取得硬盤信息-1426樓技巧184使用數(shù)字簽名-1427樓技巧185暫停代碼的運(yùn)行-1437樓技巧186定時(shí)關(guān)機(jī)-1444樓技巧187打開指定的網(wǎng)頁-1445樓技巧188VBE的操作 188-1 添加模塊和過程-1463樓 188-2 建立事件過程-1464樓 188-3 模塊的導(dǎo)入與導(dǎo)出-1479樓 188-4 刪除宏代碼-1499樓技巧189保護(hù)VBA代碼 189-1 設(shè)置工程密碼-1510樓 189-2 設(shè)置“工程不可查看”-1510樓技巧190優(yōu)化代碼 190-1 關(guān)閉屏幕刷新-1515樓 190-2 使用工作表函數(shù)-1516樓 190-3 使用更快的單元格操作方法-1518樓 190-4 使用With語句引用對(duì)象-1522樓 190-5 少用激活或選擇語句-1523樓技巧191取得文件的基本名稱-1526樓技巧192防止用戶中斷代碼運(yùn)行-1542樓技巧193加班費(fèi)計(jì)算表-1582樓技巧194制作發(fā)放條-1595樓技巧195費(fèi)用統(tǒng)計(jì)表-1598樓技巧196職工花名冊(cè)-1588樓技巧197 收據(jù)系統(tǒng)-1642樓技巧198職工考勤系統(tǒng)-1967樓2009-9-7 更新文檔，請(qǐng)下載完全部壓縮文件后一起解壓縮。VBA常用技巧.part01.rar(1.91 MB, 下載次數(shù): 128801)VBA常用技巧.part02.rar(1.91 MB, 下載次數(shù): 118682)VBA常用技巧.part03.rar(1.91 MB, 下載次數(shù): 122238)VBA常用技巧.part04.rar(1.91 MB, 下載次數(shù): 119909)VBA常用技巧.part05.rar(1.91 MB, 下載次數(shù): 117428)VBA常用技巧.part06.rar(768.18 KB, 下載次數(shù): 94109)附件，請(qǐng)下載完全部壓縮文件后一起解壓縮。示例文件.part01.rar(1.91 MB, 下載次數(shù): 9379)示例文件.part02.rar(1.91 MB, 下載次數(shù): 57993)示例文件.part03.rar(1.91 MB, 下載次數(shù): 51028)示例文件.part04.rar(1.4 MB, 下載次數(shù): 48475)鑒于示例文件1經(jīng)常出錯(cuò)導(dǎo)致不能下載，請(qǐng)大家到此處下載：