標題: [發問] EXCEL VBA的陣列在迴圈中怎麼設定它是變動的 [打印本頁]

---

作者: alexlkklin    時間: 2012-12-2 07:51     標題: EXCEL VBA的陣列在迴圈中怎麼設定它是變動的

各位大大,
小的昨天那個問題之後又出現一個新的問題,
由於是改現行的程式所以有許多的迴圈在運作,
麻煩各位大大了,
謝謝!!!

問題來了:陣列怎麼在迴圈中設定呢??

for i=1 to x
陣列=(??,??)<--這個要怎麼去設定它呢?
next

---

作者: kimbal    時間: 2012-12-2 09:10

回復 1# alexlkklin


    1維:
for i=1 to x
陣列(i)= 值
next

   2維:
for i=1 to x
for j = 1 to y
陣列(i,j)= 值
next
next

---

作者: alexlkklin    時間: 2012-12-2 09:46

回復 2# kimbal
大大,
和您請教一個問題,
您的這個陣列是變動的大小嗎?
小的可能沒有說清楚,
小的是想要一個隨著迴圈而變動陣列範圍大小,
再麻煩大大您了,
謝謝!!!

---

作者: alexlkklin    時間: 2012-12-2 09:48

回復 2# kimbal
大大再和您請教一個問題(昨天發問的)
如下................................................
小的目前在練習陣列的運用,
由於是把現行手上的程式拿來修改,
所以有些地方不清楚要怎麼修改,
請各位大大指導,
謝謝!!!

這個是我把一張表丟上自定的陣列中
TBOMcl = Sheets("表1").Range("a1").End(xlToRight).Column
TBOMro = Sheets("表1").Range("a65535").End(xlUp).Row     

在經過一系列的運算後,我要把陣列中的一欄取出做SUMIF的運算
Set rg7po = Range(Sheets("表1").[q2], Sheets("表1").[q65535].End(xlUp)) [這行是我原本定義做SUMIF索引值的]
小的的問題來了
Set rg7po = Range(Sheets("表1").[q2], Sheets("表1").[t65535].End(xlUp))
怎麼定義=後面的這個部份-紅色字的部份(這個在以前在小的檔案上是一個SHEET,目前己把這個SHEET讀進陣列中)

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)