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

論壇贊助勳章論壇榮譽勳章

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2010-9-6 19:09 | 只看該作者

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

本帖最後由 oak0723-1 於 2010-9-6 21:17 編輯

如附件
在工作表1之[c10:m83]輸入資料
想得到如工作表2-1之結果
也就是說當工作表2-1的j欄內容經計算為0時就不將該列顯示於工作表2-1
註
為方便說明
附件中工作表2不論j欄內容是否為0將全部顯示出來之情形
而附件中工作表2-1是將j欄內容為0不顯示之情形

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 1
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2025-7-5

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

oak0723-1

中學生 Rank: 2

帖子: 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

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 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

中學生 Rank: 2

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

論壇贊助勳章論壇榮譽勳章

10^#

發表於 2010-9-7 09:21 | 只看該作者

回復 9# oobird

完了~~~
我又看不懂了
我買的書上提到
固定陣列是以dim宣告
變動陣列是以Rerdim宣告
此處及http://forum.twbts.com/viewthread.php?tid=1282
這2個問題不是都用redim宣告嗎?

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

9^#

發表於 2010-9-7 07:56 | 只看該作者

這個不是動態陣列，變數可設在任何一維。
因為你不習慣transpose,所以放棄動態陣列，這樣你可能較容易吸收！

TOP

oak0723-1

中學生 Rank: 2

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

論壇贊助勳章論壇榮譽勳章

8^#

發表於 2010-9-7 00:30 | 只看該作者

回復 7# oobird

請問
之前提到
動態陣列有個規則，就是只能改變第二維的大小
http://forum.twbts.com/viewthread.php?tid=1282
這裡卻arr(1 To UBound(rng), 1 To 10)
變數設在第一維
也就是列位為變數
這~~~到底是位什麼?

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

7^#

發表於 2010-9-6 22:28 | 只看該作者

If rng(i, 11) - rng(i, 10) <> 0 Then
這一行視你要加或減

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

6^#

發表於 2010-9-6 22:26 | 只看該作者

Sub yy()
Dim rng, arr, i%, j%, k%
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
arr(k, 8) = rng(i, 8) - rng(i, 6)
arr(k, 9) = arr(k, 8) - arr(k, 6)
arr(k, 10) = rng(i, 11) + rng(i, 10)
End If
Next
Sheets("2").UsedRange = ""
Sheets("2").[a5].Resize(k, 10) = arr
End Sub

TOP

oak0723-1

中學生 Rank: 2

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

論壇贊助勳章論壇榮譽勳章

5^#

發表於 2010-9-6 22:20 | 只看該作者

本帖最後由 oak0723-1 於 2010-9-6 22:29 編輯

回復 6# oobird

喔
抱歉可能小弟寫沒清楚
意思就是說
若工作表1裡的M10+L10=0
在工作表2就不顯示該列(第10列)
已修正如附件~~~

990906-1.rar (29.81 KB)

TOP