返回列表 上一主題 發帖

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

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

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


但我如果不知道工作表名稱,我又想在不同工作表做我要的動作
我該如何修改上述指令
謝謝
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

還可以用算的,工作頁由左至右是 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

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



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

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


上述迴圈是做n次
請教我該如何修改
謝謝!!
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

感謝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

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



    K大  受益良多,謝謝!!
請詳閱 論壇版規愛惜帳號,一起創造美好的學習討論空間。

TOP

        靜思自在 : 原諒別人就是善待自己。
返回列表 上一主題