麻辣家族討論版版 » Excel程式區 » 請問如何將不連續的儲存格設定為陣列

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

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

樓主熱帖

收藏

不進則退

　暱稱: 閔

版主 Rank: 7 Rank: 7 Rank: 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去跑回圈...

若是我回答，使您滿意，請您讓我知道！
若是我的回覆，您仍有其他見解，也請您不嗇指教！

　頭銜: 街友一族

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

中學生 Rank: 2

帖子: 51
主題: 17
精華: 0
積分: 200
點名: 0
作業系統: winxp
軟體版本: officexp
閱讀權限: 20
性別: 男
註冊時間: 2010-7-31
最後登錄: 2018-9-19

4^#

發表於 2010-11-7 21:02 | 只看該作者

感謝兩位大大的指導，我再試試看

不進則退

超級版主 Rank: 8 Rank: 8

帖子: 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值，表示指定陣列某維最小可使用的陣列索引。

Sub Ex
Dim AR(5 To 10, 7 To 9) '二維陣列
MsgBox UBound(AR) '第一維
MsgBox LBound(AR)
MsgBox UBound(AR, 2) '第二維
MsgBox LBound(AR, 2)
End Sub

複製代碼

靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。

返回列表下一主題上一主題