vba 删除 添加checkbox_想不到吧，我们居然可以在VBA底层进行代码的动态增删哦...

hello，大家好，很多时候，我们都知道在office的VBA环境下加入必要的代码可以进行office的高级高效办公。但是，有的时候这些要临时用到的代码需要时可以动态的添加，不需要时可以动态的删除。

对于在VBA运行时动态地增删VBA环境下代码的操作，不知道大家尝试过没有呢？感觉上是否看起来无法实现的呢？貌似有点难，毕竟从底层代码处去修改代码，感觉上市不可思议的。

其实，只要我们认真钻研，就会找到解决问题的方法。这不，我花了一下午的时间潜心琢磨，终于给搞出来了，也许有很多粉丝有更好的方法，但是我自己用自己的方法实现了动态增删VBA代码的功能。

好了，废话不说了，下面，分享一下我如何弄的吧。

首先，进行动态增删代码技术的只是储备。

(一)动态增加代码的技术格式

With ThisDocument.VBProject.VBComponents.Item("模块1").CodeModule

.InsertLines 待增加代码的位置(第几行),待增加代码文本串

End With

说明：上面的“模块1”代表是在 模块1 中操作代码，如果为“ThisDocument”则代表在 ThisDocument 中操作代码

(二)动态删除刚增加的代码技术格式

With ThisDocument.VBProject.VBComponents.Item("模块1").CodeModule

' 一次性删除整个过程代码

.DeleteLines 待删除代码的位置(第几行), 共计需删除的行数

End With

然后，我们看看完整的测试效果

(一)动态增加代码

执行动态增加VBA代码

动态增加VBA代码的结果

(二)动态删除刚增加的代码

执行动态删除刚增加的VBA代码

动态删除刚增加的VBA代码的结果

最后，衷心地感谢大家的点评哦！