我见过一些帖子显示使用 VBA 的答案(Visual Basic 应用程序) 代码/宏,但是,我还注意到了之后关于如何使用 VBA(如何实现和执行它)的其他评论。我希望这将有助于执行代码。
所以,我的问题是:
我有一些 VBA 代码。如何将 VBA 添加到我的 MS Excel 或 Word 或 Outlook 项目中?
答案1
要在任何 Microsoft Office 产品1中打开 VBA 编辑器,请按Alt+ F11。
接下来,您需要确定如何实现 VBA。您是否希望它由软件中的某些事件触发,例如保存文件或更改电子表格上的选择?还是希望能够随时自行执行代码?
如果是前者,请查看项目资源管理器并找到与您当前正在处理的文件相关的项目。
如果您希望代码由与特定工作表关联的事件触发(例如,每次 Sheet1 上的值发生变化时,代码都会运行),则应双击 Project Explorer 中列出的特定工作表对象。这将打开一个文本框,您可以在其中粘贴代码。如果事件与整个工作簿而不是特定工作表相关联(例如,代码应该在保存工作簿时运行),请双击ThisWorkbook
Project Explorer 中的对象。
但是,如果您不希望代码由事件触发,则需要将代码放在模块中。如果文档或工作簿中还有其他代码(例如来自录制的宏),它将出现在模块中。如果存在现有模块,在大多数情况下,您需要将代码粘贴到任何现有代码下的同一模块中。现有模块将在项目资源管理器中列出。
如果不存在模块,则需要插入一个新模块。为此,请Module
从Insert
VBA 编辑器窗口中的下拉菜单中选择。这将插入一个新模块并在编辑器窗口内显示一个文本窗口。将您的代码粘贴到那里。
如果要执行模块中的代码,您有几种选择。一种是从 VBA 编辑器窗口运行代码。您可以简单地将光标放在要运行的代码中的某个位置,然后按 ,F5或单击菜单栏下方工具栏中的 (运行) 按钮,以执行代码。
另一个选项是使用Macros
对话框。要打开它,请执行以下操作之一:
- 在
View
功能区选项卡的窗格Macros
(最右侧)中,单击Macros
按钮 - 在选项卡的窗格(最左侧)
Developer
中,单击按钮Code
Macros
- 按Alt+F8
对话框如下所示:
在上面的例子中,你可以YourCode
运行
- 从列表中选择它,然后单击
Run
,或 - 从列表中选择它并双击它。
______
1根据我可以在 Excel 2010 Starter Edition 中使用 VBA 吗?,您不能在 Excel 2010 Starter Edition 中使用 VBA。
答案2
这些步骤是使用 Office 2010 完成的(除非另有说明),但对于 2007 和 2013 也应该足够相似。我用 Excel 执行此操作,但差异应该很小。
第一步是将“开发人员”选项卡添加到功能区。
在 Office 2007 中,
点击“Office菜单” -> “(程序)选项”。(“Office 菜单”是指左上角的按钮。)这将打开一个菜单,其中底部有“Excel 选项”、“Word 选项”等按钮。
在选项对话框中,选中“在功能区中显示“开发工具”选项卡”: 然后单击“确定”。
- 您的新“开发人员”选项卡应该会显示出来。
在 Office 2010 和 2013 中,
点击文件->选项。
选择自定义功能区。
在右侧找到开发人员并勾选该复选框。点击好的。
您的新标签应该会显示出来,单击它,然后单击Visual Basic。
显示一个令人畏惧的屏幕,这是 VBA 代码编辑窗口。
边注:您还可以使用Alt+F11键盘快捷键打开 VBA 代码编辑窗口(即使未显示“开发人员”选项卡)。
在代码编辑窗口的左侧,您应该有一个名为 Project-VBAProject 的窗格。在此窗格中,在 Microsoft Excel 对象(此名称因您使用的程序(Word、Outlook 等)而异)下有一个名为 ThisWorkbook 的“东西”。双击 ThisWorkbook
在此示例中,我们将使用以下代码。
sub WarnMeOfDanger()
MsgBox "Argh, a dragon is behind you!"
end sub
以上操作只是打开一个对话框,在屏幕上显示一条消息。
复制代码,并将其粘贴到VBA代码编辑窗口的白表中。
现在,在 VBA 代码编辑器窗口的顶部,单击绿色播放按钮,您应该会看到一条消息。
因此,每次您想要运行代码时,请返回此屏幕并按播放!
但是,您可能更喜欢添加自己的按钮。如果您想添加按钮,那么首先请注意代码的第一行有WarnMeOfDanger()
。这实际上是我们的 '子程序'。我们会记住这一点以备后用。现在,只需关闭您一直在使用的窗口(代码会自动保存)。
仍在开发人员功能区中,单击插入,然后选择第一个项目,即按钮。鼠标光标变成一个小十字(不是生气,我是说它的外观)。绘制按钮的大小。出现一个新窗口,它应该向我们显示将按钮分配给功能的选项。在这种情况下,我们应该看到类似的东西ThisWorkbook.WarnMeOfDanger
。单击它并单击好的。
现在,如果您按下新按钮,则会显示消息。右键单击按钮以获取移动按钮、更改文本、调整大小等选项。