嘿，完全理解你不想写一堆If Txtbx1.Value = "" Or Txtbx2.Value = "" ...这种重复代码的心情——确实不够简洁，维护起来也麻烦。针对你的需求，这里有几个更优雅的方案：

1. 自定义可复用函数（最推荐） #

你可以写一个通用的自定义函数，专门用来检查任意数量的控件是否存在空值（包括空白空格和Null），以后不管要检查多少个控件都能直接用：

Function IsAnyBlank(ParamArray controls() As Variant) As Boolean
    Dim ctrl As Variant
    For Each ctrl In controls
        ' 用Nz把Null转为空字符串，再Trim去掉首尾空格，判断是否为空
        If Trim(Nz(ctrl.Value, "")) = "" Then
            IsAnyBlank = True
            Exit Function ' 找到空值就直接返回，不用继续检查
        End If
    Next ctrl
    IsAnyBlank = False
End Function

用法示例： #

' 检查你指定的三个文本框
If IsAnyBlank(Txtbx1, Txtbx2, Txtbx3) Then
    MsgBox "请填写所有必填字段！"
End If

这个函数的好处是高度复用，以后要检查更多控件，只需要在参数里添加即可，比如IsAnyBlank(Txtbx1, Txtbx2, Txtbx3, Txtbx4)，代码可读性也强很多。

2. 利用数组+Filter函数（简洁一行式） #

如果你不想写自定义函数，也可以用数组结合VBA的Filter函数快速判断：

' 将三个文本框的值存入数组
Dim fieldValues As Variant
fieldValues = Array(Txtbx1.Value, Txtbx2.Value, Txtbx3.Value)

' Filter函数会返回所有空字符串的元素，若结果数组长度>0则说明存在空值
If UBound(Filter(fieldValues, "", True)) > -1 Then
    MsgBox "存在未填写的字段！"
End If

补充说明： #

• 关于你提到的IsEmpty：它是用来判断变量是否未初始化的，对于文本框的Value属性并不适用，因为文本框默认会返回空字符串或者Null，不会是未初始化状态。
• 关于IsNull：它只能判断值是否为Null，但文本框为空时可能返回的是空字符串""而非Null，所以单独用IsNull会漏掉这种情况，需要结合Nz来统一处理Null和空字符串。

内容的提问来源于stack exchange，提问作者Nick Vittum