[說明]
當一個檔案內,每個月都會新增一個工作表來記錄某區間的事務,而每個工作表背後的程式碼都是一樣,但執行程式碼時會在同一檔案的其他輔助工作表間運作,這樣程式執行到最後,要如何跳回目前記錄的工作表呢?
其實不難,只要兩行程碼就可以辦到,請參考下面說明
[程式碼]
Sub JS()
THISBOOK = ActiveSheet.Name 'THISBOOK只是一個代碼,可自由命名。
.
. '輸入你想執行的程式碼
.
Sheets(THISBOOK).Activate '.Activate的功能相當於選擇某工作表
End Sub
[特別說明]
- 這兩行程式建議寫在程式的最前面與最後面
- THISBOOK = ActiveSheet.Name,在執行程式碼前,先將目前的工作表名稱記錄在某個代碼內。
- Sheets(THISBOOK).Activate,在執行完該有的程式碼時,最後執行此行,選取一開始被記錄下來得工作表代碼
謝謝您閱讀了我的文章,若您喜歡我的文章,希望您幫我按個「讚」,也幫忙分享給需要的朋友或其他平台,謝謝。
文章標籤
全站熱搜