excel简单vba应用培训分享

1、Excel VBA 分享 品牌部：何晓欧2017年3月5日 CONTENTS 如何录制宏 打开VBA编辑器的方法 使用现成的VBA代码 2设置宏名称-设置宏快捷键-保存在个人宏工作簿/当前工作簿/新工作簿 文件 开矩 Visual Basic 去 开发工貝 繙入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 巫 * 二備略 即垦是卫 齢 莊至孚彎 卑 ois&g |ensjA sis 評鯉YS9H 剳-c S 近寡叫NODm 樂军陽沓甌睾 徭沓尹哥爭単J右军北蛰P 5查看宏：点击宏即可看到刚才录制的宏 幵妇 橋入 页&隅 公式数桩甫圏 蜩 Excel养器 Power I 片件 法i炫 割刚引用 &D Excel COM加超顶 6执行：对11223344单元格逬行宏的执行，点击执行或快捷键 ctl+

3、即可。11223344单元格执 行全部录制的操作 11 开蛤 磁inis血公式 式Q1奁刮嵋 ID尿行对飙 揑件 A 11223344 現行（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产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 使用现成的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 网上百度出来的代码如下: 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 ”当前工作運下的全部工作表已经合并完毕！ 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复制-黏贴代码-点击运行子过程/用户窗体（快捷键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關吃 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 口录创左 LI它樓用伽引用 i i 2 2 2 2 3 3 3 3 2 2 2 2 3 3 3 3 1 g 刁 4.excel页面显示合并完毕！结果如下 演示2 :拆分工作表中全部工作簿 代码如下： Private Sub分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets sht.Cop