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