如何在 Excel 的所有工作簿中保存並使用您的 VBA 宏？

在許多情況下，您可能需要在不同的 Excel 工作簿中重複使用相同的 VBA 宏來執行任務，例如自動化重複計算、數據格式化或自訂函數（如將數字轉換為文字）。一個常見的挑戰是，默認情況下，宏僅存儲在創建它們的工作簿中，這意味著您無法輕鬆地在新文檔中訪問或重用它們。然而，Excel 提供了幾種靈活的方法，讓 VBA 宏可以全局使用，消除了每次啟動新工作簿時重新複製代碼的需要。本教程提供了各種方法的全面指導，以確保您的 VBA 宏能夠輕鬆地在所有工作簿中訪問，從而提高您的生產力和工作流程效率。

在所有工作簿中保存並使用 VBA 代碼
個人宏工作簿方法

例如，假設您希望能夠使用自訂的 VBA 代碼將數字轉換為對應的英文單詞，並確保無論在哪個工作簿中操作，此功能始終可用。通過正確的方法，您可以保存 VBA 模組，以便在 Excel 中隨時重用它們。這對於您希望每次都可訪問的自定義函數或自動化特別有幫助，無需在多個文件中重複代碼。

要做到這一點，您可以將 VBA 代碼打包為自訂的 Excel 加載項。這個加載項可以在 Excel 中啟用，並將您的自定義功能作為全局可用的函數展示出來。

請按照以下步驟操作：

1. 在 Excel 中按下 Alt + F11 開啟 "Microsoft Visual Basic for Applications" 視窗。

2. 在 VBA 編輯器中，點擊 插入 > 模組，然後將以下宏粘貼到新建的模組窗口中。

VBA 代碼：將數字轉換為文字

Function NumberstoWords(ByVal MyNumber)
'Update by ExtendofficeDim xStr As StringDim xFNum As IntegerDim xStrPointDim xStrNumberDim xPoint As StringDim xNumber As StringDim xP() As VariantDim xDPDim xCnt As IntegerDim xResult, xT As StringDim xLen As IntegerOn Error Resume NextxP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
xNumber = Trim(Str(MyNumber))
xDP = InStr(xNumber, ".")
xPoint = ""
xStrNumber = ""
If xDP >0 ThenxPoint = " point "
xStr = Mid(xNumber, xDP +1)
xStrPoint = Left(xStr, Len(xNumber) - xDP)
For xFNum =1 To Len(xStrPoint)
xStr = Mid(xStrPoint, xFNum,1)
xPoint = xPoint & GetDigits(xStr) & " "
Next xFNumxNumber = Trim(Left(xNumber, xDP -1))
End IfxCnt =0xResult = ""
xT = ""
xLen =0xLen = Int(Len(Str(xNumber)) /3)
If (Len(Str(xNumber)) Mod3) =0 Then xLen = xLen -1Do While xNumber <> ""
If xLen = xCnt ThenxT = GetHundredsDigits(Right(xNumber,3), False)
ElseIf xCnt =0 ThenxT = GetHundredsDigits(Right(xNumber,3), True)
ElsexT = GetHundredsDigits(Right(xNumber,3), False)
End IfEnd IfIf xT <> "" ThenxResult = xT & xP(xCnt) & xResultEnd IfIf Len(xNumber) >3 ThenxNumber = Left(xNumber, Len(xNumber) -3)
ElsexNumber = ""
End IfxCnt = xCnt +1LoopxResult = xResult & xPointNumberstoWords = xResultEnd FunctionFunction GetHundredsDigits(xHDgt, xB As Boolean)
Dim xRStr As StringDim xStrNum As StringDim xStr As StringDim xI As IntegerDim xBB As BooleanxStrNum = xHDgtxRStr = ""
On Error Resume NextxBB = TrueIf Val(xStrNum) =0 Then Exit FunctionxStrNum = Right("000" & xStrNum,3)
xStr = Mid(xStrNum,1,1)
If xStr <> "0" ThenxRStr = GetDigits(Mid(xStrNum,1,1)) & "Hundred "
ElseIf xB ThenxRStr = "and "
xBB = FalseElsexRStr = " "
xBB = FalseEnd IfEnd IfIf Mid(xStrNum,2,2) <> "00" ThenxRStr = xRStr & GetTenDigits(Mid(xStrNum,2,2), xBB)
End IfGetHundredsDigits = xRStrEnd FunctionFunction GetTenDigits(xTDgt, xB As Boolean)
Dim xStr As StringDim xI As IntegerDim xArr_1() As VariantDim xArr_2() As VariantDim xT As BooleanxArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
xStr = ""
xT = TrueOn Error Resume NextIf Val(Left(xTDgt,1)) =1 ThenxI = Val(Right(xTDgt,1))
If xB Then xStr = "and "
xStr = xStr & xArr_1(xI)
ElsexI = Val(Left(xTDgt,1))
If Val(Left(xTDgt,1)) >1 ThenIf xB Then xStr = "and "
xStr = xStr & xArr_2(Val(Left(xTDgt,1)))
xT = FalseEnd IfIf xStr = "" ThenIf xB ThenxStr = "and "
End IfEnd IfIf Right(xTDgt,1) <> "0" ThenxStr = xStr & GetDigits(Right(xTDgt,1))
End IfEnd IfGetTenDigits = xStrEnd FunctionFunction GetDigits(xDgt)
Dim xStr As StringDim xArr_1() As VariantxArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
xStr = ""
On Error Resume NextxStr = xArr_1(Val(xDgt))
GetDigits = xStrEnd Function

3. 接下來，點擊視窗左上角的 "保存" 圖標，或者直接按下 Ctrl + S 以打開 "另存為" 對話框。

4. 在 "另存為" 視窗中，在 "文件名" 欄位中輸入所需的文件名。在 "保存類型" 下拉選單中，務必選擇 Excel 加載項 (*.xlam).

5. 點擊 "保存" 按鈕，將您的工作簿保存為 Excel 加載項文件。這樣會創建一個可重用的加載項，任何工作簿都可以隨時啟用。

6. 保存後，返回 Excel 並關閉剛才轉換為加載項的工作簿。

7. 打開一個新或現有的工作簿，您希望在其中使用您的宏。在適當的單元格中輸入自定義公式（例如，在 B2 中）：

=NumberstoWords(A2)

8. 轉到 開發工具 標籤，然後點擊 Excel 加載項 按鈕（位於 "加載項" 組中）。

9. 在彈出的 "加載項" 對話框中，選擇 瀏覽.

10. 找到並選擇之前保存的加載項文件，然後點擊 確定.

11. 您的自定義加載項，例如 "Convert Number To Words Add-in"，現在應該出現在加載項列表中。確保它被勾選，然後點擊 確定 以啟用它。

12. 現在，在目標單元格（例如 B2）中再次輸入自定義函數，然後按 Enter。您應該會看到該公式返回數字對應的正確英文單詞。

=NumberstoWords(A2)

13. 若要快速將轉換公式應用於多個數字，拖動單元格的自動填充手柄向下複製函數到其他單元格。

1. 您可以將宏分配到快速訪問工具欄，以便在任何可見的工作簿中一鍵執行。要做到這一點，右鍵點擊快速訪問工具欄，選擇 "自定義快速訪問工具欄"，然後添加您的宏。
   
2. 您也可以按下 Alt + F11 打開 VBA 編輯器，手動選擇您的宏，然後按 F5 鍵根據需要運行代碼。

另一個非常實用的方法是，確保您最喜歡或最常用的宏在每個 Excel 會話中都準備就緒，無論哪個工作簿打開，都可以使用個人宏工作簿（PERSONAL.XLSB）。這是一個特殊的隱藏 Excel 文件，每次啟動 Excel 時都會自動加載，允許存儲在其內部的任何宏都能夠在所有打開的工作簿中訪問。

適用場景：適用於個人自動化、日常格式化腳本或不需要作為正式 Excel 加載項分享的工具函數。PERSONAL.XLSB 中的宏在您的電腦上無論打開哪個文件都可以使用。

優點： 宏在本地 Excel 配置文件中全局可用，無需安裝加載項或額外文件。
缺點： 以這種方式存儲的宏只能在存在 PERSONAL.XLSB 的電腦和帳戶上使用。與他人共享需要手動導出和導入模組。

• 要使用此方法，您首先需要記錄或創建一個宏，並確保它保存到個人宏工作簿中。

請按照以下步驟操作：

1. 打開 Excel。在 檢視 標籤中，點擊 宏，然後選擇 錄製宏。
2. 在對話框中，於 "存儲宏於" 下拉選單中選擇 個人宏工作簿。完成錄製（如果不需錄製，可立即停止）。
3. 按下 Alt + F11 進入 VBA 編輯器，您將看到 PERSONAL.XLSB 專案。在此處，插入一個新模組或粘貼您所需的宏代碼。
4. 保存更改。Excel 會自動在啟動文件夾中創建並維護 PERSONAL.XLSB 工作簿。
5. PERSONAL.XLSB 中的宏可以通過 宏 對話框（Alt + F8）運行，分配給功能區或工具欄按鈕，或從 VBA 中調用。

故障排除與維護：如果 PERSONAL.XLSB 中的宏不可用，請檢查 Excel 是否在安全模式下打開，或者宏安全性設置是否設置為 “禁用所有宏”。此外，PERSONAL.XLSB 默認是隱藏的；如果意外關閉未保存或刪除，您可能需要重新錄製一個宏來重新生成它。