- 帖子
- 31
- 主題
- 12
- 精華
- 0
- 積分
- 69
- 點名
- 0
- 作業系統
- WIN XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-8-19
- 最後登錄
- 2016-1-2
|
各位大大好
我要陣列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
|
|
發表於 2012-8-17 23:52
| 
