如何用VBA给指定过程改名？

作者：绿色风分类：时间：2022-08-17 浏览：161

楼主 amulee	Q：如何用VBA给指定过程改名？ A：可以参考以下自定义函数，当改名成功时返回True，失败时返回False Function SubNameChange(ByRef ModulName As String, ByRef OldSubName As String, ByRef NewSubName As String) As Boolean Dim i&, Temp$ On Error GoTo Err_Handle With ThisWorkbook.VBProject.VBComponents(ModulName).CodeModule i = .ProcBodyLine(OldSubName, vbext_pk_Proc) Temp = VBA.Replace(.Lines(i, 1), OldSubName, NewSubName) .ReplaceLine i, Temp SubNameChange = True Exit Function End With Err_Handle: SubNameChange = False End Function 参考以下改名的主过程来调用该自定义函数： Sub 改名主过程() If SubNameChange("模块1", "Test1", "Test2") Then MsgBox "改名成功" Else MsgBox "改名失败" End If End Sub 用VBA给过程改名.rar
2楼 xyh9999	好好学习
3楼游泳第一名	不懂
4楼水星钓鱼	感谢分享
5楼 rongjun	学习了！
6楼芐雨	原来如此

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表