InputBox函数与人机对话

VBA语言専攻 2022-04-01

【分享成果，随喜正能量】在春天里的祝愿更应该能够实现，愿你所到之处，遍地芬芳；愿你梦想的远方，春日暖阳。愿你所求所愿，一定实现。。

《VBA代码解决方案》这套教程是我最早推出的教程，目前已经是第二版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一下把自己喜欢的代码摆好。

这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过度教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第40讲：InputBox函数与人机对话

第四十讲使用InputBox函数完成简单的人机对话

大家好，我们今日继续讲解VBA代码，今日讲解的是第40讲，Excel的使用过程中，有时需要用户输入简单的数据，此时可以使用InputBox函数显示一个对话框，供用户在对话框中输入数据信息，InputBox函数显示一个对话框，等待用户输入正文或按下按钮，并返回包含文本框内容的字符串.

语法如下：InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

参数

a) prompt是必需的，作为对话框消息出现的字符串表达式。

b) title是可选的，作为显示在对话框标题栏中的字符串表达式，如果省略title参数，则在标题栏中显示“Microsoft Excel”。

c) default是可选的，显示在文本框中的字符串表达式，在没有其它输入时作为缺省值，如果省略default参数，则文本框为空。

d) xpos是可选的，指定对话框的左边与屏幕左边的水平距离。如果省略xpos参数，则对话框会在水平方向居中。

e) ypos是可选的，指定对话框的上边与屏幕上边的距离。如果省略ypos参数，则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。

f) helpfile和参数context是可选的，为对话框提供上下文相关的帮助和编号，如果提供了其中一个参数，则必须提供另一个参数，两者缺一不可。

如下面的代码所示。

Sub mynz_40 ()

Dim sInt As String

Dim r As Integer

r = Sheets("40").Range("A65536").End(xlUp).Row

sInt = InputBox("请输入添加人员的姓名：")

If Len(Trim(sInt)) > 0 Then

Sheets("40").Cells(r + 1, 1) = sInt

Else

MsgBox "您没有输入内容!"

End If

End Sub

代码窗口:

代码解析：mynz_40过程使用InputBox函数显示一个对话框供用户在对话框中输入数据，

1) 第5行代码，使用InputBox函数显示一个提示用户输入邮政编码的对话框，其中“请输入添加人员的姓名：”是必需的 prompt参数，其他参数使用缺省值。

2) 第4行代码，使用Len函数和Trim函数判断返回的去除空格后的字符串长度。如果字符串长度大于零，说明用户单击了对话框的“确定”按钮，则将用户输入的数据写到工作表的A列单元格。如果返回的是长度为零的字符串，说明用户单击了对话框的“取消”按钮，则显示一条提示消息。

l因为当用户单击对话框的“确定”按钮后，InputBox函数返回包含文本框内容的字符串，如果用户单击对话框的“取消”按钮则返回一个长度为零的字符串（""），通过返回的字符串长度可以判断用户做出的选择。

代码运行：

今日内容回向：

1 InputBox 函数的意义是什么？

2 Len(Trim(sInt)) 意义是什么？

本讲内容参考程序文件：VBA代码解决方案修订（1-48）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】安不忘危，盛必虑衰。何时何地，我们都应该把安全放到第一位，任何能影响安全的行为都敬而远之，善待自己，从关注自己的安全健康开始。。

文章转载自VBA语言専攻，如果涉嫌侵权，请发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。