如何在 MS Office 中添加 VBA?

如何在 MS Office 中添加 VBA?

我见过一些帖子显示使用 VBA 的答案(Visual Basic 应用程序) 代码/宏,但是,我还注意到了之后关于如何使用 VBA(如何实现和执行它)的其他评论。我希望这将有助于执行代码。

所以,我的问题是:

我有一些 VBA 代码。如何将 VBA 添加到我的 MS Excel 或 Word 或 Outlook 项目中?

答案1

要在任何 Microsoft Office 产品1中打开 VBA 编辑器,请按Alt+ F11

接下来,您需要确定如何实现 VBA。您是否希望它由软件中的某些事件触发,例如保存文件或更改电子表格上的选择?还是希望能够随时自行执行代码?

如果是前者,请查看项目资源管理器并找到与您当前正在处理的文件相关的项目。

如果您希望代码由与特定工作表关联的事件触发(例如,每次 Sheet1 上的值发生变化时,代码都会运行),则应双击 Project Explorer 中列出的特定工作表对象。这将打开一个文本框,您可以在其中粘贴代码。如果事件与整个工作簿而不是特定工作表相关联(例如,代码应该在保存工作簿时运行),请双击ThisWorkbookProject Explorer 中的对象。

但是,如果您不希望代码由事件触发,则需要将代码放在模块中。如果文档或工作簿中还有其他代码(例如来自录制的宏),它将出现在模块中。如果存在现有模块,在大多数情况下,您需要将代码粘贴到任何现有代码下的同一模块中。现有模块将在项目资源管理器中列出。

如果不存在模块,则需要插入一个新模块。为此,请ModuleInsertVBA 编辑器窗口中的下拉菜单中选择。这将插入一个新模块并在编辑器窗口内显示一个文本窗口。将您的代码粘贴到那里。

如果要执行模块中的代码,您有几种选择。一种是从 VBA 编辑器窗口运行代码。您可以简单地将光标放在要运行的代码中的某个位置,然后按 ,F5或单击“播放”图标 — 指向右侧的绿色三角形菜单栏下方工具栏中的 (运行) 按钮,以执行代码。

另一个选项是使用Macros对话框。要打开它,请执行以下操作之一:

  • View功能区选项卡的窗格Macros(最右侧)中,单击Macros按钮
  • 在选项卡的窗格(最左侧)Developer中,单击按钮CodeMacros
  • Alt+F8

对话框如下所示:

在此处输入图片描述

在上面的例子中,你可以YourCode运行

  • 从列表中选择它,然后单击Run,或
  • 从列表中选择它并双击它。

______
1根据我可以在 Excel 2010 Starter Edition 中使用 VBA 吗?,您不能在 Excel 2010 Starter Edition 中使用 VBA。

答案2

这些步骤是使用 Office 2010 完成的(除非另有说明),但对于 2007 和 2013 也应该足够相似。我用 Excel 执行此操作,但差异应该很小。

第一步是将“开发人员”选项卡添加到功能区。

在 Office 2007 中,

  1. 点击“Office菜单” -> “(程序)选项”。(“Office 菜单”是指办公室按钮左上角的按钮。)这将打开一个菜单,其中底部有“Excel 选项”、“Word 选项”等按钮。

  2. 在选项对话框中,选中“在功能区中显示“开发工具”选项卡”: 办公室菜单 然后单击“确定”。

  3. 您的新“开发人员”选项卡应该会显示出来。

在 Office 2010 和 2013 中,

  1. 点击文件->选项

  2. 选择自定义功能区

  3. 在右侧找到开发人员并勾选该复选框。点击好的

  4. 您的新标签应该会显示出来,单击它,然后单击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。单击它并单击好的

现在,如果您按下新按钮,则会显示消息。右键单击按钮以获取移动按钮、更改文本、调整大小等选项。

相关内容