如何在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 键根据需要运行代码。

另一种非常实用的方法是使用个人宏工作簿（PERSONAL.XLSB），以确保您最喜爱或最常用的宏在每个Excel会话中都可用，无论哪个工作簿处于打开状态。这是一个特殊的隐藏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默认是隐藏的；如果您不小心未保存关闭或删除了它，可能需要重新录制宏以重新生成它。