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

1、Excel VBA 分享 品牌部：何曉歐2017年3月5日 CONTENTS 如何錄制宏 打開VBA編輯器的方法 使用現(xiàn)成的VBA代碼 2設(shè)置宏名稱-設(shè)置宏快捷鍵-保存在個(gè)人宏工作簿/當(dāng)前工作簿/新工作簿 文件 開矩 Visual Basic 去 開發(fā)工貝 繙入g計(jì)電丘 林入頁(yè)面布冃 Excei雷殉 B2 21 底耐引用.,廠y la Excel COM 加啟項(xiàng) ftR Is 源 當(dāng)前工作薄一一宏只對(duì)當(dāng)前工作簿有效； 個(gè)人宏工作簿宏對(duì)所有工作簿都有效 嶄工作薄錄制的宏保存在一個(gè)新建工 作簿中,對(duì)該工作簿有效。 4 卜 888 DEFG 3 進(jìn)行錄制過程中的單元格操作填充+加粗+下劃線 曰4 X

2、 0 底- J8A頁(yè)面布局 審閱 A A B2 :X A888 A B C 1 譬目I E 1 1 2 888 1 3 4 , 力 i 888 Z I 3 H a 3 9 V F 888歹 Pi : I 巫 * 二備略 即墾是衛(wèi) 齢 莊至孚彎 卑 ois&g |ensjA sis 評(píng)鯉YS9H 剳-c S 近寡叫NODm 樂軍陽沓甌睪 徭沓尹哥爭(zhēng)単J右軍北蟄P 5查看宏：點(diǎn)擊宏即可看到剛才錄制的宏 幵婦 橋入 頁(yè)&隅 公式數(shù)樁甫圏 蜩 Excel養(yǎng)器 Power I 片件 法i炫 割剛引用 &D Excel COM加超頂 6執(zhí)行：對(duì)11223344單元格逬行宏的執(zhí)行，點(diǎn)擊執(zhí)行或快捷鍵 ctl+

3、即可。11223344單元格執(zhí) 行全部錄制的操作 11 開蛤 磁inis血公式 式Q1奩刮嵋 ID尿行對(duì)飆 揑件 A 11223344 現(xiàn)行（W K(M)： A 6 9 . 10 下劃罅 PERSONALXLSB： U5()| S(OU 9 E! ExcrlEB P 打開V 方法1:在工作簿名稱上右擊一點(diǎn)擊查看代碼 8SE 11223344 3aA(I)w. 點(diǎn)MWI &查看代碼也 IK spz*(). 工住吞鋌毀色(I) 方法2 :直接點(diǎn)擊VBA編輯器進(jìn)人 幵治 KA公式 KE ib閱 橫更 文憐 B4 F E1無麗引用 K 4l KN 代碼 Excel COM MrtOT KA tSr+t

4、tSt 一 m EC A 11223344 A C 方法3 :使用快捷鍵Alt+Fll WKSW - I- &: e HtwlA 93 l = 卩巴亍亍S4產(chǎn)Jip d = po|ORCLJ ISO !、!* mjpoMWS C -L2；ZJM gc - gvit*仁3：zJt 砂叩叫叩（ijgnw =eut（d U0C|3 muj zuonoeps qis p3 =。嚴(yán)0叩0卩小叫 0 - yp叫 JPOP【 SCSQ9 -冋 = spTjMto p 禺菠4山陽M軍切 ufpy *sp J 103】尹1?1呵 Mp j iunxino（）eq9TJj x譏卜！puojaE Pv 匕* ran

5、m 叫3 crsO SSSSESES 書軽TH yyoQ出匚h csl*筆偉自珂彳 El 倉(cāng)聞護(hù)丨 曰: 申呻2pu re- （1“汎5） HHS 鞘 帯宦“斗 IPCDJ31K K7 Q * IX 1VK（K3J） 2“。5” 從q 7 rj E E POMVflA ST （H）tft CM） QBUJtfT （眄?xiàng)?W IDYW （AiEStfc 1TW Q4必 N說議丑駅馬BWSSS /開雪幽eq八掛號(hào)i 使用現(xiàn)成的VBA代碼合并工作表中多個(gè)工作簿 日Y a | BlA衍Sknfi 4M SkVM H2LMI 田bA呂至圍合 *8 4 J10 2 3 4 5 7 a 4 4 10 貳A*

6、 4MB = A4 AB C D E 4 A 15 l 訂 18 id 20 21 22 23 24 8 .9 L10 11 12 13 14 15 16 17 18 19 20 21 22 23 ShMtl ShMt2 ShMt3 1- 13 14 IE 1： 17 18 19 20 22 23 2a si Sheets Sheet3 Sheet4 sbeH! Sheet4 Sh2 ShM2 ShZ3 $ht4 1 網(wǎng)上百度出來的代碼如下: Sub合并當(dāng)前工作簿下的所有工作表0 Application.Screenllpdating = False For j = 1 To Sheets.C

7、ount If Sheets(j).Name ActiveSheet.Name Then X = Range(A65536).End(xlUp).Row + 1 Sheets(j).UsedRange.Copy Cells(X, 1) End If Next Range(Bl).Select Application.Screenllpdating = True MsgBox ”當(dāng)前工作運(yùn)下的全部工作表已經(jīng)合并完畢！ vblnformation, “提示” End Sub n i m a 壬叫*X0臚3- 1 W0 (護(hù)3沖密 (巫莎csCSs E p4s (a X -ni判耳 沁 l?噸。f

8、mo iSEE査coins負(fù)卜 帝2 CcSCje (DYH PMV8A - ft! e * if as l(ia(ft r3Bix 丨* 忘冷列 WODB IV)魚百裁“ (TWl IHlys (IP2W 16 珂 W fi；斗工，升出近7砂 iuoQW!|ddV利 呼叨亞“汛號(hào)6OQ旳 Q 細(xì)-Y里* 乙 M復(fù)制-黏貼代碼-點(diǎn)擊運(yùn)行子過程/用戶窗體（快捷鍵F5 ）,即可。 薩 Microsoft Audl Basic for Applotions合并工世運(yùn)豐冬個(gè)工炸乂山 交 4(S UME KS(Y) 6A(D 恪式( 因回H XS VBAProject 憶VC 白 VBKfrojwcl

9、4并中多個(gè)l 一，.Vl 21 ：,： 1. ：ti 二云 (tLwBtl ) C5h*et2) (Shvat3) (Sheetfl) :龜j Sheet :*52關(guān)吃 SUwO :43* Sheets ThHYxkbgk XJ IF 膳護(hù)I按知亦I t/ai 扁 l 運(yùn)行（E） ISCD 外藥訴（Q 運(yùn)行子i妞/麗m 7F s?sn(H) 合并:TW中參個(gè)TMLxls 丹疫式1ExwIL呂瀕注Hn 文樣 砂 ttA IB.imjS 公式 EMcelftS Power Pivot Q告的我惚卻H十么 回涇性W爾JEtr國(guó)與入 松咖碎b科亍嚴(yán)盹佔(zhàn)出 圖紈行對(duì)話愜門確述 EJfXML 幵 Visual Basic G g g 1 1 1 二 Excd COM 雖11 口錄創(chuàng)左 LI它樓用伽引用 i i 2 2 2 2 3 3 3 3 2 2 2 2 3 3 3 3 1 g 刁 4.excel頁(yè)面顯示合并完畢！結(jié)果如下 演示2 :拆分工作表中全部工作簿 代碼如下： Private Sub分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets sht.Cop