[發問] 如何在不同工作表做選擇?

請問
我可以用下列的方式，到不同工作表做我要的動作。
Sub 巨集1()
Sheets("B").Select
Range("A1").Select
Sheets("A").Select
Range("A1").Select
End Sub

但我如果不知道工作表名稱，我又想在不同工作表做我要的動作
我該如何修改上述指令
謝謝

樓主熱帖

kim223824

中學生 Rank: 2

帖子: 75
主題: 8
精華: 0
積分: 109
點名: 0
作業系統: windows XP
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2015-4-19
最後登錄: 2024-8-10

2^#

發表於 2017-11-17 15:17 | 只看該作者

還可以用算的，工作頁由左至右是 1,2,3.................................
如果你的B頁面是第一頁可以改為Sheets(1).Select
如果你的A頁面是第二頁可以改為Sheets(2).Select
如果你要找最後一頁可以改為Sheets(sheets.count).Select

Sub 巨集1()
Sheets(1).Select
Range("A1").Select
Sheets(2).Select
Range("A1").Select
End Sub

TOP

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2024-11-1

論壇贊助勳章

3^#

發表於 2017-11-28 16:56 | 只看該作者

還可以用算的，工作頁由左至右是 1,2,3.................................
如果你的B頁面是第一頁可以改為 ...
kim223824 發表於 2017-11-17 15:17

感謝K大的回覆，讓我釋疑

另外可以請問迴圈的問題
Dim i As Integer
For i = 1 To n
執行內容
Next i

上述迴圈是做n次
請教我該如何修改
謝謝!!

TOP

kim223824

中學生 Rank: 2

帖子: 75
主題: 8
精華: 0
積分: 109
點名: 0
作業系統: windows XP
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2015-4-19
最後登錄: 2024-8-10

4^#

發表於 2017-11-29 14:50 | 只看該作者

感謝K大的回覆，讓我釋疑

另外可以請問迴圈的問題
Dim i As Integer
For i = 1 To n
執行 ...
pupai 發表於 2017-11-28 16:56

你的 n 是要執行什麼內容?
1.例如: 如果是所有分頁要都要跑一遍，n就是代表頁數，n就可以改為sheets.count。
Dim i As Integer
  For i = 1 To sheets.count
      執行 ...
Next

2.第二方式是原來程式不改，在迴圈之前加入 n = sheets.count
Dim i As Integer
  n=sheets.count
For i = 1 To n
      執行 ...
Next

TOP

pupai

中學生 Rank: 2

帖子: 184
主題: 45
精華: 0
積分: 407
點名: 0
作業系統: WIN 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-19
最後登錄: 2024-11-1

論壇贊助勳章

5^#

發表於 2017-11-29 16:25 | 只看該作者

你的 n 是要執行什麼內容?
1.例如: 如果是所有分頁要都要跑一遍，n就是代表頁數，n就可以改為sheets.c ...
kim223824 發表於 2017-11-29 14:50

K大受益良多，謝謝!!

TOP