開啟活頁簿時自動執行巨集

重要:  本文係由機器翻譯而成,請參閱免責聲明。本文的英文版本請見這裡,以供參考。

您可能要開啟特定活頁簿時自動執行您錄製的巨集。下列程序會使用範例,以顯示您的運作方式。您也可能會想要執行巨集在 Excel 啟動時,自動

在您開始之前,請先確認功能區有顯示 [開發人員] 索引標籤。如果沒有,請執行下列步驟:

  1. 按一下 [檔案] > [選項] > [自訂功能區]

  2. [自訂功能區] 下的 [主要索引標籤] 方塊中,核取 [開發人員] 方塊。

  3. 按一下 [確定]

若要在您自己的活頁簿中使用以下範例,請為月份的每一天分別建立工作表,並且相應地命令每一個工作表索引標籤。例如命名為「3 月 1 日」、「3 月 2 日」等依此類推,一直到「3 月 31 日」。當您開啟活頁簿時,就會自動執行巨集,顯示該月當天的索引標籤。

  1. 按一下 [開發人員] > [Visual Basic]

[開發人員] 索引標籤上的 [程式碼] 群組

  1. 按一下 [插入] > [模組]

  2. 在模組中插入以下程式碼:

    私人 Sub Auto_Open()
    變暗 vntToday 為 Variant
    vntToday = WorksheetFunction.Text (日期,」 mmmm dd")
    上錯誤繼續下一步
    Sheets(vntToday)。選取 [
    如果錯誤 <> 0 然後
    MsgBox 「 工作表不存在 」。

    Range("A1")。選取 [
    結束如果
    結束子

  3. 關閉 Visual Basic (您不必儲存任何內容)。

  4. 以 [Excel 啟用巨集的活頁簿 (*xlsm)] 格式儲存活頁簿,然後關閉活頁簿。

下次當您開啟該活頁簿時,就會選取當天的索引標籤,而且游標會停在儲存格 A1。如果當天的工作表不存在,就會出現「工作表不存在」的訊息。

提示: 您可以在每個月月初時建立新的活頁簿,然後再為新的活頁簿建立巨集。

附註: 機器翻譯免責聲明︰本文係以電腦系統翻譯而成,未經人為介入。Microsoft 提供此等機器翻譯旨在協助非英語系使用者輕鬆閱讀 Microsoft 產品、服務及技術相關內容。基於本文乃由機器翻譯而成,因此文中可能出現詞辭、語法、文法上之錯誤。

擴展您的技能
探索訓練
優先取得新功能
加入 Office 測試人員

這項資訊有幫助嗎?

感謝您的意見反應!

感謝您的意見反應! 我們將協助您與其中一位 Office 支援專員連絡以深入了解您的意見。

×