如何将对话框添加到Excel使用Visual Basic编辑器 - 虚拟变量

您可以使用InputBox函数将对话框添加到您的Excel 2013宏。当您运行宏时，此Visual Basic函数会导致Excel显示一个输入对话框，您可以在其中输入对新工作表有意义的任何标题。宏然后把这个文本放到当前的单元格中，然后格式化这个文本，如果这就是你已经训练你的宏接下来要做的事。

要看看使用InputBox函数将交互性添加到其他固定的宏是多么容易，请按照以下步骤转换当前输入文本“Mind Over Media”的Company_Name宏，以实际提示您输入名称你想要输入。 InputBox函数使用以下语法：

<！在这个函数中，只有

的提示符

提示符 >参数是必需的，其余参数是可选的。提示符参数指定出现在“输入”对话框内的消息，提示用户输入新值（或者在这种情况下为新的公司名称）。

提示符参数最多可以有1,024个字符。如果您希望提示消息出现在对话框中的不同行上，请在文本中分别输入函数Chr（13）和Chr（10）（分别在消息中插入回车符和换行符）。

可选的标题参数指定要在“输入”对话框的标题栏中显示的文本。如果不指定标题参数，则Excel会在标题栏上显示应用程序的名称。可选的默认参数指定自动出现在“输入”对话框底部的文本框中的默认响应。

如果您不指定默认参数，则“输入”对话框中的文本框为空。

<！

xpos 和 ypos 可选参数指定从屏幕左边缘到对话框左边缘的水平距离和垂直距离从屏幕的上边缘到对话框的上边缘。如果不指定这些参数，则Excel会将输入对话框水平放置，并将其大致垂直放置在屏幕的三分之一处。

帮助文件和上下文可选参数指定您可以向用户提供的自定义帮助文件的名称，以解释“输入”对话框的工作方式以及类型它接受的数据。作为在Excel帮助系统中创建自定义帮助文件的过程的一部分，您可以为该主题指定一个适合其内容的上下文编号，然后将其指定为

上下文参数InputBox函数。当您为此功能指定帮助文件和

上下文参数时，Excel会在“自定义输入”对话框中添加一个“帮助”按钮，用户可以单击该按钮访问帮助窗口中的自定义帮助文件。在使用InputBox函数将代码行添加到宏之前，您需要在Visual Basic命令的行中找到该位置。要将Mind Over Media文本输入到活动单元格中，Company_Name宏使用以下Visual Basic命令：

ActiveCell。 FormulaR1C1 =“Media Over Media”

为了给宏添加交互性，你需要在这个ActiveCell上方的代码窗口的一行中插入InputBox函数。 FormulaR1C1语句，如下所示：

将插入点放置在ActiveCell开头的代码窗口中。 FormulaR1C1语句，然后按Enter键插入新行。

现在您已经添加了一个新行，您需要将插入点向上移动。

按上箭头键将插入点定位在新行的开始位置。
在这一行上，您要创建一个变量，将

提示参数提供给InputBox函数。要做到这一点，你需要声明变量的名字（在这个例子中是InputMsg），后面是当前的条目。请确保将消息文本放在等号右侧的一对双引号中。输入以下代码，在第8行创建InputMsg变量，然后按Enter键开始新行9：
InputMsg =“在下面的文本框中输入该工作表的公司名称或标题，然后单击确定：“
```
接下来，创建一个名为InputTitle的变量，为InputBox函数提供可选的
```
标题参数。此变量使文本“电子表格标题”显示为“输入”对话框的标题。再次确保将对话框标题栏的名称括在引号中。键入以下代码，在第9行创建InputTitle变量，然后按Enter键插入新行10：
InputTitle =“Spreadsheet Title”
```
接下来，创建一个变量名称DefaultText， InputBox函数的
```
默认参数。此变量使文本“Mind Over Media”出现在自定义公司名称输入对话框底部文本框上的默认条目。输入以下代码，在第10行创建DefaultText变量，然后按Enter键插入新行11：

DefaultText =“Mind Over Media”

接下来，创建一个名为CompanyName的最终变量， InputBox函数作为它的入口（使用刚创建的InputMsg，InputTitle和DefaultText变量）并存储这个函数的结果。

键入以下代码以创建使用第11行上的InputBox函数的SpreadsheetTitle变量：

SpreadsheetTitle = InputBox（InputMsg，InputTitle，DefaultText）
```
最后，替换值“Mind Over Media”在ActiveCell中。FormulaR1C1属性与SpreadsheetTitle变量（其值由输入到“电子表格标题输入”对话框中的任何值决定），从而有效地将宏中的常量替换为使该输入真正交互的手段。
```
在第12行选择“Mind Over Media”，然后将其替换为SpreadsheetTitle（不带引号）。通过单击Visual Basic工具栏上的保存按钮保存编辑的宏，然后通过单击查看Microsoft Excel按钮或按Alt + F11返回到工作表。然后，单击VIEW选项卡窗口组中的隐藏按钮。
现在，您可以打开一个新的工作簿并按Ctrl + N运行编辑的宏。
在添加使其交互的语句之后，该图显示编辑的Company_Name宏的代码窗口。

下图显示了工作表中的电子表格标题对话框。此输入对话框现在会自动出现，并且每当您运行已编辑且现在完全交互的版本的Company_Name宏时，都会提示您输入。