Table of contents
二维码 是加密的方块,可以包括内容、链接、事件信息以及用户希望看到的其他信息。 你可以生成 二维码 这篇文章的主要目的是演示如何创建 二维码 在Excel中。
下载实践工作手册
你可以从下面的下载链接中下载本文所使用的练习工作簿。
生成QR码.xlsm在Excel中创建QR码的2种简单方法
在这篇文章中,我将解释两种方法,你可以通过它们来创建 二维码 为了解释这些方法,我采取了一个数据集,其中包含了 场地名称 和它的URL,也就是 价值 为我们的 二维码 .
1.使用Office插件在Excel中创建QR码
在这个方法中,我将解释如何创建 二维码 在Excel中通过使用 办公室插件 .
让我们一步一步地看看它是如何做到的。
步骤。
- 首先,到 插入 标签。
- 之后,选择 获取插件 选项,从 附加元件 组。
A 图书馆 将出现在屏幕上。
- 现在,搜索一下 QR4办公室 而你将得到 QR4办公室 .
- 接下来,点击 添加 来添加 QR4office 对你的 附加元件 .
现在,它将向你显示许可条款和政策。
- 最后,选择 继续。 和 QR4办公室 将会被安装。
- 现在,再次进入 插入 标签。
- 之后,选择 我的插件 .
这将引导你找到你的 我的插件 图书馆。
- 接下来,选择 QR4办公室 .
- 最后,点击 添加 .
现在,你会看到, QR4办公室 你可以在Excel工作表上输入 文本 或 URL 你想要的 编码 你也可以改变颜色、大小和背景。 二维码 从这里。
- 现在,键入 文本 或 URL 你想要的 编码 .在这里,我输入了 URL 为 ǞǞǞ .
- 最后,点击 插入 来获得你的 二维码 .
现在,我已经得到了 二维码 为我想要的网站。
按照这个相同的过程,你可以得到所有其他的 二维码 你想要的。
2.在Excel中创建用户定义的函数来创建QR码
在这第二种方法中,我将解释如何创建 二维码 在Excel中通过使用 用户定义的功能 为此,我将使用 VBA .
让我们一步一步地看看它是如何做到的。
步骤。
- 首先,到 开发商 标签。
- 第二,选择 视觉基础 .
现在,你会看到 视觉基础 窗口已经打开。
- 之后,去到 插入 标签 .
- 现在,选择 模块 选择。
你会看到一个 模块 已经打开。 在该 模块 键入以下代码。
Function QR_Generator(qrcodes_values As String) Dim Site_URL As String Dim Cell_Values As Range Set Cell_Values = Application.Caller Site_URL = "//chart.googleapis.com/chart?chs=100x100&&cht=qr&chl=" & qrcodes_values On Error Resume Next ActiveSheet.Photo("Generated_QR_CODES_" & Cell_Values.Address(False, False)).Delete On Error GoTo 0ActiveSheet.Pictures.Insert(Site_URL).Select With Selection.ShapeRange(1) .Name = "Generated_QR_CODES_" & Cell_Values.Address(False, False) .Left = Cell_Values.Left + 2 .Top = Cell_Values.Top + 2 End With QR_Generator = " " End Function
代码分解
- 在这里,我创建了一个 职能 名为 QR_Generator ......下一步,使用 qrcodes_values 作为 字符串 在该函数内。
- 然后,宣布 网站_URL 作为 字符串 和 细胞值 作为 范围 .
- 接下来,使用了 应用程序.调用者 在 设置 属性来触发 宏观 在那里它将被调用。
- 此后,鉴于 URL 地址为 qr码 .
- 我,也用 出错时恢复下一步 来忽略这个错误。
- 之后,用了 ActiveSheet.Pictures 来在活动页面中创建图片。
- 接下来,通过使用 附声明 重新调整尺寸 qr码 .
现在。 拯救 的代码为 Excel Macro-Enabled 工作簿 并返回到你的工作表。
- 现在,选择所有你想让你的 二维码 在这里,我选择了单元格 D5 , D6 , 和D7 .
- 之后,写出以下公式。
=QR_Generator(C5)
在这里,我使用了 QR_Generator 函数,该函数由我定义的 VBA 代码。 而对于 qrcodes_values 我选择了单元格 C5 这个函数将返回我们 二维码 为 价值 在细胞中 C5 .
- 最后,按 CTRL+ENTER 而你将得到 二维码 为所有的细胞。
阅读更多:Excel VBA:开源QR码生成器
需要记住的事情
- 在使用第二种方法时,应该注意的是,我在这里使用了一个开放源码的链接。 因此,为了正常使用这个功能,你必须保持你的互联网连接。
练习部分
这里,我提供了一张练习表供你练习。
总结
最后,在这篇文章中,我试图解释如何创建 二维码 我介绍了两种方法,希望对你有所帮助。 想获得更多类似的文章,请访问 ǞǞǞ 如果你有任何问题,请在下面的评论区告诉我。