返回列表 上一主題 發帖

[發問] Is Nothing與Empty的用法

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2024-4-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-9-26 16:12 | 只看該作者

[發問] Is Nothing與Empty的用法

要確認某一陣列是否存在時該用什麼方法判斷?
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

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-9-26 16:46 | 只看該作者
本帖最後由 stillfish00 於 2013-9-26 16:48 編輯

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

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2013-9-26 17:50 | 只看該作者
回復 1# acdx
這網站資訊蠻值得你參考：
w3schools.com

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2013-9-27 18:04 | 只看該作者
回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2024-4-29 
5#
發表於 2013-9-30 17:40 | 只看該作者
回復 4# GBKEE
另外
若是我想將HeadSone(m)全數清空
Set HeadSone(0)=Nothing
Set HeadSone(1)=Nothing
Set HeadSone(2)=Nothing
....
該如何寫比較好?

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
6#
發表於 2013-9-30 18:07 | 只看該作者
回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 太陽光大、父母恩大、君子量大，小人氣大。
返回列表 上一主題