[發問] Is Nothing與Empty的用法

acdx

要確認某一陣列是否存在時該用什麼方法判斷?
ReDim HeadSone(20)
t1 = 0
t2 = 0
j = 0
For fsi = 15 To 238
    If Cells(fsi, 5) = Cells(fsi + 1, 5) And Cells(fsi, 5) <> Cells(fsi - 1, 5) Then t1 = fsi
    If Cells(fsi, 5) = Cells(fsi - 1, 5) And Cells(fsi, 5) <> Cells(fsi + 1, 5) Then t2 = fsi
        If t1 <> 0 And t2 <> 0 Then
            Set HeadSone(j) = Range(Cells(t1, 5), Cells(t2, 5))
            HS_S(j) = t1
            HS_E(j) = t2
            j = j + 1
            t1 = 0
            t2 = 0
        End If
Next fsi
m = j - 1   '共有m-1組
If HeadSone(0) = Empty Then  '判斷HeadSone(0)是否存在
    m = 0
Else
    m = j - 1   '共有m-1組
End If
ReDim Preserve HeadSone(m)

當HeadSone(0)不存在時上述寫法OK,可是當HeadSone(0)不存在時上述寫法就會出現錯誤(型態不符合)
改成:
If HeadSone(0) = Is Nothing Then
    m = 0
Else
    m = j - 1   '共有m-1組
End If

當HeadSone(0)不存在時則會出現錯誤(此次需要物件),可是當HeadSone(0)不存在時該寫法就OK
請問Is Nothing與Empty的用法有何不同?該如何改?

stillfish00

回復 1# acdx
你可以改為 ReDim HeadSone(0 to 20) As Range
就可以直接用  If HeadSone(0) Is Nothing 判斷

c_c_lai

回復 1# acdx
這網站資訊蠻值得你參考：
w3schools.com

GBKEE

回復 1# acdx

1. Set HeadSone(0) = Nothing
   
2. If HeadSone(0) Is Nothing Then

複製代碼

1. ReDim Preserve HeadSone(m)
   
2. If TypeName(HeadSone(0)) = "Empty" Then

複製代碼

acdx

回復 4# GBKEE
另外
若是我想將HeadSone(m)全數清空
Set HeadSone(0)=Nothing
Set HeadSone(1)=Nothing
Set HeadSone(2)=Nothing
....
該如何寫比較好?

GBKEE

回復 5# acdx

1. Erase 陳述式來將固定大小的陣列重新初始化，或將動態陣列的記憶空間釋放出來。

複製代碼

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim HeadSone(1 To 5)            '靜態陣列:指定陣列元素,下限=1,上限=5
   
4.     HeadSone(1) = 0
   
5.     MsgBox TypeName(HeadSone(1))
   
6.     HeadSone(1) = "AA"
   
7.     MsgBox TypeName(HeadSone(1))
   
8.     Erase HeadSone                  '清空陣列的元素:靜態陣列:指定陣列元素,下限=1,上限=5
   
9.     MsgBox TypeName(HeadSone(1))
   
10. End Sub
    
11. Sub Ex1()
    
12.     Dim HeadSone()                  '動態陣列:尚未指定陣列元素下限,上限數
    
13.     ReDim HeadSone(1 To 5)          '重新指定陣列元素下限,上限數
    
14.     MsgBox TypeName(HeadSone(1))
    
15.     HeadSone(1) = 0
    
16.     'Erase HeadSone  '               '將動態陣列的記憶空間釋放出來,回到動態陣列:尚未指定陣列元素下限,上限數
    
17.    ' MsgBox TypeName(HeadSone(1))    '錯誤:陣列沒有元素  *****
    
18.     ReDim HeadSone(1 To 5)          '重新指定陣列元素下限,上限數 = 清空陣列的元素
    
19.     MsgBox TypeName(HeadSone(1))
    
20. End Sub

複製代碼