如何在Excel 2016中直接输入VBA代码 - 傻瓜

有时，输入Excel 2016代码的最佳途径是最直接的。直接输入VBA代码涉及到…直接输入代码。换句话说，您使用键盘输入代码。在VBA模块中输入和编辑文本的方式与您所期望的相同。您可以选择，复制，剪切，粘贴，并对文本做其他事情。

使用Tab键缩进一些行，使代码更容易阅读。缩进不是必须的，但是这是一个很好的习惯。

<！ --1 - >

只要你需要一行VBA代码就可以了。但是，您可能需要使用续行字符来分解冗长的代码行。要从一行到另一行继续一行代码（也称为 语句） ，请用空格加下划线（_）结束第一行。然后继续在下一行的声明。不要忘记空间。没有空格的下划线字符将无法完成这项工作。

<！ - 2 - >

下面是一个分成三行的单个语句的示例：

选择。 Sort 1：= Range（“A1”），_ Order1：= xlAscending，Header：= xlGuess，_ Orientation：= xlTopToBottom

如果输入一行（没有行） - 连续字符）。请注意，此语句的第二行和第三行是缩进的。缩进是可选的，但它有助于澄清这些行不是单独的语句的事实。

设计VBE的白色涂层工程师预计人们会犯错误。因此，VBE具有多级撤消和重做。如果您删除了您不应该拥有的语句，请单击工具栏上的“撤消”按钮（或按Ctrl + Z），直到语句再次出现。撤消之后，您可以使用“重做”按钮来执行您已经撤消的更改。你准备好输入一些实时代码了吗？请尝试以下步骤：

在Excel中创建一个新的工作簿。

1. 按Alt + F11激活VBE。

2. 在“项目”窗口中单击新工作簿的名称。

3. 选择插入→模块将VBA模块插入到项目中。

4. 在模块中键入以下代码：

5. Sub GuessName（）Msg =“是您的名字”&Application。用户名 & ”？ “Ans = MsgBox（Msg，vbYesNo）如果Ans = vbNo Then MsgBox”哦，没关系。 “如果Ans = vbYes Then MsgBox”我必须通灵！ “End Sub

   将光标定位在您键入的文本内的任意位置，然后按F5执行该过程。
   

6. F5是Run→Run Sub / UserForm命令的快捷方式。如果您输入的代码正确，Excel将执行该过程，并且可以响应简单的对话框。请记住，对话框中的文本将有所不同。 GuessName过程显示这个对话框。

   输入步骤5中列出的代码时，您可能会注意到VBE对输入的文本进行了一些调整。例如，键入Sub语句后，VBE会自动插入End Sub语句。如果您在等号之前或之后省略空格，VBE将为您插入空间。另外，VBE改变了一些文本的颜色和大小写。这完全正常。这只是VBE保持整洁和可读性的一种方式。

   

   如果你遵循前面的步骤，你只是写了一个VBA Sub过程，也被称为

宏。

当您按F5时，Excel执行代码并按照说明进行操作。换句话说，Excel评估每个陈述，并做你告诉它做的事情。 （不要让这个新发现的力量落到你的头上）。你可以多次执行这个宏 - 虽然在几十次之后会失去它的吸引力。 对于记录，这个简单的宏使用以下概念： 定义一个子过程（第一行）

赋值给变量（Msg和Ans）

• 连接

• （使用&运算符）

• 使用内置的VBA函数（MsgBox） 使用内置的VBA常量（vbYesNo，vbNo和vbYes）

• 使用If-Then构造（两次） 结束子过程（最后一行）

• 对于初学者来说不错，呃？