如何在開啟活頁簿時，一律自動定位到儲存格 A1？
眾所周知，當您在開啟活頁簿時，Excel 會自動跳轉至上次儲存並關閉時所在的儲存格位置。若您希望每次開啟活頁簿時，每個工作表都能自動定位到特定的儲存格 A1，該如何實現呢？本文將為您介紹幾種實用的解決方法。
使用 VBA 程式碼，讓活頁簿每次開啟時每個工作表都定位到儲存格 A1
使用 VBA 程式碼，讓活頁簿每次開啟時定位到特定工作表與儲存格 A1
使用 VBA 程式碼，讓活頁簿每次開啟時每個工作表都定位到儲存格 A1
例如，無論上次關閉活頁簿時停留在哪個位置，您都希望每次開啟時所有工作表都能自動定位到儲存格 A1. 請依照下列步驟操作：
1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。在左側的 專案－VBAProject窗格中，雙擊 ThisWorkbook 以開啟空白模組，並將下列程式碼複製貼上至該模組中，如下圖所示：
VBA 程式碼：每次開啟活頁簿時，每個工作表皆定位到儲存格 A1：
Private Sub Workbook_SheetActivate(ByVal Wsh As Object)
'Updateby Extendoffice
On Error Resume Next
Wsh.Range("A1").Select
End Sub
2. 接著關閉此程式碼，點選檔案＞ 另存新檔，將活頁簿儲存為 Excel 啟用巨集活頁簿格式，如下圖所示：
3. 日後再次開啟此活頁簿時，請務必點選啟用內容以啟動程式碼；切換不同工作表時，每個工作表都會自動定位至儲存格 A1.
透過 KUTOOLS AI 解鎖 Excel 的神奇功能
- 智慧執行：透過簡易指令，輕鬆執行儲存格操作、分析資料，並建立圖表！
- 自訂公式：打造專屬公式，讓您的工作流程更順暢！
- VBA 編碼：輕鬆撰寫並套用 VBA 程式碼，立即提升工作效率！
- 公式解析：輕鬆掌握複雜公式！
- 文字翻譯：輕鬆打破試算表中的語言隔閡！
使用 VBA 程式碼，讓活頁簿每次開啟時定位到特定工作表與儲存格 A1
若您希望每次開啟活頁簿時，自動定位至特定工作表的儲存格 A1，可使用下列 VBA 程式碼。
例如，我希望每次開啟活頁簿時，都能自動跳轉至「Sheet 1」工作表的儲存格 A1.
1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。在左側的 專案－VBAProject窗格中，雙擊 ThisWorkbook 以開啟空白模組，並將下列程式碼複製貼上至該模組中，如下圖所示：
VBA 程式碼：每次開啟活頁簿時，自動定位到指定工作表的儲存格 A1：
Private Sub Workbook_Open()
'Updateby Extendoffice
Application.Goto ThisWorkbook.Sheets("Sheet1").Range("A1"), True
End Sub
注意：上述程式碼中的 Sheet 1 與 A1 分別代表您開啟活頁簿時要跳轉至的工作表與儲存格參照，可依需求自行修改。
2. 接著關閉此程式碼，並點選檔案> 另存新檔，將活頁簿儲存為 Excel 啟用巨集活頁簿格式。日後再次開啟此活頁簿時，請務必點選啟用內容以啟動程式碼，系統便會自動跳至 Sheet 1 工作表的儲存格 A1.
最佳 Office 生產力工具
| 🤖 | KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行 ｜ 產生程式碼｜ 建立自訂公式 ｜ 分析資料並產生圖表｜ 呼叫增強函數…… |
| 熱門功能：尋找、醒目提示或標記重複值 ｜ 刪除空白行 ｜ 合併列或儲存格而不遺失資料 ｜ 不使用公式的四捨五入…… | |
| 高級 LOOKUP：多重條件 VLookup ｜ 多重數值 VLookup ｜ 跨多個工作表 VLookup ｜ 模糊查找…… | |
| 高級下拉列表：快速建立下拉式清單 ｜ 相依式下拉式清單 ｜ 多選下拉式清單…… | |
| 欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位…… | |
| 精選功能：網格聚焦 ｜ 設計視圖 ｜增強編輯欄 ｜ 工作簿與工作表管理員 ｜ 資源庫（自動文字）｜ 日期提取 ｜ 合併工作表 ｜ 加密／解密儲存格 ｜ 依清單傳送電子郵件 ｜ 超級篩選 ｜ 特殊篩選（篩選粗體儲存格／斜體／刪除線……） ...... | |
| 頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表 類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多 |
運用 Kutools for Excel 強化您的 Excel 技能，體驗前所未有的高效能！Kutools for Excel 提供超過 300 項進階功能，大幅提升生產力並節省寶貴時間。立即點擊，取得您最需要的功能……
Office Tab 為 Office 帶來分頁式介面，讓您的工作更輕鬆自在！
- 在 Word、Excel、PowerPoint 中啟用分頁式編輯與閱讀功能，以及 Access、Visio 與 Project。
- 在同視窗的新分頁中開啟並建立多份文件，而非另開新視窗。
- 每天為您提升 50% 的工作效率，並省下數百次滑鼠點擊！
所有 Kutools 增益集，一個安裝程式
Kutools for Office 套件整合了 Excel、Word、Outlook 與 PowerPoint 的增益集，以及 Office Tab Pro，非常適合需要跨多個 Office 應用程式協作的團隊使用！
- 全能套件— 包含 Excel、Word、Outlook 與 PowerPoint 增益集，以及 Office Tab Pro
- 一個安裝程式，一個授權— 數分鐘內即可完成設定（支援 MSI）
- 協同運作更出色— 在多個 Office 應用程式間實現流暢的生產力體驗
- 30 天完整功能試用— 無需註冊，無需信用卡
- 超值之選— 比單獨購買各增益集更省費用