《二维码控件QRMarker》由会员分享，可在线阅读，更多相关《二维码控件QRMarker（3页珍藏版）》请在金锄头文库上搜索。
1、细心整理这类似条形码，就是增加一些第三方控件控件在这下载 (149.45 KB, 下载次数: 27) 2011-11-12 14:18 上传下载次数: 27 下载后在VBE中引用运用附件时假如没有引用，会报错，所以必需要先下载！2011-11-12 14:02 上传下载附件 (77.35 KB) 2011-11-12 14:02 上传下载附件 (112.07 KB) 然后在EXCEL中选择QRmaker Control，在工作表中用鼠标拉出一个控件2011-11-12 14:10 上传下载附件 (21.89 KB) 启动VBE，添加模块，将以下代码粘贴进去Public Sub QRCodeTe
2、st() 定义QRString变量，存储要生成二维码的字符串 Dim QRString As String 给QRString赋值，依据实际状况赋值 QRString = Sheet1.Range(A1) & Sheet1.Range(B1) & ; & Sheet1.Range(A2) & Sheet1.Range(B2) & ; & Sheet1.Range(A3) & Sheet1.Range(B3) & _ & Sheet1.Range(C3) & _ & Sheet1.Range(B4) & _ & Sheet1.Range(C4) Sheet1.Select 设置QRmaker的AutoRedraw属性为ArOn Sheet1.QRmaker1.AutoRedraw = ArOn 将字符串传递给QRmaker控件 Sheet1.QRmaker1.InputData = QRString 刷新QRmaker的内容，假如AutoRedraw属性为On，那么无需此句 Sheet1.QRmaker1.Refresh End Sub(此时可以添加一个按钮，便利以后的刷新)2011-11-12 14:16 上传下载次数: 10 附加该控件的一些介绍(E文)1240c844769eaeed4.html
