这类似条形码,就是增加一些第三方控件
控件在这下载 ( KB, 下载次数: 27)
下载后在VBE中引用(使用附件时如果没有引用,会报错,所以一定要先下载!)
然后这类似条形码,就是增加一些第三方控件
控件在这下载 ( KB, 下载次数: 27)
下载后在VBE中引用(使用附件时如果没有引用,会报错,所以一定要先下载!)
然后在EXCEL中选择QRmaker Control,在工作表中用鼠标拉出一个控件
启动VBE,添加模块,将以下代码粘贴进去
Public Sub QRCodeTest()
'定义QRString变量,存储要生成二维码的字符串
Dim QRString As String
'给QRString赋值,根据实际情况赋值
QRString = ("A1") & ("B1") & ";" & ("A2") & ("B2") & ";" & ("A3") & ("B3") & "_" & ("C3") & "_" & ("B4") & "_" & ("C4")
'设置QRmaker的AutoRedraw属性为ArOn
二维码控件QRMarker 来自淘豆网m.daumloan.com转载请标明出处.