求助,Excel中实现二维码

发布网友发布时间：2022-04-26 18:05

共2个回答

热心网友时间：2023-10-20 01:34

方法/步骤

将材料中QRmake.exe拷贝至D盘根目录下，打开execl软件，进入宏录制（图1）

设置快捷键及说明，点击确定（图2）

退出宏录制（图3）

按alt+F8 进入执行对话框，选中刚才录制的宏，单击编辑（图4）进入VBE编辑器

如（图5）进去是一段空代码，将代码内容全部选中，删除

将工具中VBA文本文档的代码复制，粘贴到当前窗口
图中第一处标记：i = MK_QR(ActiveCell.Value,"10", "4")，
括号内有三个参数：ActiveCell.Value即是要转换成二维码的内容，本例时当前选中单元格内容
"10"，二维码的显示精度，显示精度越高辨识度越高，但读取时间较长
"4"，二维码尺寸
图中第二处标记：ActiveCell.Offset(0, 1).Select，将生成的二维码放置的位置，样本代码中
将二维码图片放置在当前单元格向右一格的位置。Offset后的括号内两个数值表示坐标
第一个数字表示行偏移，向下为正，向上为负
第二个数字表示列偏移，向右为正，向左为负

使用方法：选中要转换二维码的单元格，按alt+F8快捷键调出执行窗口，选中MakeQRCode 执行

也可用图片来调用该宏，绘制或者插入任意图片，右键点击该图片，选择“指定宏”

在弹出的对话框中选中之前定制的宏

最后适当调整单元格的尺寸与二维码图片尺寸一致，最终结果

热心网友时间：2023-10-20 01:35

可使用NPSExcel二维码函数来生成，还支持中文，32位/64位系统Excel2003-2016都可用，直接上图。