VBA-重命名模块

Question

我们如何在Office 2010下的VBA项目中重命名模块？

右键单击该模块不具有执行重命名的功能。

谢谢

Answer 1

如果在“项目资源管理器”中单击模块，则该名称应显示在属性窗口（如下）中。它应该说“（名称）Module1”。您只需单击那里的名称并进行编辑。

Answer 2

1. 确保您打开了属性窗口，否则：

• MAC：转到上面的 view 标签，然后点击 Properties Window

• WINDOWS：只需按F4

2. 点击偏好的模块更改名称，然后在属性窗口中输入您想要的名称：

Answer 3

为了完整起见，纯 VBA 解决方案：

Sub RenameModule(wb As Workbook, _
    ByVal oldModuleName As String, _
    ByVal newModuleName As String)
    wb.VBProject.VBComponents(oldModuleName).Name = newModuleName
End Sub

可能会从另一个打开的工作簿中调用，例如如下：

RenameModule Workbooks("MyWorkbook.xlsm"), "Module1", "RenamedModule"

或者如果要更改的代码模块驻留在同一个工作簿中：

RenameModule ThisWorkbook, "Module1", "RenamedModule"

如果您更喜欢简短，可以输入例如ThisWorkbook.VBComponents("Module1").Name = "RenamedModule" 直接进入 VB 编辑器的即时窗口。