如何在 Excel 中基于单元格值创建二维码
为了快速有效地传达信息,二维码正变得越来越受欢迎。无论您是想为产品标签、活动门票还是其他任何原因生成二维码,Excel 都提供了强大的基础来自动化此过程。在本教程中,我们将了解详细的方法,以根据 Excel 单元格值生成二维码。
在本教程结束时,您将全面了解生成基于 Excel 电子表格中信息的动态二维码所需的工具和方法。我们将介绍从添加适当的加载项到创建必要的公式,您需要轻松生成二维码的所有内容。让我们从揭示 Excel 使创建二维码更简单,从而节省您的时间和精力,同时简化您的工作流程开始。
基于单元格值创建二维码
在这里,我们将首先检查 Microsoft 条形码控件 16.0,然后插入 VBA 模块,然后将代码添加到按钮以完成任务。因此,让我们看看一个简单的过程,学习如何基于 Excel 中的单元格值创建二维码。
步骤 1
考虑一个 Excel 表格。
首先,点击“开发工具”和“更多控件”,并验证您是否拥有 Microsoft 条形码控件 16.0。如果您已安装,请继续执行此过程,否则请先安装该控件。
开发工具 > 插入 > 更多控件。
然后,右键点击工作表名称并选择“查看代码”以打开 VBA 应用程序。
右键点击 > 查看代码。
步骤 2
然后点击插入,选择模块,并将以下代码复制到文本框中。
插入 > 模块 > 复制。
示例
Sub setQR() Dim xSRg As Range Dim xRRg As Range Dim xObjOLE As OLEObject On Error Resume Next Set xSRg = Application.InputBox("Please select the cell you will create QR code based on", "Create Qr Code", , , , , , 8) If xSRg Is Nothing Then Exit Sub Set xRRg = Application.InputBox("Select a cell to place the QR code", "Create Qr Code", , , , , , 8) If xRRg Is Nothing Then Exit Sub Application.ScreenUpdating = False Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1") xObjOLE.Object.Style = 11 xObjOLE.Object.Value = xSRg.Text ActiveSheet.Shapes.Item(xObjOLE.Name).Copy ActiveSheet.Paste xRRg xObjOLE.Delete Application.ScreenUpdating = True End Sub
步骤 3
然后使用 Alt + Q 关闭 VBA。现在插入一个窗体控件按钮。为此,请点击开发工具,然后点击插入,选择窗体控件按钮,然后绘制。
Alt + Q > 开发工具 > 插入 > 按钮 > 绘制。
步骤 4
在弹出的窗口中,点击“设置 QR”并点击“确定”。
设置 QR > 确定。
步骤 5
然后退出设计模式,点击按钮,选择包含文本的单元格,然后点击确定。
设计 > 选择单元格 > 确定。
步骤 6
然后点击单元格以插入二维码,然后点击确定以完成任务。
选择单元格 > 确定。
结论
在本教程中,我们使用了一个简单的示例来演示如何基于 Excel 中的单元格值创建二维码,以突出显示特定数据集。