为了解释如何在 Excel 中生成 QR 码，我们使用一个数据集，其中包含站点名称及其 URL，该 URL 是我们的QR 码的值强>。

方法 1 – 使用 Office 加载项在 Excel 中创建二维码

步骤：

  • 转到插入选项卡。
  • 从加载项组中选择获取加载项选项。

屏幕上将出现库。

  • 搜索QR4Office。您应该得到一个完全匹配的结果。
  • 单击添加将QR4office 添加到您的插件中。

  • 选择继续，QR4Office 将被安装。

  • 选择要添加 QR 码的单元格（在本例中为 D5）。
  • 再次转到插入选项卡。
  • 选择我的加载项。

  • 这将引导您进入我的加载项库。
  • 选择QR4Office。
  • 单击添加。  

  • QR4Office 在 Excel 工作表上打开。您可以输入要编码的文本或URL。您还可以从此处更改QR 码的颜色、大小和背景。

  • 输入您想要编码的文本或URL。在这里，我们输入了 ExcelDemy 的 URL。
  • 点击插入获取您的二维码。

  • 这将填充所需站点的QR 码。

  • 重复此过程即可获取您想要的所有其他QR 码。

方法二 – 创建自定义函数生成二维码

步骤：

  • 转到开发人员选项卡。
  • 选择Visual Basic。这将打开Visual Basic 窗口。

  • 转到插入选项卡。 
  • 选择模块选项以打开新模块。

  • 在模块中，输入以下代码。
Function QR_Generator(qrcodes_values As String)
    Dim Site_URL As String
    Dim Cell_Values As Range  
    Set Cell_Values = Application.Caller
    Site_URL = "https://chart.googleapis.com/chart?chs=100x100&&cht=qr&chl=" & qrcodes_values
    On Error Resume Next
      ActiveSheet.Pictures("Generated_QR_CODES_" & Cell_Values.Address(False, False)).Delete
    On Error GoTo 0
    ActiveSheet.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 作为字符串。
  • 然后，我们将 Site_URL 声明为 String，将 Cell_Values 声明为 Range。
  • Set 属性中的 Application.Caller 会触发调用它的宏。
  • URL地址被转换为qr码。
  • 我们使用On Error Resume Next来忽略错误。
  • ActiveSheet.Pictures 部分在活动工作表中创建图片。
  • With 语句调整二维码的大小。
  • 将代码保存为启用 Excel 宏的工作簿并返回到工作表。

  • 选择您想要添加QR 码的所有单元格。我们选择了单元格D5、D6、和D7。

  • 写出下面的公式。
=QR_Generator(C5)

我们使用了VBA代码定义的QR_Generator函数。此函数将返回单元格 C5 中值的QR 代码。

  • 按Ctrl + Enter 获取所有单元格的二维码。

方法3 – 使用IMAGE函数在Excel中创建二维码

步骤：

  • 应用以下公式并使用填充句柄在D列的其余单元格中自动填充二维码。
=IMAGE("https://api.qrserver.com/v1/create-qr-code/?size=100×100&data="&C5)

要记住的事情

  • 使用转换功能和安装插件需要互联网连接。
  • 使用IMAGE函数生成二维码时，生成的二维码会根据像元高度进行拟合。您只需根据需要更改行高即可调整二维码的大小。

常见问题解答

1.我可以在Excel中使用特定字体生成动态二维码吗？
Excel中有一种名为AlphanumericQR的专用字体来生成QR码。

2.如何使用Excel中的公式生成二维码？
借助公式中的IMAGE函数，我们可以在Excel中生成二维码。

3. Excel中是否可以同时创建多个二维码？
借助VBA代码，我们可以非常轻松地创建多个QR码。

Excel 中的二维码：知识中心

  • Excel 批量二维码生成器
  • 使用 Excel 进行二维码考勤跟踪
  • 如何扫描二维码到Excel电子表格
  • Excel VBA：开源二维码生成器