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 InputBox函数
1）语法 InputBox(prompt, [ title ], [ default ], [ xpos ], [ ypos ], [ helpfile, context ])
参数：
① prompt 必需项。字符串表达式在对话框中显示为消息。 prompt 的最大长度约为 1024 个字符，具体取决于所使用的字符的宽度。如果prompt包含多行, 则可以使用回车符 (chr(13))、换行符 (chr(10)) 或回车换行符组合 ((chr (13) & ((chr (13)) 来分隔行。 ((chr(13) (每个行的 Chr (10))。
② title 可选。对话框标题栏中显示的字符串表达式。 如果省略 title，则标题栏中将显示应用程序名称。
③ default可选。文本框中显示的字符串表达式，在未提供其他输入时作为默认响应。如果省略了 default，文本框将显示为空。
④ xpos可选。指定对话框的左边缘与屏幕的左边缘的水平距离（以缇为单位）的数值表达式。 如果省略了 xpos，对话框将水平居中。
⑤ ypos可选。指定对话框的上边缘与屏幕的顶部的垂直距离（以缇为单位）的数值表达式。 如果省略了 ypos，对话框将位于屏幕垂直方向往下大约三分之一的位置。
⑥ helpfile可选。用于标识帮助文件的字符串表达式，前者用于为对话框提供上下文相关的帮助。如果提供 helpfile，则也必须提供 context。
⑦ contex 可选。帮助上下文数值的数值表达式，该数值由帮助作者为相应的帮助主题分配。 如果提供 context，则也必须提供 helpfile。
2 利用InputBox函数输入信息
我们看看如何利用这个函数输入些信息。下面先看代码：
Sub mynzD()
myValue = InputBox("请输入些任意的符号或数字!")
Range("A1").Value = myValue
End Sub
代码截图：
代码讲解：
1）myValue = InputBox("请输入些任意的符号或数字!") 我们利用一个变量myValue来存储我们将要录入的信息。
InputBox("请输入些任意的符号或数字!") 这个函数将弹出一个对话框，这个对话框将提示用户"请输入些任意的符号或数字!"。
2）Range("A1").Value = myValue 将刚录入的信息放到工作表的"A1"单元格中。
我们看下面的代码运行结果：
点击确定：
3 InputBox函数参数选择示例
如我们在语法中的讲解，InputBox函数有很多可选参数。下面的代码行显示了一个输入框，其标题显示在标题栏中，并具有默认值。如果没有提供其他输入，将使用默认值。
我们修正一下代码：
Sub mynzE()
myValue = InputBox("请输入些任意的符号或数字!", "提示", 1)
Range("A1").Value = myValue
End Sub
代码截图：
我们看代码的运行：
今日内容回向：
1） InputBox函数的语法了解吗？
2） InputBox函数在应用时是否有返回值？
3) 如何将录入的信息回填到工作表中？
本讲内容参考程序文件：工作簿02.xlsm
我20多年的VBA成果全在下面的资料中：
