如何在 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 中的单元格值创建二维码,以突出显示特定数据集。

更新于: 2023年7月19日

1K+ 浏览量

开启你的 职业生涯

通过完成课程获得认证

立即开始
广告