返回列表 上一主題 發帖

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

kim223824

帖子
75 
主題
8 
精華
0 
積分
109 
點名
0  
作業系統
windows XP 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2015-4-19 
最後登錄
2025-5-7 
1# 跳轉到 »
發表於 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

kim223824

帖子
75 
主題
8 
精華
0 
積分
109 
點名
0  
作業系統
windows XP 
軟體版本
office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2015-4-19 
最後登錄
2025-5-7 
2#
發表於 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

        靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。
返回列表 上一主題