如何在Excel VBA中将整数设为null？

Question

我试图检测是否设置了整数，如果没有设置，则跳过循环中的大多数代码（使用if语句）。 这就是我想要的。

Do While hws.Cells(r, 9).Value <> ""
    On Error Resume Next
    ar = Null
    ar = aws.Range("A:A").Find(hws.Cells(r, 2).Value).Row
    If Not IsNull(ar) Then
  'work with ar'
    End If
    r = r + 1
Loop

但是，当我运行它时， ar = Null有问题。 它说“无效使用空”。

Answer 1

在VBA中，定义为Integer的变量不能为Null。 您将必须找到另一种方式来做您想要的。 例如，使用其他数据类型或使用幻数表示空（例如-1）。

在示例代码中，将为ar分配一个Long值（Range.Row为Long），否则将引发错误。

Answer 2

只需使用一个变体和空：

Dim i

If IsEmpty(i) Then MsgBox "IsEmpty"
i = 10

If IsEmpty(i) Then
   MsgBox "IsEmpty"
Else
   MsgBox "not Empty"
End If
i = Empty
If IsEmpty(i) Then MsgBox "IsEmpty"
'a kind of Nullable behaviour you only can get with a variant
'do you have integer?
Dim j as Integer
j = 0
If j = 0 Then MsgBox "j is 0"

Answer 3

查找返回范围：

Dim rf As Range
With aws.Range("A:A")
    Set rf = .Find(hws.Cells(r, 2).Value)
    If Not rf Is Nothing Then
        Debug.Print "Found : " & rf.Address
    End If
End With

-http://msdn.microsoft.com/en-us/library/aa195730(office.11​​).aspx