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

经验证，可于EXCEL的VBA中使用的二维码（QRMAKER）控件 、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表格中生成二维码了，根据实际情况，在填写相关数据后，执行上面的语句就可以了，其他的工作该咋的就咋的吧。