学习啦>学习电脑>工具软件>办公软件学习>Excel教程>Excel2013教程>

怎么在excel2013中制作二维码

时间: 张伟670 分享

  二维码不光是在商品消费商被越来越多采用,小公司或个人也可以用二维码来传递识别特定信息。那么,怎么在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中制作组合图表的方法”

409598