返回列表 上一主題 發帖

[發問] 請問如何將不連續的儲存格設定為陣列

mnsmrtl

帖子
51 
主題
17 
精華
0 
積分
200 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2018-9-19 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2010-11-7 00:50 | 只看該作者

[發問] 請問如何將不連續的儲存格設定為陣列

小弟在希望同時對數個儲存格作同樣的動作，但這些儲存格分布在不同工作表中
假設有sheet2.cells(2,"A") sheet4.cells(3,"B)...等
有沒有辦法用一個陣列，搭配迴圈作存取動作？
譬如
x(1)=sheet2.cells(2,"A")
x(2)=sheet4.cells(3,"B")
for i=1 to 2
　ｘ(i)=......
next i
感謝
收藏 分享
不進則退

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2012-1-4 20:56 | 只看該作者
回復 5# yagami12th
'UBound 函數    傳回 Long值，表示指定陣列某維最大可使用的陣列索引。
LBound 函數    傳回 Long值，表示指定陣列某維最小可使用的陣列索引。
  1. Sub Ex
  2. Dim AR(5 To 10, 7 To 9)  '二維陣列
  3. MsgBox UBound(AR)        '第一維
  4. MsgBox LBound(AR)
  5. MsgBox UBound(AR, 2)     '第二維
  6. MsgBox LBound(AR, 2)
  7. End Sub
複製代碼

TOP

mnsmrtl

帖子
51 
主題
17 
精華
0 
積分
200 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2018-9-19 
4#
發表於 2010-11-7 21:02 | 只看該作者
感謝兩位大大的指導，我再試試看
不進則退

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
3#
發表於 2010-11-7 15:28 | 只看該作者
例如：
a = Array(Sheet1.[a1], Sheet1.[b10], Sheet2.[a1], Sheet2.[c10], Sheet3.[b2])
For i = 0 To UBound(a)
a(i).Value = i
Next

TOP

Min
　暱稱: 閔

版主Rank: 7Rank: 7Rank: 7

帖子
172 
主題
39 
精華
20 
積分
177 
點名
0  
作業系統
Microsoft Windows XP 
軟體版本
Microsoft Office 2003 
閱讀權限
100 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2023-3-19 

論壇貢獻勳章帥哥勳章
2#
發表於 2010-11-7 01:37 | 只看該作者
Dim arrCell(1) As Object
Set arrCell(0) = Worksheets("Sheet1").Cells(1, 1)
Set arrCell(1) = Worksheets("Sheet2").Cells(1, 1)

搭配UBound及LBound去跑回圈...
若是我回答，使您滿意，請您讓我知道！                  
若是我的回覆，您仍有其他見解，也請您不嗇指教！

TOP

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題