excel中怎么制作二维码(Excel如何做二维码)

二维码在我们的生活中已经无处不在,那么如何在EXcel中制作二维码呢?

新建一个Excel表格,在A1单元格中输入需要生成二维码的代码信息。

1. 先要下载一个控件qrmaker,下载的文件解压后,将QRMaker文件夹里的所有文件复制到c:windowssystem32下。通过“开始→运行”,在运行窗口里输入regsvr32 c:windowssystem32QRmaker.ocx注册组件。

2. 打开Excel,因为之后要用到VBA,进入Excel选项,勾选“在功能区显示开发工具”,切换到开发工具选项卡,单击Visual Basic打开VBA编辑器,选择“工具→引用→浏览”,找到c:windowssystem32QRMaker.ocx,关闭编辑器。

excel中怎么制作二维码(Excel如何做二维码)

3. 回到Excel中,在空白处插入一个命令按钮,右击该按钮选择指定宏→录制,宏命名为print2d,停止录制宏。

4. 同时插入其他控件中的QRMaker Control,点“确定”后鼠标会变成十字,在空白区域画一个二维码控件。

excel中怎么制作二维码(Excel如何做二维码)

5. 再次打开VBA编辑器,在左边找到模块1,双击后清空右边所有内容,输入以下代码:

Sub print2d()

Dim QRString1 As String

‘定义变量

QRString1 = Sheet1.Range(“A1”)

‘将A1单元格的值传递给QRString1

Sheet1.Select

Sheet1.QRmaker1.AutoRedraw = ArOn

‘启用QRmaker的自动重画属性

Sheet1.QRmaker1.InputData = QRString1

‘将QRString1的值传递给QRmaker1

End Sub

保存关闭VBA编辑器,回到Excel,单击Print2D按钮就可以将A1单元格的内容生成二维码。

excel中怎么制作二维码(Excel如何做二维码)

制作完毕,就可以使用这个二维码了。

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 86345@qq.com 举报,一经查实,本站将立刻删除。
(0)
上一篇 2022-04-02 21:07:57
下一篇 2022-04-02 21:10:25

猜你喜欢

发表回复

您的电子邮箱地址不会被公开。