二维码控件QRMarker

2022-07-08 06:10:24 第一文档网 [ 字体：小中大 ] [

阅读： ] [

说明：文章内容仅供预览，部分内容可能不全。下载后的文档，内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的，是否完整无缺。下载word有问题请添加QQ：admin处理，感谢您的支持与谅解。

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《二维码控件QRMarker》，欢迎阅读！
二维码,控件,QRMarker

这类似条形码，就是增加一些第三方控件

控件在这下载 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 = ArOn

'将字符串传递给QRmaker控件 = QRString

'刷新QRmaker的内容，如果AutoRedraw属性为On，则无需此句 ' End Sub

(此时可以添加一个按钮，方便以后的刷新)

2011-11-12 14:16 上传下载次数: 10

附加该控件的一些介绍(E文) 1240c

本文来源：https://www.dywdw.cn/9294d139cf2f0066f5335a8102d276a201296029.html