验证vba中可用的免费QR码二维码控件

VBA中调用QRmaker 由于VBA的窗体环境和VB中的差不多，所以在VBA窗体中调用QRmaker就不再描述，这里主要说明一下如何在表格中引用QRmaker。 第一步：单击Office按钮，在Excel选项中开启“开发工具”项，从而让“开发工具”选项卡显示出来。 第二步，插入→其他控件，选择QRmaker。 然后就是在合适的地方绘出QRmaker控件，这时会自动进入“设计模式”，单击“属性”可以展开控件的“属性”栏，可根据需要设置相关属性，和VB中的操作雷同。 接下来与VB中不一样的地方就是如何在VBA代码中引用QRmaker控件了，这点和VB中有点小区别。 添加“模块”，添加“过程”，输入代码。 Public Sub QRCodeTest() '定义QRString变量，存储要生成二维码的字符串 Dim QRString As String '给QRString赋值，根据实际情况赋值 QRString = Sheet1.Range("E14") & Sheet1.Range("F14") & ";" & Sheet1.Range("E15") & Sheet1.Range("F15") & ";" & Sheet1.Range("E16") & Sheet1.Range("F16") & "_" & Sheet1.Range("G16") & "_" & Sheet1.Range("F17") & "_" & Sheet1.Range("G17") Sheet1.Select '设置QRmaker的AutoRedraw属性为ArOn Sheet1.QRmaker1.AutoRedraw = ArOn '将字符串传递给QRmaker控件 Sheet1.QRmaker1.InputData = QRString '刷新QRmaker的内容，如果AutoRedraw属性为On，则无需此句 'Sheet1.QRmaker1.Refresh End Sub 然后就可以在Excel表格中生成二维码了，根据实际情况，在填写相关数据后，执行上面的语句就可以了，其他的工作该咋的就咋的吧。 另：这里由于是利用QRmaker控件来生成二维码，所以并没有技术含量。而就二维码本身，包含的知识点还是相当多的，目前还没去了解过编辑技术层面的内容。期待有达人们能够放出类似控件的源代码，从而让更多的人了解并掌握二维码的知识。 PS：现在的二维码真是无处不在，前段时间移动赠送给我的电影票都是以二维码的形式发送的。现在火车票上也加上二维码了，且现在很多手机都支持二维码识别了。一个新的读码时代即将到来。