excel简单vba应用培训分享_第1页
excel简单vba应用培训分享_第2页
excel简单vba应用培训分享_第3页
excel简单vba应用培训分享_第4页
excel简单vba应用培训分享_第5页
已阅读5页,还剩28页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、Excel VBA 5品牌部:何晓欧2017年3月5日CONTENTS如何录制宏打开VBA编辑器的方 法使用现成的VBA代 码2 设置宏名称-设置宏快捷键-保存在个人宏工作簿/当前工作簿/新工作簿文件开矩林入页面布月公式亩握 碘Excei雷殉Visual Basic 去底耐引用la Excel COM加启攵项ftR 余番人G计电丘Is源当前工作薄一一宏只对当前工作簿有效;个 人宏工作簿一一宏对所有工作簿都有效靳工 作薄一一录制的宏保存在一个新建工作簿 中,对该工作簿有效。B2卜888214E6 .78910 11121314_15If1718D E F G3 进行录制过程中的单元格操作填充+加

2、粗+下划线鼻X鹑切 上能复制J8 A 页面布局申阅B24 xog-ABCl譬目IE.等贴板 r:X J A888188823*888888 夕 pSv驻至孚m卑 ois& |ensjAsis储略¥»即星是卫 磔叫NOE,攀军随沓!睾徭沓尹哥争单右军北蛰P5查看宏:点击宏即可看到刚才录制的宏丽开妇槁人页&隅公式数桩 甫圈蜩Excel®养器 Power /法i炫割刚 引用&D Excel COM 加超顶XM6 执行:对11223344单元格进行宏的执行,点击执行或快捷键 ct1+”即可。11223344单 元格执行全部录制的操作ft开蛤磁 in

3、is血 公式ExcrlEAB P<式Q1奁刮嵋ID尿行对飙控件9E!11223344Pt R5OWALXLSB»ia?tA3fflT214 11223344K(M) :PERSONALXLSB 下划罅谢亍(W<U5 (£) I包建QSA(OU11打开V方法1:在工作簿名称上右击一点击查看代码8SE112233443aA(l)w.占MWI&查看代码也 IKSPZ*A(£).«工住吞铤毁色(I)方法2 :直接点击VBA编辑器进人公式KE ib阅横更E1辗丽弓1用ViT直”,Visual BasicK 4 KNExcelC0M Mrt0T

4、KA tSr+ttSt 一3代码B/A 11223344A-C88811223344方法3 :使用快捷键Alt+FU(H)±N说丑马'MWKSW -1-Hlw,A&:e d = polAj OREj ISO!、!* mjpoMWSL2; ZJAAMC£-_一口遮嘱4巳于£了 S1 4 产 muj z . uonoeps Jip qis p«3 =。严 0 U1 0 P /JDL| 0yp叫JP«OP【SCSQ9 响= spTjMtovit*仁 3: zj”t 砂叩 (ijgnw =eut (ndufpy*sp J 103尹 1?

5、1 呵 Mp j iunxino O eq9TJj x 讥卜! puojaEoo沪巴 en4£ wotAApApjApjATjj wpj J讣1吃01呻讥qoua 2*i康 EW 申 t 洒 M T TI当氓曲I刃占兰漳paqLAJOy nASp<nsp = gum txoti3»xAs *qxtxHP2 W讲禺菠4山阳M军切(»e) I物)1 询 8S1K1VNOSH3 (j 打4mI > J Pv 匕* ranmA叫3 crsOSSSSESES® 善事圣T”lyyoQ出匚hEi的护I日*曲珂彳日:申呻"2pu re-(1号凡5

6、) H”HS鞘帚宦 u4 IPCDJ31K K7 Q* IX 1VK (K«3J) 2“。5” 彳於 q 7rjEEPAOMVfL4 STtft» CM) QBUJtfT (眄素 ©W©¥»IDYW (AiEStfc 1T«W Q>4必BWSASS冒雪幽eq八挂号i使用现成的VBA代码合并工作表中多个工作簿I BlA 衍 Sknfi 4M£ Sk£ VMH2LMI=® A891 ° I11)2, 1314351617191920 2L15 1 订18 id2021222324L1

7、O 11 12 13 14 15 16 17 18 19 20212223ShMtl ShMt2 ShMt3423456178 |91101- 1314 IE11718192022232a4444sbeH! Sheets Sheets Sheet4Sh«<2Sheet4ShM<2 ShZ3$hAt41 网上百度出来的代码如下:Sub合并当前工作簿下的所有工作表0Application.Screenllpdating = FalseFor j = 1 To Sheets.CountIf Sheets(j),Name <> ActiveSheet.Name The

8、nX = Range("A65536").End(xlUp).Row + 1Sheets(j).Used Range.Copy CellsfX, 1)End IfNextRange("BI").SelectApplication.Screenllpdating = TrueMsgBox 当前工作下的全部工作表已经合并完毕! vblnformationj 提示”End SubWv>5L、口«i» m a壬叫*X0胪3- wo4_-ni判耳(护3 5中密®(巫莎 'csCSs ),f,第'4 '1Q

9、 I,七H查coins负卜帝2I* £忘冷到WODB IV)鱼百裁 "(TW/lHIys (IP2W 16 珂Wfi;斗工',升出近7砂£ - iuoQW!|ddv利 呼叨克SCje (DYH“汛号60Q日勺QPAMV8A - ft! E * IF>as l(Aia (ft rA3B< g>i»x东田-Y里*M复制-黏贴代码-点击运行子过程/用户窗体(快捷键F5 ),即可。芹 Microsoft A>udl Basic for Applotions .;交 4(S «UMEKS(Y) 6A(D恪MUI2)|回-H

10、XS VBAProject(Q运行子i妞/丽M7FH)Ctd+Bsk膳护I按知亦It/ai扁L忆VC白 VBKfrojwcl4 并中多个1 .VI 21ti二云:龟 j (tLwBtl) Sheet :*52 Bfl C5h*et2> 叩£(Shvat3)©SUwO:43* (Sheetfl)TSHMfcbgk合并:TW中参个TMLxls丹疫式1 ExwIL吕濒注HnExcd COM回泾性松咖碎b ;EMc4.excel页面显示合并完毕!结果如下演示2 :拆分工作表中全部工作簿11 ;录创左Visual BasX 七佗柳用伽耳用 4IL代码如下:Private Sub分拆工作表()Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论