【分享成果，随喜正能量】对待上等人直指人心，可打可骂，以真面目待他；对待中等人最多隐喻他，要讲分寸，他受不起打骂；对待下等人要面带微笑，双手合十，他很脆弱，心眼小，装不下太多的指责和训斥，他只配用世俗的礼节。。

《VBA经典应用69例》（10178981），是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容是教程的应用12内容：VBA中InputBox交互对话框中空白输入值的处理

应用12 在VBA中使用InputBox交互对话框

我们在写程序的时候，本着客户需求至上的原则，必须要满足用户的需求。但是程序在执行人机对话的时候，很难保证任何情况下都是正常的操作，这就要我们在写代码的时候，充分考虑到各种实际情况。这个应用专题就是讲解在利用InputBox交互对话框时要面临的各种实际意外情况。

2 空白输入值的处理

如果我们需要用户输入一个值，而不是用户单击“确定”时，进入程序的是一个空值，则此处代码将是非常有用的。这种情况下，最简单、最有效的方法是使用vbNullString。当用户输入字段是空值的情况的，单击“OK”，此时空值等于vbNullString，我们就可以利用代码进行回避了。我们看下面的代码：

Sub mynzB()

Dim UserInput As Variant

UserInput = InputBox("请录入您所在的城市名称?", "城市名称录入…", "秦皇岛")

If UserInput = vbNullString Then

MsgBox ("录入有误，请再次录入!")

Call 模块1.mynzB

Else

Cells(1, 1) = UserInput

End If

End Sub

代码截图：

代码的解读：上述代码中利用了 vbNullString来检测用户是否录入了空值，

下面看一下代码的运行结果：

此时我们点击确定：

就如上面的截图所示,当录入的是空值时，会提示我们录入错误。

（待续）

本讲内容参考程序文件：应用012.xlsm

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

【分享成果，随喜正能量】理解得越多，就越痛苦。知道得越多，就越撕裂。但是，他有着与痛苦相对称的清澈，与绝望相均衡的坚韧。。