|
根据flow840插件作品http://club.excelhome.net/viewthread.php?tid=342416
改编 进步一小步
进化1:窗体 能运行于VBE编辑器之上
进化2:
模:常用VBA 过程
组:数组相关的
典:字典相关的
库:数据库 ADO SQL
网:网络相关的
源:包含以上所有和其它VBA 参考
编:编辑...
进化3:
原作者的代码插入 只是在模块的最后 插入
请看我修的效果:
sub cc()
''
end sub
如何插入 如上sub cc过程中呢
输入 2个单引号 回车
下面进化的代码 达到以上效果
嘿 苦思冥想 得出的- Public Sub 写入模块(ModName As String, SubName As String, MyCode As Variant)
- Dim MyIndex As Integer, MyName As String
- Dim MyMod As VBComponent
- If 查询过程名(ModName, SubName) = False Then
- '添加新代码
- With ActiveWorkbook.VBProject.VBComponents(ModName).CodeModule
- If .Find("''", 1, 1, 10000, 256, 0, 0, 0) Then
- .ReplaceLine Application.Match("*''", Split(.Lines(1, .CountOfLines), vbCrLf), 0), MyCode
- Else
- .InsertLines .CountOfLines + 1, ""
- .InsertLines .CountOfLines + 1, MyCode
- End If
- End With
- 'Unload UserForm1
- 'Application.SendKeys "%{F11}"
- 'MsgBox "所选代码添加完成!", vbInformation + vbOKOnly, "写入代码"
- Else
- If MsgBox("所选代码已存在,是否需要删除?", vbExclamation + vbYesNo, "操作提示") = vbYes Then
- Call 删除代码(ModName, SubName)
- End If
- End If
- End Sub
复制代码 -----------------------------------------
改进还有多多的 这里就不再提了
尚未完工(请自行增加代码库)
所有的密码为 1234566
欢迎下载使用 感谢原著!
更多的使用帮助请看原作者的帖子
--泓()
[ 本帖最后由 泓() 于 2010-9-19 23:29 编辑 ] |
评分
-
1
查看全部评分
-
|