将VBA代码插入到非宏Excel的Sheet表代码中，常用于达到单元格SelectionChange的效果，其他意义不大。
使用目的：
（1）用户能够对SelectionChange事件的有效无效进行控制。
（2）可用于根据输入内容，进行数据库查询，将结果通过下拉框选择，方便用户填写。
（3）代码可以生效，也可以全身而退。不影响原Excel的格式，及用户的源文件，仍是xlsx格式，没问题。插入的代码只是匆匆过客。
使用方法：
（1）准备要插入的代码，可写好放在当前我们给用户准备的写好功能代码的带宏的Excel（如xlsm，以下简称程序）中，也可以将代码保存在本地txt等文件中，用于读取；
（2）将以下代码，放在程序中，然后，添加一段自动添加菜单的按钮。菜单中两个按钮对应以下两个过程名。（用户一般不会打开VBE界面运行代码，所以，需要在程序中给用户提供按钮，告诉他点击按钮，会生成菜单，菜单里一个是用于功能生效，一个是用于功能失效的。）
（3）用户打开程序，点击生成菜单按钮，菜单栏中出现两个按钮，用户点击Addit对应的菜单，代码生效；点击Endit对应的菜单，代码失效。
'Addit 插入代码 'Endit 删除代码 Sub Addit() ActiveWorkbook.VBProject.VBComponents.Item(ActiveSheet.CodeName).CodeModule.AddFromString _ '从此工作簿中的模块中导入代码 指定行(1-1000) ThisWorkbook.VBProject.VBComponents.Item("ModuleName").CodeModule.Lines(1, 1000) '从文件载入用此段代码 'ActiveWorkbook.VBProject.VBComponents.Item(ActiveSheet.CodeName).CodeModule.AddFromFile "FileName" End Sub Sub Endit() With ActiveWorkbook.VBProject.VBComponents.Item(ActiveSheet.CodeName).CodeModule .DeleteLines 1, .CountOfLines '删除第1行到最后1行代码，即全部删除。 End With End Sub 讯享网
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请联系我们，一经查实，本站将立刻删除。
如需转载请保留出处：https://51itzy.com/kjqy/26552.html