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

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

2、 0 底- J8A頁面布局 審閱 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 評鯉YS9H 剳-c S 近寡叫NODm 樂軍陽沓甌睪 徭沓尹哥爭単J右軍北蟄P 5查看宏：點擊宏即可看到剛才錄制的宏 幵婦 橋入 頁&隅 公式數(shù)樁甫圏 蜩 Excel養(yǎng)器 Power I 片件 法i炫 割剛引用 &D Excel COM加超頂 6執(zhí)行：對11223344單元格逬行宏的執(zhí)行，點擊執(zhí)行或快捷鍵 ctl+

3、即可。11223344單元格執(zhí) 行全部錄制的操作 11 開蛤 磁inis血公式 式Q1奩刮嵋 ID尿行對飆 揑件 A 11223344 現(xiàn)行（W K(M)： A 6 9 . 10 下劃罅 PERSONALXLSB： U5()| S(OU 9 E! ExcrlEB P 打開V 方法1:在工作簿名稱上右擊一點擊查看代碼 8SE 11223344 3aA(I)w. 點MWI &查看代碼也 IK spz*(). 工住吞鋌毀色(I) 方法2 :直接點擊VBA編輯器進人 幵治 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 =。嚴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 倉聞護丨 曰: 申呻2pu re- （1“汎5） HHS 鞘 帯宦“斗 IPCDJ31K K7 Q * IX 1VK（K3J） 2“。5” 從q 7 rj E E POMVflA ST （H）tft CM） QBUJtfT （眄棗 W IDYW （AiEStfc 1TW Q4必 N說議丑駅馬BWSSS /開雪幽eq八掛號i 使用現(xiàn)成的VBA代碼合并工作表中多個工作簿 日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合并當前工作簿下的所有工作表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 ”當前工作運下的全部工作表已經(jīng)合并完畢！ vblnformation, “提示” End Sub n i m a 壬叫*X0臚3- 1 W0 (護3沖密 (巫莎csCSs E p4s (a X -ni判耳 沁 l?噸。f

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

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