怎么在excel2013中制作二维码
- 2023-01-29
- 来源/作者： Wps Office教程网/ 菜鸟图库
- 129 次浏览
二维码不光是在商品消费商被越来越多采用，小公司或个人也可以用二维码来传递识别特定信息。那么，怎么在excel2013中制作二维码呢?下面小编来告诉你excel2013中制作二维码的方法吧。希望对你有帮助！
excel2013中制作二维码的步骤
打开Excel，因为之后要用到VBA，进入Excel选项，勾选“在功能区显示开发工具”(图1)，切换到开发工具选项卡，单击Visual Basic打开VBA编辑器，选择“工具→引用→浏览”，找到c:\windows\system32\QRMaker.ocx，关闭编辑器。
excel2013中制作二维码的步骤图1
回到Excel中，在空白处插入一个命令按钮，右击该按钮选择指定宏→录制，宏命名为print2d，停止录制宏。
同时插入其他控件中的QRMaker Control，点“确定”后鼠标会变成十字，在空白区域画一个二维码控件(图2)。
excel2013中制作二维码的步骤图2
再次打开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(图3)，单击Print2D按钮就可以将A1单元格的内容生成二维码。
excel2013中制作二维码的步骤图3
制作完毕，就可以使用这个二维码了，用胸卡在扫描枪上扫描，即可对特定数据进行操作了。
>>>下一页更多精彩“excel2013中制作组合图表的方法”
共2页: 上一页
