注册    登录
今天看啥  ›  专栏  ›  完美Excel

使用VBA代码修改其它VBA代码

完美Excel  · 公众号  · Excel  · 2024-06-20 06:01
学习Excel技术，关注微信公众号：excelperfect标签：VBA打开VBE，在名为“模块1”的标准模块中输入下面的代码：Sub replaceConstant() Dim project As VBIDE.VBProject Dim codeMod As VBIDE.CodeModule Dim component As VBIDE.VBComponent Dim n As Long, s As String Dim Old_text As String Dim New_text As String Old_text = "iLong" New_text = "iiLong"  For Each project In Application.VBE.VBProjects   For Each component In project.VBComponents     If component.Name  "模块1" Then       Set codeMod = component.CodeModule With codeMod For n = 1 To .CountOfLines s = .Lines(n, 1) If Len(Trim$(s)) Then             If s Like "*" & Old_text & "*" Then               s = Replace$(s, Old_text, New_text)               .DeleteLines n, 1      ………………………………

原文地址：访问原文地址
快照地址： 访问文章快照
推荐文章
Excel之家ExcelHome  ·  用公式统计符合条件的人数
昨天
Excel之家ExcelHome  ·  一组常用Excel公式 简单又高效
3 天前
Excel之家ExcelHome  ·  Excel在各类考核评比中的妙用
4 天前
Excel之家ExcelHome  ·  快速统计不同年龄段男女人数
4 天前
Excel之家ExcelHome  ·  这几个常用函数，简单又高效
6 天前
每日粮油  ·  过去半个月装运22万吨美国玉米 1月进口50万吨乌克兰玉米
3 年前
外科护理  ·  具备刘涛的高情商，你就能成为一个37度护士
3 年前
集微网  ·  【反差】群创光电出货增,11月营收却同比下降9.7%；大摩:LCD明年周期性回升 LG/友达/京东方受益；
4 年前
今日实习  ·  互联网*6 | 字节跳动、腾讯、美团点评等实习帖
4 年前
Java编程  ·  豆瓣评分9.3！时隔20年，《重构》第二版终于来了！
5 年前
关于   移动版   ·   Py中国   ·   RSS之家   ·   codingpro   ·   Code   ·   link之家   ·   卧龙AI搜索   ·   藏经阁   ·   小百科
今天看啥 - 微信公众号rss订阅, 微信rss, 稳定的RSS源
© 2024 ~ 沪ICP备11025650号