如何在EXcel中如何制作二维码?
时间:2022-10-06 15:07:01
二维码在我们生活中已经是普遍的存在那么如何在EXcel中如何制作二维码呢?
新建一个Excel表格,在A1单元格中输入需要生成二维码的代码信息。
1. 先要下载一个控件qrmaker,下载的文件解压后,将QRMaker文件夹里的所有文件复制到c:\windows\system32下。通过“开始→运行”,在运行窗口里输入regsvr32 c:\windows\system32\QRmaker.ocx注册组件。
2. 打开Excel,因为之后要用到VBA,进入Excel选项,勾选“在功能区显示开发工具”,切换到开发工具选项卡,单击Visual Basic打开VBA编辑器,选择“工具→引用→浏览”,找到c:\windows\system32\QRMaker.ocx,关闭编辑器。
3. 回到Excel中,在空白处插入一个命令按钮,右击该按钮选择指定宏→录制,宏命名为print2d,停止录制宏。
4. 同时插入其他控件中的QRMaker Control,点“确定”后鼠标会变成十字,在空白区域画一个二维码控件。
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单元格的内容生成二维码。
制作完毕,就可以使用这个二维码了。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
word文档如何批量删除页面内容
![](https://img.aspxhome.com/file/2023/4/31684_0s.png)
Word表格怎么重复标题行?Word表格重复标题行方法
![](https://img.aspxhome.com/file/2023/9/31409_0s.jpg)
word中如何关闭正在修订的文档
![](https://img.aspxhome.com/file/2023/5/35475_0s.png)
word图片显示一半怎么回事?word图片显示不全方法介绍
![](https://img.aspxhome.com/file/2023/9/29069_0s.png)
怎么在Word里面做图表?
![](https://img.aspxhome.com/file/2023/0/24420_0s.gif)
word超链接怎么做 如何在word中设置超链接
![](https://img.aspxhome.com/file/2023/5/30765_0s.jpg)
Word教程 巧用自动套用格式设置文档格式
![](https://img.aspxhome.com/file/2023/7/19847_0s.png)
Win10如何使用键盘关机?
![](https://img.aspxhome.com/file/2023/1/49831_0s.jpg)
在Word抬头怎么添加页眉?
![](https://img.aspxhome.com/file/2023/9/25769_0s.jpg)
iOS 14 资源库功能有哪些不足?
![](https://img.aspxhome.com/file/2023/5/a194825_0s.jpeg)
word两字之间空白没办法删除该怎么办呢?
![](https://img.aspxhome.com/file/2023/8/27138_0s.jpg)
word2007添加或更改图片效果
![](https://img.aspxhome.com/file/2023/8/19758_0s.jpg)
Windows 10中的Office Mobile套件获小幅更新 下载
![](https://img.aspxhome.com/file/2023/7/16387_0s.jpg)
Win10 1909声音图标不见了怎么办?Win10 1909声音图标不见了解决方法
![](https://img.aspxhome.com/file/2023/4/48834_0s.jpg)
symbol字符167在哪里
![](https://img.aspxhome.com/file/2023/8/35428_0s.png)
如何在Word文档中加入背景音乐
不会排版,不会设计没关系?巧用word自带模板制作漂亮的文件文档
![](https://img.aspxhome.com/file/2023/1/17051_0s.jpg)
Word中没有页面设置栏
![](https://img.aspxhome.com/file/2023/8/31958_0s.png)
win10护眼色要在哪里设置?win10护眼色设置方法?
![](https://img.aspxhome.com/file/2023/8/47198_0s.jpg)
Word2010如何输入带圈字符
![](https://img.aspxhome.com/file/2023/6/21826_0s.jpg)