VBAMo VBA模 快速编程--EH坛友的改进版

泓()

根据flow840插件作品http://club.excelhome.net/viewthread.php?tid=342416
改编 进步一小步
进化1:窗体 能运行于VBE编辑器之上

进化2:
模:常用VBA 过程
组:数组相关的
典:字典相关的
库:数据库 ADO SQL
网:网络相关的
源:包含以上所有和其它VBA 参考
编:编辑...

进化3:
原作者的代码插入 只是在模块的最后 插入
请看我修的效果：
sub cc()
''

end sub

如何插入 如上sub cc过程中呢
输入 2个单引号 回车

下面进化的代码 达到以上效果
嘿 苦思冥想 得出的

1. Public Sub 写入模块(ModName As String, SubName As String, MyCode As Variant)
   
2.     Dim MyIndex As Integer, MyName As String
   
3.     Dim MyMod As VBComponent
   
4.     If 查询过程名(ModName, SubName) = False Then
   
5.         '添加新代码
   
6.         With ActiveWorkbook.VBProject.VBComponents(ModName).CodeModule
   
7.             If .Find("''", 1, 1, 10000, 256, 0, 0, 0) Then
   
8.                 .ReplaceLine Application.Match("*''", Split(.Lines(1, .CountOfLines), vbCrLf), 0), MyCode
   
9.             Else
   
10.                 .InsertLines .CountOfLines + 1, ""
    
11.                 .InsertLines .CountOfLines + 1, MyCode
    
12.             End If
    
13.         End With
    
14.         'Unload UserForm1
    
15.         'Application.SendKeys "%{F11}"
    
16.         'MsgBox "所选代码添加完成!", vbInformation + vbOKOnly, "写入代码"
    
17.     Else
    
18.         If MsgBox("所选代码已存在，是否需要删除？", vbExclamation + vbYesNo, "操作提示") = vbYes Then
    
19.             Call 删除代码(ModName, SubName)
    
20.         End If
    
21.     End If
    
22. End Sub

复制代码

-----------------------------------------
改进还有多多的 这里就不再提了
尚未完工(请自行增加代码库)

所有的密码为 1234566
欢迎下载使用 感谢原著!

更多的使用帮助请看原作者的帖子
--泓()

[ 本帖最后由 泓() 于 2010-9-19 23:29 编辑 ]

lin82

谢谢！是好东西

lgcmeli

期待楼主更进一大步。早日完工，并最大可能充实代码库。

飞云楼主

关注，很实用的工具，期待你的成果。

zhangjimfu

密切关注，期待楼主进步成果

lb_bn

占位等老师大作。

ngs139

很眼熟，很期待 ，并最大可能充实代码库。

hanter007

关注一下
工具很实用..楼主的修改很不错..
希望这个工具更加强大和通用.

xytd

密切关注，期待楼主再接再厉！！！

泓()

由于 添加的代码量大 周期长 可能只上传xla