VB / VBA 自制二维码小工具

现在二维码的使用越来越广泛了,广告、网址等等都用上了

从网上找了一个二维码的控件,自己做了个小工具。

 

二维码可以把一串字符,不管长短(没试过最长能多长),做成二维码图片

现在的的智能手机软件很多都有扫描二维码的功能,比如微信、我查查,等等。

 

点击下面下载相应的文件

 

下载: 二维码小工具-VBA写的

下载: 二维码小工具-VB写的

下载: 二维码控件-QRMaker1.3

 

控件是必须要的,下载后把里面的文件都复制到 C:\WINDOWS\SYSTEM32 这个目录下

64系统的复制到 C:\WINDOWS\SysWow64 这个目录下

 

用VB写的是个EXE的执行文件,可能360之类的杀软件会报毒,可以无视它

VB弄出来的东西都这样,咱又不是大公司,没弄那些证书啥的。

要是不敢用就算了

 

下面是VB的界面

VB <wbr>/ <wbr>VBA <wbr>自制二维码小工具

 

 

下面是VBA写的界面







经验证,可于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
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值