excel簡單vba應(yīng)用培訓(xùn)分享

1、Excel VBA 分享品牌部：何曉歐2017年3月5日如何錄制宏打開VBA編輯器的方法使用現(xiàn)成的VBA代碼文件 開始 攝入頁面布局公式 數(shù)據(jù) 審閱 初圖開發(fā)工具EcelKS Power Pivot Q若訴住你強就什么遑I品Visual Basic 宏尚錄制宏N 孱使丹相對引用!宏安全性Excel COMk/周屈性53百百代鬲 插入et模式二回執(zhí)行對睡代碼tm 6映射尋住國導(dǎo)入W型擴展包艮導(dǎo)出混 一國翩微娓XML如何錄制宏例：錄制宏，對單元格888進(jìn)行填充，加粗,下劃線的操作 操作：L開發(fā)工具-錄制宏（添加開發(fā)工具：文件-選項-自定義功能區(qū)-勾選開發(fā)工具）錄制玄如 廉容模為Gel產(chǎn)品激活效）B

2、2 | K B A 8884 A B C D E F G H I J K L H2.設(shè)置宏名稱一設(shè)置宏快捷鍵一保存在個人宏工作簿/當(dāng)前工作簿/新工作簿文件 開始 修入頁面布與僮Visual Basic 總ExceiF筍毒庭ew的引用 加 Excel COM九項定比全性衣灰加衣項插入后土:色班碼JL執(zhí)行*注淞Is源當(dāng)前工作簿宏只對當(dāng)前工作簿有效； 個人宏工作簿宏對所有工作簿都有效新工作簿錄制的宏保存在一個面建工 作簿中，對該工作簿有效。A 888B2D E F G3 .進(jìn)行錄制過程中的單元格操作-填充+加粗+下劃線日一原:文件mA 皿布局 反底 審閱 視圉.操作完畢，點擊停止錄制,宏即錄制完成口

3、 b Y底）文件璘 3 頻布局維罐市閱醺eVisual Basic代碼Excel COM力曦項 我項力曦項/國屬性ISA Sit0代 F 團(tuán)執(zhí)行碇方磅項B2 - ； X A 888.查看宏：點擊宏即可看到剛才錄制的宏隹用用汨I用佇sss開卷TR加Excel COM htfftlS aX份十也毒豌碼陸入貞H布后Excel今屬 Power fi，執(zhí)行對話性；_rteXMctl +即可。11223344單元格執(zhí).執(zhí)行：對11223344單元格進(jìn)行宏的執(zhí)行，點擊執(zhí)行或快捷鍵行全部錄制的操作.打開VA編輯器的方法方法1:在工作簿名稱上右擊一點擊查看代碼8as112233443aA(I.里MW1銀a工g(

4、2)Shee,工作天標(biāo)笑麥色(1) 期法毋3方法2 :直接點擊VBA編輯器進(jìn)入開方丁日SAI *rr IKXfli由同用更Excel COM 加的 我項力礴項開的 KA WJSLJrz F 11源-執(zhí)Eol回文件F釣去F吧演朝引用 泰 a 筵B4 A 11223344A方法3 :使用快捷鍵Alt+Fll!打開vba編輯器，查看代碼存放位置,存放在模塊之下Viaosoft Visual Bjsk fcx Applubons * WmIs文件 第號且 胭他）MX B：（o）調(diào)颯 運行 IR（n序 fiCiW） xj（h）理 ta，u工五 VBAProject口 23萬xJ匚哥Ct (TEBSUNA

5、L XI ：a 13 VicroBoft Excel Sheet 1 (Sheet t)ThiiYorUbgk! 3 ?怦I互樵快 一k M “Ur”，(錄到去 T.3 eS Micros&ft Zxcel 對象與4 Shetl32口 astDxJ禺 PERSOHAUXLSB 眄 1 (響與不充加祜下用鈦。僥桂謔CUlrSheetl Rorkiheet拉手61|檸分奏年|I否）Shvatli 5pl4yF*c*Brcaki F ilse a0u,TqLw 11 f dL 2vaebleATJlcFilter False hddoCacuim- True hoe 4 tCondi，了meiati

6、blaOntliyiin ”iafebleScQttctioa 0 xltfoXestr)ctEar crallXr .SheetlVitsble3善-1 - xlShsetVixiYith Slctio Interior Palterti = xlSali d.f4t t en ol0r D.den = xlAutamc Color - 60535 TiatAjwiShd，- 0.Putt a iJ i jitAi 4 k4,3tt = 0End VthSlactian.Teat.Bcld - ImaSoleciian Feat U&xierlme = xlUadarlinaSiylaoin

7、9l*Col am5 a F*) ClmitRi ith - 12 5JUMUrg.fiwHeight - 15 25Rg(2：2”) ElgHeicM - 33Sala cti on. CutAppllCBitMI. CvUCcjllo 3 P41Eai Sob-|= 使用現(xiàn)成的VBA代碼.合并工作表中多個工作簿5M3 Sheet423、4 iMetl ,hw*t2、皿 犯 12 - a* a* = =y FfeM BJU 田 SA 筌三蕓三亙五三合1 .網(wǎng)上百度出來的代碼如下:Sub合并當(dāng)前工作簿下的所有工作表0Application.Screenllpdating = FalseFor

8、j = 1 To Sheets.CountIf Sheets(j).Name ActiveSheet.Name ThenX = Range(A65536).End(xlUp).Row + 1Sheets(j).UsedRange.Copy Cells(X, 1)End IfNextRangeCBl).SelectApplication.Screenllpdating = TrueMsgBox ”當(dāng)前工作遵下的全部工作表已經(jīng)合并完畢！， vblnformation提示.End Sub2才宙入T模塊3.復(fù)制一黏貼代碼T點擊運行子過程/用戶窗體（快捷鍵F5 ）,即可。曲 Microsoft Viud

9、l Bask for Applotions -含井工作表中冬個工CF.也XS - VBAProject。追 IXWt白鹿g并工n兼中多個工作坊/5 Microsoft m，:el 對象拿 1 Shlbwt 理 SkcotZ - in J SLwO 叫 Sheets（工心31 ）CSb.*et2）（SLwet3 CSheetq）世 ThisY0rklook 白根發(fā):段耽I窗計筷也兇；0*00CtrUBreaks?sn（H）運行 iacD 外安展序 運行子過程/用盧登c 7FIF%-ClXjft快1如中榜字句=|拉分胡I4.excel頁面顯示合并完畢！結(jié)果如下合并工作表中多個工作Mxk 麗國式1

10、ExcelHM潮江失加文傳 開的 箕人 口面防 公式囹口尸后Visual Base g羽使用相對引用IEms廈洛淳Power Pivot Q告訴我所年倒十么代招Excel COM LCtfc 的力的5tttW?目層性0喇底性厚0人修、外一1歸代 U筐獷展包巴導(dǎo)出團(tuán)執(zhí)行對話愜口空歡E皿XMLA；cL J 21 FG1ii/ /1ir1/1i1(1i1(222f222222gqq1gQg11芻S7LEF的全部工作表巳金臺K于11演示2 :拆分工作表中全部工作簿代碼如下：Private Sub分拆工作表()Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In MyBook.Sh