如何在 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. 您的自定义加载项（如“将数字转换为单词的加载项”）现在应该出现在加载项列表中。确保选中它，然后点击 确定 以启用它。

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 默认是隐藏的；如果不小心未保存或删除了它，您可能需要重新录制一个宏来重新生成它。