文章来源:网络作者:冷兮め发布时间:2026-08-18 23:10:04
现在二维码随处可见,那你们知道二维码是怎么制作的吗?今天小编就给大家带来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制作二维码教程,希望可以帮助到大家。

禁地之战(乾马金龙专属)
超变传奇996传奇
乾马金龙专属 全新三职业神器,上线领豪礼,爽玩!

王者霸业(王斩切割爆爆爆)
超变传奇
王斩切割爆爆爆 上线即送自动拾取、自动回收

烈焰之怒(骷髅超变日送10万...
超变传奇996传奇
骷髅超变日送10万 上线免费送刀刀绿毒刀刀冰冻自动回收,无条件登录就送10万充值货币!

铸兵之王(百亿直购送充爆)
超变传奇996传奇
百亿直购送充爆 自动拾取 自动回收 攻速全满 直升10000级 六大终极装备

江湖我最牛(GM狂送真充超超...
超变传奇996传奇
GM狂送真充超超变 全新超变几率触发GM手机,狂送真充红包

斗转武林(竹火百锻默爆)
超变传奇996传奇
竹火百锻默爆 上线福利:自动拾取、自动回收、更多豪礼在线相送!!

战影破穹(百亿送充神技觉醒...
超变传奇996传奇
百亿送充神技觉醒 上线即送自动回收、自动拾取等!

苍穹之剑2(帝煞古兵专属)
超变传奇996传奇
帝煞古兵专属 上线即送自动拾取、自动回收

摸金之路(无限超变天天送百...
超变传奇996传奇
无限超变天天送百万 超爽直购币白漂版本,天天送百万直购币!

国战来了(3.5折免费版)
策略
3.5折免费版 3.5折免费,每天送100限时代金券

《逆战:未来》张杰福利放送:杰...