如何在Excel VBA中將整數設置爲空？

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有問題。它說「無效使用null」。

Answer 1

查找返回範圍：

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

Answer 2

只使用一個變種及的isEmpty：

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

定義爲整型變量不能在VBA爲Null。你將不得不尋找另一種方式去做你想做的事。例如使用不同的數據類型或使用幻數來表示空（例如-1）。

在你的示例代碼中，ar將被分配一個Long值（Range.Row是一個Long），否則它會拋出一個錯誤。