麻辣家族討論版版 » Excel程式區 » 請問陣列該如何簡化

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

[發問] 請問陣列該如何簡化

中學生 Rank: 2

帖子: 31
主題: 12
精華: 0
積分: 69
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-19
最後登錄: 2016-1-2

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2012-8-17 23:52 | 只看該作者

[發問] 請問陣列該如何簡化

各位大大好
我要陣列30個sheets 這樣打下去可能會很長...
請問以下該如何簡化

Sub TEST()
Dim x%
Dim bx(30) As String
For x = 1 To Sheets.Count
bx(x) = Sheets(x).Name
Next x
If Sheets.Count = 2 Then Sheets(Array(bx(1), bx(2))).Select
If Sheets.Count = 3 Then Sheets(Array(bx(1), bx(2), bx(3))).Select
If Sheets.Count = 4 Then Sheets(Array(bx(1), bx(2), bx(3), bx(4))).Select
If Sheets.Count = 5 Then Sheets(Array(bx(1), bx(2), bx(3), bx(4), bx(5))).Select
If Sheets.Count = 6 Then Sheets(Array(bx(1), bx(2), bx(3), bx(4), bx(5), bx(6))).Select
.
.
.
.
.
.
End Sub

複製代碼

樓主熱帖

收藏

小學生 Rank: 1

帖子: 23
主題: 0
精華: 0
積分: 31
點名: 0
作業系統: Win7
軟體版本: 20xx
閱讀權限: 10
性別: 男
註冊時間: 2012-8-11
最後登錄: 2012-8-28

2^#

發表於 2012-8-18 00:06 | 只看該作者

回復 1# alex520188

Sub nn()
Dim sh()
For i = 1 To Sheets.Count
ReDim Preserve sh(i - 1)
sh(i - 1) = Sheets(i).Name
Next
Sheets(sh).Select
End Sub

複製代碼

中學生 Rank: 2

帖子: 31
主題: 12
精華: 0
積分: 69
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-19
最後登錄: 2016-1-2

3^#

發表於 2012-8-18 00:55 | 只看該作者

回復 2# white945

謝謝 white945 老師的指導
真的簡化好多
這一行我不懂 ReDim Preserve sh(i - 1)
這句是什麼意思

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

4^#

發表於 2012-8-18 07:27 | 只看該作者

sheets就是工作表陣列物件
選中所有工作表只須：sheets.select 即可

1 評分人數

Hsieh: 頭腦清晰，沒被主題誤導金錢 + 2

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2012-8-18 07:56 | 只看該作者

回復 3# alex520188
ReDim 用來重新配置動態陣列變數的儲存空間。
Preserve 選擇性引數。當改變原有陣列最後一維的大小時，仍然保有原來的資料的關鍵字。

中學生 Rank: 2

帖子: 31
主題: 12
精華: 0
積分: 69
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 20
性別: 男
註冊時間: 2011-8-19
最後登錄: 2016-1-2

6^#

發表於 2012-8-18 12:17 | 只看該作者

回復 4# chin15

原來弄了一大串只需要 sheets.select
chin15 老師感謝你
我又上了一課。

靜思自在 : 甘願做、歡喜受。

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