VBA之Excel应用第二章第三节:InputBox函数对话框

《VBA之Excel应用》（版权10178983）是非常经典的，是我推出的第七套教程，定位于初级，目前是第一版修订。这套教程从简单的录制宏开始讲解，一直到窗体的搭建，内容丰富，实例众多。大家可以非常容易的掌握相关的知识，这套教程共三册，十七章，都是我们在利用EXCEL工作过程中需要掌握的知识点，希望大家能掌握利用。今日讲解的内容是:VBA之Excel应用第二章第三节:InputBox函数对话框

【分享成果，随喜正能量】时间是刹那刹那的过，刹那刹那的催人老。勿待老来方学道，孤坟多是少年人。用功的人要善于调和身心，务使心平气和，无挂无碍，

无我无人，行住坐卧，妙合玄机。。

第二章 MsgBox与InputBox对话框的应用

大家好，我们今日开始第二章的学习，在第一章中我们初步认识了VBA代码，知道了VBA代码写在哪里，如何运行VBA代码，以及如何录制宏，如何保护我们的代码，这些都是最基本的知识，我们要好好掌握。这章的内容我们要讲解一个对话框的应用，就是MsgBox。这个对话框是非常重要的，可以说在VBA代码应用中随处可见。我们要理解这个对话框的应用，并应用到我们自己的代码中。

第三节 InputBox函数对话框

大家好，我们继续VBA的学习，在前两节我们讲解了MsgBox的相关知识，我们这讲讲解另外一个对话框InputBox函数。Excel VBA中的InputBox函数提示用户输入某些值。

1函数

1）语法 InputBox(prompt, [ title ], [ default ], [ xpos ], [ ypos ], [ helpfile, context ])

参数：

① prompt 必需项。字符串表达式在对话框中显示为消息。

② title 可选。对话框标题栏中显示的字符串表达式。如果省略

③ default可选。文本框中显示的字符串表达式，在未提供其他输入时作为默认响应。如果省略了 default，文本框将显示为空。

④ xpos可选。指定对话框的左边缘与屏幕的左边缘的水平距离（以缇为单位）的数值表达式。 如果省略了 xpos，对话框将水平居中。

⑤ ypos可选。指定对话框的上边缘与屏幕的顶部的垂直距离（以缇为单位）的数值表达式。 如果省略了 ypos，对话框将位于屏幕垂直方向往下大约三分之一的位置。

⑥ helpfile可选。用于标识帮助文件的字符串表达式，前者用于为对话框提供上下文相关的帮助。如果提供 helpfile，则也必须提供 context。

⑦ contex 可选。帮助上下文数值的数值表达式，该数值由帮助作者为相应的帮助主题分配。如果提供

2 利用InputBox函数输入信息

我们看看如何利用这个函数输入些信息。下面先看代码：

Sub mynzD()

请输入些任意的符号或数字!")

Range("A1").Value = myValue

End Sub

代码截图：

代码讲解：

1）myValue = InputBox("请输入些任意的符号或数字!") 我们利用一个变量myValue来存储我们将要录入的信息。

InputBox("请输入些任意的符号或数字!") 这个函数将弹出一个对话框，这个对话框将提示用户"请输入些任意的符号或数字!"。

2）Range("A1").Value = myValue 将刚录入的信息放到工作表的"A1"单元格中。

我们看下面的代码运行结果：

点击确定：

3函数参数选择示例

如我们在语法中的讲解，InputBox函数有很多可选参数。下面的代码行显示了一个输入框，其标题显示在标题栏中，并具有默认值。如果没有提供其他输入，将使用默认值。

我们修正一下代码：

Sub mynzE()

请输入些任意的符号或数字!", "提示", 1)

Range("A1").Value = myValue

End Sub

代码截图：

我们看代码的运行：

今日内容回向：

1）InputBox函数的语法了解吗？

2）InputBox函数在应用时是否有返回值？

3) 如何将录入的信息回填到工作表中？

本讲内容参考程序文件：工作簿02.xlsm

我20多年的VBA成果全在下面的资料中：

原创作者: u_16912668 转载于: https://blog.51cto.com/u_16912668/11674066