如何在 Excel 中逐步生成二维码（无需外部程序）

你需要生成 直接从 Excel 中获取二维码 不知道从何入手？别担心，创建这些代码比想象中简单，而且无需安装外部程序，也无需复杂操作。有很多方法可以实现这一点，从自定义函数到使用宏或插件。

在本文中，我们解释 如何在 Excel 中逐步生成二维码，其简单易懂的说明适用于任何现代版本的 Excel。如果您希望自动执行任务或只是想节省时间，本教程将非常适合您。

什么是二维码？它在 Excel 中有什么用途？

MGI 二维码 它们是图形表示，可以存储文本、链接、数字、电子邮件等数据。用手机扫描时，内容会自动显示。将它们集成到 Excel 中，您可以快速共享信息，例如文档、表单、客户记录、联系人或任何其他相关数据的链接。

方法 1：使用 VBA 中的自定义函数创建二维码

第一个选项是使用 VBA 编写的自定义函数。它易于实现，并允许您直接从单元格生成二维码。

首先，激活“开发人员”选项卡

1. 右键单击功能区并选择“自定义功能区“。
2. 选中“程序员“或”开发人员“。
3. 点击 接受.

接下来，创建自定义函数

1. 在“开发人员”选项卡中，打开 Visual Basic中.
2. 插入一个 新模块.
3. 粘贴以下代码：

Function CrearQR(texto As String, tamano As Integer) As Variant
    Dim url As String
    Dim celda As Range
    Dim nombreImagen As String
    Dim img As Shape

    On Error GoTo ErrorHandler

    If Trim(texto) = "" Then
        CrearQR = CVErr(xlErrValue)
        Exit Function
    End If

    Set celda = Application.Caller.Cells(1, 1)
    nombreImagen = "QR_" & celda.Address(False, False)

    On Error Resume Next
    celda.Worksheet.Shapes(nombreImagen).Delete
    On Error GoTo 0

    url = "https://api.qrserver.com/v1/create-qr-code/?size=" & tamano & "x" & tamano & "&data=" & WorksheetFunction.EncodeURL(texto)

    With celda.Worksheet.Pictures.Insert(url)
        .ShapeRange.LockAspectRatio = msoFalse
        .Height = tamano
        .Width = tamano
        .Top = celda.Top
        .Left = celda.Left
        .Name = nombreImagen
    End With

    CrearQR = "QR generado"
    Exit Function

ErrorHandler:
    CrearQR = CVErr(xlErrValue)
End Function

如何在 Excel 中使用该函数

1. 在任意单元格中写入： =CrearQR(A1;150) 根据单元格 A1 的内容生成 QR。
2. 按 输入 您将看到您的二维码出现在表格上。
3. 您可以向下或向侧面拖动此公式以将其复制到其他单元格中。

删除生成的二维码

1. 去吧 主页 > 搜索和选择 > 前往特价.
2. Selecciona 对象.
3. 按 删掉 删除所有视觉插入的二维码。

方法二：使用宏生成多个二维码

如果您希望实现更高的自动化程度，可以使用可批量处理多个单元格的宏。如果您的列表很长，并且想快速将整列转换为二维码，那么宏是理想的选择。

将此宏插入模块

Sub GenerarQrCode(rango As Range, tamaño As Integer)
    Dim urlQR As String, celda As Range, textoCodigo As String
    Dim img As Picture
    Dim nombreQR As String

    For Each celda In rango
        textoCodigo = Trim(celda.Value)
        If textoCodigo <> "" Then
            urlQR = "https://api.qrserver.com/v1/create-qr-code/?size=" & tamaño & "x" & tamaño & "&data=" & WorksheetFunction.EncodeURL(textoCodigo)
            nombreQR = "QR_" & celda.Address(False, False)
            On Error Resume Next
            celda.Worksheet.Pictures(nombreQR).Delete
            On Error GoTo 0
            Set img = celda.Worksheet.Pictures.Insert(urlQR)
            With img
                .ShapeRange.LockAspectRatio = msoFalse
                .Name = nombreQR
                .Left = celda.Left + 2
                .Top = celda.Top + 2
                .Height = tamaño
                .Width = tamaño
            End With
        End If
    Next celda
End Sub

Sub EjecutarGenerarQrCode()
    Dim rango As Range
    Set rango = Selection
    Dim tamaño As Variant
    tamaño = InputBox("Por favor, introduce el tamaño del código QR (ej. 150):", "Tamaño del código QR", 150)
    If Not IsNumeric(tamaño) Or tamaño <= 0 Then
        MsgBox "Tamaño inválido. Por favor ingresa un número mayor que cero.", vbExclamation
        Exit Sub
    End If
    GenerarQrCode rango, CInt(tamaño)
End Sub

使用宏

1. 选择包含文本或链接的单元格范围。
2. 运行宏“运行 GenerateQrCode“。
3. 输入所需的二维码大小（例如 150）。

重要事项： 将文件另存为 .xlsm 以使宏能够正常工作。

方法 3：使用官方 Excel 插件

如果您不喜欢代码或宏，也不用担心。您也可以选择一个更简单的解决方案：使用 Excel 的外部插件。

安装插件的步骤

1. 从 Excel 中，转到 插入 > 加载项 > 获取加载项.
2. 在搜索引擎中输入“QR”，选择一个评价好的（推荐：红色图标）。
3. 点击 加 进而 继续.

使用插件生成二维码

1. 选择包含要转换的数据的单元格。
2. 打开插件并设置您想要的二维码大小（例如，100×100像素）。
3. 按 产生.

如果您不想弄乱代码或者在宏被阻止的商业环境中工作，则此方法是理想的选择。

为什么在 Excel 中使用二维码？

• 过程自动化： 无需复制/粘贴链接即可直接扫描并访问信息。
• 数据共享的便利性： 从员工档案到仪表板或在线表格的链接。
• 移动兼容： 任何 智能手机 您可以扫描代码并访问内容。

在 Excel 中创建二维码的方法多种多样，可满足不同的工作风格。无论您使用 VBA 代码、批量宏还是可视化插件，总有一款适合您。本文介绍的所有解决方案均免费、高效，且与最新版本的 Excel 兼容，因此您只需稍加练习即可掌握这款工具。它在办公室、学校、物流等众多领域正变得越来越实用。