如何在VBA语言中表达"如果值不为空"？

Question

如何在VBA语言中表达"如果值不为空"的条件？这是这样的吗？

"if value is not empty then..."
Edit/Delete Message

Answer 1

使用Not IsEmpty().

例如:

Sub DoStuffIfNotEmpty()
    If Not IsEmpty(ActiveCell.Value) Then
        MsgBox "I'm not empty!"
    End If
End Sub

Answer 2

这取决于你想要测试的内容:

• 对于一个字符串,你可以使用If strName = vbNullString或IF strName = ""或Len(strName) = 0(最后一个被认为更快)
• 对于一个对象,你可以使用 If myObject is Nothing
• 对于记录集字段,您可以使用 If isnull(rs!myField)
• 对于Excel单元格,您可以使用If range("B3") = ""或IsEmpty(myRange)

等等...... 此处提供了扩展讨论(适用于Access,但大多数也适用于Excel).

Answer 3

试试这个:

If Len(vValue & vbNullString) > 0 Then
  ' we have a non-Null and non-empty String value
  doSomething()
Else
  ' We have a Null or empty string value
  doSomethingElse()
End If

Answer 4

为什么不使用内置的Format()函数？

Dim vTest As Variant
vTest = Empty ' or vTest = null or vTest = ""

If Format(vTest) = vbNullString Then
    doSomethingWhenEmpty() 
Else
   doSomethingElse() 
End If

Format()将捕获空变量以及null变量并将其转换为字符串.我将它用于null/empty验证之类的东西,并检查是否在组合框中选择了一个项目.