[說明]
當一個檔案內，每個月都會新增一個工作表來記錄某區間的事務，而每個工作表背後的程式碼都是一樣，但執行程式碼時會在同一檔案的其他輔助工作表間運作，這樣程式執行到最後，要如何跳回目前記錄的工作表呢?
其實不難，只要兩行程碼就可以辦到，請參考下面說明
 
[程式碼]
Sub JS()
 
 THISBOOK = ActiveSheet.Name 'THISBOOK只是一個代碼，可自由命名。
  .
  .    '輸入你想執行的程式碼
  .  
Sheets(THISBOOK).Activate '.Activate的功能相當於選擇某工作表
 
End Sub
 
[特別說明]
  • 這兩行程式建議寫在程式的最前面與最後面
  • THISBOOK = ActiveSheet.Name，在執行程式碼前，先將目前的工作表名稱記錄在某個代碼內。
  • Sheets(THISBOOK).Activate，在執行完該有的程式碼時，最後執行此行，選取一開始被記錄下來得工作表代碼

 

謝謝您閱讀了我的文章，若您喜歡我的文章，希望您幫我按個「讚」，也幫忙分享給需要的朋友或其他平台，謝謝。

 

 

20180128 黑.png


arrow
arrow
    文章標籤
    vba excel 跳回原工作表 原工作表 工作表間跳動 選取工作表 工作表名稱
    全站熱搜

    黑天使 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄