文章来源:网络作者:离沫发布时间:2026-05-23 09:36:01
现在二维码随处可见,那你们知道二维码是怎么制作的吗?今天小编就给大家带来excel2013制作二维码教程哦。
excel2013中制作二维码的步骤:
打开Excel,因为之后要用到VBA,进入Excel选项,勾选“在功能区显示开发工具”(图1),切换到开发工具选项卡,单击Visual Basic打开VBA编辑器,选择“工具→引用→浏览”,找到c:\\windows\\system32\\QRMaker.ocx,关闭编辑器。

回到Excel中,在空白处插入一个命令按钮,右击该按钮选择指定宏→录制,宏命名为print2d,停止录制宏。
同时插入其他控件中的QRMaker Control,点“确定”后鼠标会变成十字,在空白区域画一个二维码控件(图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制作二维码教程,希望可以帮助到大家。

梦想三国之勇往直前0.1折

炼仙传说0.1折
仙侠01折
充值享永久0.1折福利,登录每日领2000免费代金券;;

不可思议的刀剑与魔法0.1折
卡牌01折
进游立送真充卡,开局自带“钞能力”

逍遥浪人
卡牌
1折送绝版皮肤 全场充值永久1折,创角即送“黑神话”孙悟空绝版皮肤。

奇幻梦旅人
休闲
当个无忧无虑的旅人,尽情享受这个童话世界吧!

玄影0.1折
仙侠01折
全场充值永享0.1折!

点击冒险之旅(0.1折特级行...
卡牌01折
上线福利:登录即送创角大礼包,召唤顶级战力!

天神赵子龙0.1折
卡牌01折
全新0.1折放置卡牌,打破传统三国叙事,解锁新颖剧情,每日送1000代金;

九州异兽记0.1折
开箱01折
1分钱买SSR异兽

龙魂魔法0.1折
185传奇996传奇
上线即送:自动拾取、自动回收、切割+222、老男孩·称号!

魔药杂货铺什么时候出 公测上线时...