求助,Excel中实现二维码

2022-08-05 科技 54阅读
方法/步骤

将材料中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 执行

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

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

最后 适当调整单元格的尺寸与二维码图片尺寸一致,最终结果
声明:你问我答网所有作品(图文、音视频)均由用户自行上传分享,仅供网友学习交流。若您的权利被侵害,请联系fangmu6661024@163.com