在对话框中输入数据信息.xls

Sheet4 Sheet3 Sheet2 Sheet1 _Ref195540532 _Toc240076406 1-1? 简单的数据输入 Excel的使用过程中，有时需要用户输入简单的数据，此时可以使用InputBox函数显示一个对话框，供用户在对话框中输入数据信息，如下面的代码所示。 Sub myInputBox() Dim sInt As String Dim r As Integer r = Sheet1.Range(A65536).End(xlUp).Row sInt = InputBox(请输入人员姓名：) If Len(Trim(sInt)) 0 Then Sheet1.Cells(r + 1, 1) = sInt Else MsgBox 您没有输入内容! End If End Sub 代码解析： myInputBox过程使用InputBox函数显示一个对话框供用户在对话框中输入数据，InputBox函数显示一个对话框，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串，语法如下： InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context]) 参数prompt是必需的，作为对话框消息出现的字符串表达式。 参数title是可选的，作为显示在对话框标题栏中的字符串表达式，如果省略title参数，则在标题栏中显示“Microsoft Excel”。 参数default是可选的，显示在文本框中的字符串表达式，在没有其它输入时作为缺省值，如果省略default参数，则文本框为空。 参数xpos是可选的，指定对话框的左边与屏幕左边的水平距离。如果省略xpos参数，则对话框会在水平方向居中。 参数ypos是可选的，指定对话框的上边与屏幕上边的距离。如果省略ypos参数，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。 参数helpfile和参数context是可选的，为对话框提供上下文相关的帮助和编号，如果提供了其中一个参数，则必须提供另一个参数，两者缺一不可。 第5行代码，使用InputBox函数显示一个提示用户输入邮政编码的对话框，其中“请输入人员姓名：”是必需的prompt参数，其他参数使用缺省值。 第4行代码，使用Len函数和Trim函数判断返回的去除空格后的字符串长度。如果字符串长度大于零，说明用户单击了对话框的“确定”按钮，则将用户输入的数据写到工作表的A列单元格。如果返回的是长度为零的字符串，说明用户单击了对话框的“取消”按钮，则显示一条提示消息。 因为当用户单击对话框的“确定”按钮后，InputBox函数返回包含文本框内容的字符串，如果用户单击对话框的“取消”按钮则返回一个长度为零的字符串（），通过返回的字符串长度可以判断用户做出的选择。 运行sInput过程将显示一个提示用户输入数据的对话框，如图 75?1所示。 图 75?1 InputBox函数显示的对话框 王国