12
返回列表 上一主題 發帖

[發問] 若儲存格內容為0就整列不顯示

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
11# 跳轉到 »
發表於 2010-9-7 09:42 | 只看該作者
固定陣列是以dim宣告
那是在事先知道大小的情況。
但是我們是在執行到rng = .Range(.[c10], .[m83].End(3))
時才知道須要的大小(雖然不是準確)
這時就要重新定義他的大小，所以用redim!

TOP

oak0723-1

帖子
222 
主題
56 
精華
0 
積分
285 
點名
0  
作業系統
window 
軟體版本
office2003 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2010-8-30 
最後登錄
2024-4-22 

論壇贊助勳章論壇榮譽勳章
12#
發表於 2010-9-7 10:46 | 只看該作者
回復 11# oobird


陣列1>
a = Sheets("1").[c10].CurrentRegion
    r = 1
    For i = 1 To UBound(a)
        ReDim Preserve arr(1 To 3, 1 To r)
        arr(1, r) = a(i, 1): arr(2, r) = a(i, 2): arr(3, r) = a(i, 3)
        r = r + 6
    Next
陣列2>
With Sheets("1")
rng = .Range(.[c10], .[m83].End(3))
End With
ReDim arr(1 To UBound(rng), 1 To 10)
For i = 1 To UBound(rng)
If rng(i, 11) - rng(i, 10) <> 0 Then
k = k + 1
For j = 1 To 6
arr(k, j) = rng(i, j)
Next
小弟比較了這2個陣列
發現在陣列2的rng變數的定義
rng = .Range(.[c10], .[m83].End(3))
等於設定了rng的起始與終止範圍
而在陣列1的r變數
是受制於變數a而終止
變數a的定義為
a = Sheets("1").[c10].CurrentRegion
這等於沒有設定變數a的終止範圍
所以大大你才將陣列1稱之為變動陣列
陣列2稱之為固定陣列
而非單純以dim或redim作判別基準區分固定或變動陣列?
小弟這樣理解正確嗎?

TOP

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
13#
發表於 2010-9-7 22:10 | 只看該作者
本帖最後由 luhpro 於 2010-9-7 22:32 編輯

回復 10# oak0723-1

其實在上面的程式中之所以可以用 ReDim 來重新配置 Arr 為一陣列是因為 Arr 初始宣告時是 Variant 型態,
所以它也可以表示為是一個(尚未定義大小的)陣列.

你可以開啟Excel VBA 的說明來看,
它對於 ReDim 的 解釋如下 :
ReDim 陳述式是用來 "決定" 或 "重新決定" 動態陣列的大小


回復 12# oak0723-1

我覺得不管是 .CurrentRegion 還是 .End(3) 兩者在程式執行到該行時都會是個確定的範圍,

之所以 ReDim Preserve arr(1 To 3, 1 To r) 會說它是個動態陣列,
是因為它在之前已經有被定義過陣列大小了, (因在迴圈中會重複執行該敘述數次)
之後還需要因 r 值而變動其大小故而是動態陣列.

至於

ReDim arr(1 To UBound(rng), 1 To 10)

則因該敘述之前只有 Dim arr 一個敘述, (也可視為 Variant 變數)
其實並沒有真的明確定義過 arr 這個陣列的大小,
直到該敘述才是真的將其定義為一個 "固定大小" 的陣列.

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
12
返回列表 上一主題