【分享成果，随喜正能量】人生，因有缘而聚，因情而暖；人生，因不珍惜而散，因恨而亡；活着就要善待自己，不属于自己的不强求，不是真心的不必喜欢，时间在变，人也在变，不必解释什么，信任与否，全在人的一念之间。。

我给VBA下的定义：VBA是个人小型自动化处理的有效工具。利用好了，可以大大提高自己的工作效率，而且可以提高数据的准确度。我的教程一共九套+一部VBA手册，教程分为初级、中级、高级三大部分。是对VBA的系统讲解，从简单的入门，到数据库，到字典，到高级的网抓及类的应用；手册是为方便编程人员查找案例编写的。

对于初级及中级的学员，很想看到VBA的利用价值。也是对自己知识点的整合。我推出的YZ系列工具，可以让这个阶段的学员感受到VBA之强大。坚定自己学习VBA的决心。VBA工具共两个系列，一个是YZ系列，一个是NZ系列。YZ系列比较简单些，实用性强，可以在自己的工作中方方面面都可以利用到,今日给大家介绍的是YZ系列工具：YZ06：加载项是否加载的判断

YZ06：加载项是否加载的判断

我的第十套教程是对我所有教程的总结性教程，这部教程在突出实用的前提下大量采用了利用加载项管理我们的程序，包括分发。很多代码的核心部分写在了加载项中，提供给用户的只是使用的应用部分代码，应用过程中可以加载这个加载项。在高版本的EXCEL中，加载加载项我提供了两个方案，大家可以在我的这套教程中看到答案。

那么问题来了，如何能知道自己利用的加载项是否正确加载了呢？为此我给大家写了这个YZ06工具来满足这个要求，程序很小，但非常好用，

YZ06:“YZ-LoadAddIn”应用工具的密码是：“123456789”,学员可以利用密码打开VBE看看我的代码是如何写的，可以进行修正以更适合自己的实际应用。

一开始程序的界面

这个工具打开的时候，是如下的界面：

非常简单明了，整个程序可以实现6大功能：利用加载项工作簿名称,判断加载项是否加载；利用加载项列表名称,判断加载项是否加载；如果已经加载加载工作簿，那么关闭；如果已经加载加载项列表名称，那么关闭；如果没有加载加载项工作簿，那么加载；如果没有加载加载项列表名称，那么加载。

在程序中我们检测的是"nzAddIn.xlam"加载项工作簿，以及加载项列表名称为"nzAddIn"和"Euro Currency Tools"的项目，"Euro Currency Tools"是EXCEL自带的。"nzAddIn.xlam"和"nzAddIn"是我在程序中给出的测试文件，读者可以自己添加到加载项列表中。

二利用加载项工作簿名称,判断加载项是否加载

我们点击下面的按钮：

给出的结果：

三利用加载项列表名称,判断加载项是否加载；

我们点击下面的按钮：

四如果没有加载加载项工作簿，那么加载

五如果没有加载加载项列表名称，那么加载

我们点击的按钮及运行的结果：

这个时候，由于程序已经加载了两个加载项，我们看一下VBA窗口：

六如果已经加载加载工作簿，那么关闭

我们点击下面的按钮并查看结果：

七如果已经加载加载项列表名称，那么关闭

八技术应用

这个应用工具中我们利用到了：

  1 判断加载项是否加载的自定义函数

 2 加载项列表名称的加载

 3 加载项列表名称的卸载

 4 加载项工作簿名称的加载

5 加载项工作簿的卸载

当然这个应用的利用价值还是非常大的，大家可以发掘一下。

【分享成果，随喜正能量】