Excel使用Visual Basic Editor对宏进行修改

Excel中的宏是一个很强大的工具,当我们面向任务使用Excel时,针对某些需求,比如老板的、客户的或者其他的需求,要用Excel这个表格工具,完成制作图表,输入加工信息等工作。

而我们的操作,使用宏可以记录下来,下次我们只需按一下按键,这些操作就能全部自动执行一遍,使用好了宏,可以事半功倍。

这就是办公自动化的强大之处,也是计算机软件的优势所在,就好比我们在纸上写错一个字,会很麻烦,但在软件中操作错误了,只需ctrl+z回撤上一步操作即可。

工具、技术都是死的,它们并不强大,强大的是使用它们的人。所以,作为使用者,你要发现你的需求和使用场景,使用工具来配合你,找到最佳的解决问题的方法。

那么学会了如何录制宏,可以让我们的重复性工作变得简单、快捷。

但有时情况会发生变化,录制好的宏可能会受到影响,不能很好的完成任务。

这时,我们不需要重新录制或创建新的宏,而是可以利用之前的宏,对需要修改的地方进行一些修改即可。

为了编辑宏,我们需要接触代码这个级别的内容,需要使用到Visual Basic Editor(VBE)。

打开View->Macro->View Macros。

点击Edit进行编辑,就出现了Visual Basic Editor界面。

这是一个全新的Window,和Excel是分开的。你录制的宏,后台帮你写的代码就在这里。

代码存储的单位,这一个窗口打开的,叫做module。

然后这里,我们可以找到我们想修改的地方进行修改,比如将月份 “Jan,Feb, Mar” 改成 “Apr, May, Jun”。


Visual Basic Editor

VBE, 就是内建在Excel里面的VBA(Visual Basic for Applications)的开发环境。

ALT + F11, 能快速呼出VBE,而不用和上面一样,从编辑宏那里进去。

打开以后,左边是两个窗口,一个是Project Window,一个是properties window,可以关闭,也可以打开。

在View菜单里,可以找到这两个窗口的选项:

VBA Modules

当你打开VBE后,你需要一个地方来存储VBA代码。

一个通常的方法是将代码存储在modules中,也就是模块。

在VBE中,项目窗口里,可以看到你的Workbook的引用,下面还有sheet的引用,可以看到这个项目包含的全部内容。

要想在项目里添加一个module,来添加自己代码的话,点击菜单Insert -> Module。

你就可以看到项目窗口里出现一个Modules文件夹,里面有一个Module文件,可以在里面编写VBA代码。

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
谈到宏,很多人想到的是宏病毒,其实如果有正版杀毒软件,打开了实时防护,设置好宏安全性,可以利用宏来完成许多办公自动化功能。   打开word软件,从文件主菜单中“工具”->“宏”->“安全性”,设置安全性为中,这样就可以选择执行宏。安装office的时候,应该定制安装,在“office 工具”里选上“Visual Basic帮助”,这样就能获得非常完善的关于VBA编程环境、VBA语言参考、VBA对象等的帮助文档。从“工具”->“宏”->“Visual Basic 编辑器”可以打开VBA编程环境——“Microsoft Visual Basic”。在编程环境中打开“帮助”->“Microsoft Visual Basic帮助”,就可以看到帮助了。   很多人觉得学习Visual Basic没有用,事实上,Visual Basic系列的编程语言包括VB、VBA、VBScript等,可以写网页、办公自动化编程、应用编程。在一些其他公司的应用软件中也是可以用VBA的,例如Corel Draw。这里举几个例子来说明VBA的使用。   如果有数十个文档需要合并为一个文档,逐个打开、拷贝是件麻烦事,可以用宏来完成。 例一:合并文档。新建一个窗体,窗体上放一个按钮。工具箱可以从“视图”->“工具箱”打开。 '按钮事件 Private Sub CommandButton1_Click() Dim sPath As String 'sPath用来保存路径 Dim tem As String '中间变量 Set newDoc = Documents.Add '用Documents.Add增加一个新文档 With newDoc .SaveAs FileName:="D:/txtal.doc" '新文档保存的完整路径 End With ActiveDocument.close '关闭新建的文档 With Dialogs(wdDialogFileFind) '设置文本查找对话框 .SortBy = 2 '文件按名称排列 .SearchName = "*.txt" '只列出文本文件 .Update '更新 End With If Dialogs(wdDialogFileFind).Show = -1 Then '如果按下打开,就执行 sPath = Dialogs(wdDialogFileFind).SearchPath '将查找对话框打开的路径附值给SPath Dialogs(wdDialogFileFind).Execute Else Exit Sub '如果取消或者关闭,就退出 End If With Application.FileSearch '设置应用程序的查找 .NewSearch '新查找 .LookIn = sPath '将新查找的路径设置为文件对话框的路径(sPath) .SearchSubFolders = True '查找子目录 .FileType = msoFileTypeAllFiles '查找所有文件类型,这里可以设置其他类型,具体见FileSearch对象的FileType属性 .FileName = "*.txt" '查找后缀为txt的文件 .Execute '执行文件查找 Documents.Open ("D:/txtal.doc") '打开"D:/txtal.doc" Set Range2 = ActiveDocument.Content '设置Range2对象为活动文档的内容 For i = 1 To .FoundFiles.Count '把找到的文件打开,拷贝文件内容,加到新建的D:/txtal.doc文件中 Documents.Open (.FoundFiles(i)) '打开第i个找到的文件 ActiveDocument.Content.Select '全选活动文件的内容 Selection.Copy '拷贝选中的内容 ActiveDocument.Close '关闭活动文档 Range2.Collapse Direction:=wdColla

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

夜流冰

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值