【分享成果，随喜正能量】千万别把运气当实力，别把平台当本事。认清自己的实力，知道自己有几斤几两，不低估风险，不高估自己，才不会被时代淘汰 。因为这个世界上，没有稳定的工作，只有赖以生存的实力。。

VBA技术工具是我根据我的多年经验，并结合一些需求推出多项工具。这些工具分为YZ系列和NZ系列。YZ系列比较容易，一般可以通过教程中的代码组合自己也可以容易的写出；NZ系列则比较困难些，需要一定的VBA技术能力可以得到。这些工具只对学员，不对外。

对于较难些的NZ系列工具，每个工具分为开放源码和不开放源码两种。如果您按照我的教程学习到了高级阶段，那么恭喜您，可以直接得到全部NZ系列不开放源码的工具。我一般是把这些集成在一个加载项中，您可以直接使用。

今日给大家介绍的这个系列的NZ01:VBA二维码应用技术

现代的社会中二维码可以说是随处可见，从产品的标识到出行身份的识别，二维码相伴我们每时每刻。那么VBA可否能产生二维码呢？答案是肯定的，我查阅了大量的资料，发现在低版本excel中生成二维码的技术比较成熟些，但高版本的技术不是太成熟，大多还是通过第三方插件来实现，但第三方插件在应用时文件较大，而且要求产生二维码的计算机上必需安装，不利用程序的广泛应用。

现在的office系统一般都是高版本的了，为了能在高版本利用VBA二维码，我进行了一系列的尝试，最终推出这个NZ01应用技术工具，这项技术的最大特点是可以不借助第三方插件，只要您有Excel程序文件，就可以利用这个工具。

二维码核心技术部分我封装在一个加载项文件 NzQRCodeLib.xlam 中，这部分技术也是有两个版本：其一是开放源码的，如果您获得的是这个版本，您可以在VBA窗口输入密码“”就可以看到核心的代码了，但是强烈建议您不要打开代码；如果您得到的是不开放源码的文件，您是无法看到代码的，但不影响使用。使用的时候要引用这个加载项。

一 从工作表直接图片加载二维码

应用二维码的方案：可以在工作表中直接利用图片加载二维码，这部分利用的文件是 TestQRCSheetImg.xlsm文件，我们打开这个文件：

在上面的工作表中，A1单元格我展示的是汉字形成二维码；A2单元格我展示的是英文、特殊符号、数字形成二维码。您只要在两个单元格中录入要生成二维码的内容，然后点击“生成二维码按钮”即可以在B1和B2单元格中的图片画布中形成二维码了。

二 利用函数在单元格中直接加载二维码

应用二是利用函数在单元格中直接加载二维码，应用的是TestQRCWorksheet.xlsm文件，我们打开这个文件：

只需要在要单元格中输入函数公式即可，如B1单元格中输入了公式=QR(A1) 表示在B1中生成A1单元格内容的二维码，函数是QR(),利用起来非常简单。

三 将二维码保存单独的图片

这部分是通过TestQRCForm.xlsm文件来完成的，这个文件会弹出一个是窗体，要求学员在窗体中完成二维码的设置。我们打开这个文件：

点击“窗口”按钮，会出现下面的窗体：

建议您可以保留上述的默认设置，只在“数据”中录入您要产生二维码的数据即可，测试如下：

产生后可以直接点击“另存为图片”，取好文件名，就可以生成单独的图片文件了：

这个应用共提供给大家三个应用方案，从工作表直接图片加载二维码；从函数在单元格加载二维码；将二维码保存单独的图片。都是非常好用的。

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

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】人到中年，要顺从人生的不完美，把日子过成安稳，活得沉稳低调，不张扬不比较不炫耀，只将美好收藏，将深情妥帖安放。。