Hur man genererar QR-koder i Excel steg för steg (utan externa program)

Behöver du generera QR-koder direkt från Excel Och du vet inte var du ska börja? Oroa dig inte, att skapa dessa koder är enklare än det verkar, och du kan göra det utan att installera externa program eller bli för komplicerat. Det finns flera sätt att uppnå detta, från anpassade funktioner till att använda makron eller tillägg.

I den här artikeln förklarar vi Hur man genererar QR-koder i Excel steg för steg, med enkla instruktioner som är tillämpliga på alla moderna versioner av Excel. Om du föredrar att automatisera uppgifter eller helt enkelt spara tid är den här handledningen perfekt för dig.

Vad är en QR-kod och vad används den till i Excel?

mycket QR-koder De är grafiska representationer som kan lagra data som text, länkar, siffror, e-postmeddelanden med mera. När de skannas med en mobiltelefon visas innehållet automatiskt. Genom att integrera dem i Excel kan du snabbt dela information som länkar till dokument, formulär, kundregister, kontakter eller annan relevant data.

Metod 1: Skapa QR-koder med en anpassad funktion i VBA

Det första alternativet du har är att använda en anpassad funktion skriven i VBA. Den är enkel att implementera och låter dig generera QR-koder direkt från en cell.

Aktivera först fliken Utvecklare

1. Högerklicka på menyfliksområdet och välj "Anpassa bandet".
2. Markera rutan "programmerare"Eller"utvecklare".
3. Klicka på acceptera.

Skapa sedan den anpassade funktionen

1. På fliken Utvecklare öppnar du Visual Basic.
2. Sätt i en ny modul.
3. Klistra in följande kod:

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

Hur man använder funktionen i Excel

1. I valfri cell skriver du: =CrearQR(A1;150) för att generera QR-frågan baserat på innehållet i cell A1.
2. tryck ange och du kommer att se din QR-kod visas på arket.
3. Du kan dra formeln nedåt eller åt sidan för att duplicera den i andra celler.

Ta bort genererade QR-koder

1. Gå till Hem > Sök och välj > Gå till Special.
2. Välj föremål.
3. tryck ta bort för att ta bort alla visuellt infogade QR-koder.

Metod 2: Använd ett makro för att generera flera QR-koder

Om du föredrar att automatisera ännu mer kan du använda ett makro som arbetar i bulk på ett cellområde. Detta är perfekt om du har en lång lista och snabbt vill konvertera hela kolumnen till QR-koder.

Infoga detta makro i en modul

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

För att använda makrot

1. Markera cellområdet som innehåller texten eller länkarna.
2. Kör makrot "Kör Generera QR-kod".
3. Ange önskad storlek för QR-koderna (till exempel 150).

Viktigt: Spara filen som .xlsm för att makron ska fungera korrekt.

Metod 3: Använd officiella Excel-tillägg

Om du inte gillar kod eller makron, oroa dig inte. Du kan också välja en mycket enklare lösning: att använda ett externt tillägg för Excel.

Steg för att installera plugin-programmet

1. Från Excel, gå till Infoga > Tillägg > Hämta tillägg.
2. Skriv ”QR” i sökmotorn och välj en med ett bra betyg (rekommenderas: röd ikon).
3. Klicka på lägga till och då fortsätta.

Generera QR med pluginet

1. Markera de celler som innehåller den data som ska konverteras.
2. Öppna plugin-programmet och ställ in önskad QR-kodstorlek (till exempel 100×100 px).
3. tryck generera.

Den här metoden är idealisk om du inte vill krångla med kod eller om du arbetar i affärsmiljöer där makron är blockerade.

Varför använda QR-koder i Excel?

• Processautomation: Skanna och få tillgång till information direkt utan att kopiera/klistra in länkar.
• Enkel datadelning: från medarbetarfiler till länkar till dashboards eller onlineformulär.
• Mobilkompatibel: någon smartphone du kan skanna koden och komma åt innehållet.

Det finns flera sätt att skapa QR-koder i Excel som passar olika arbetsstilar. Oavsett om du använder VBA-kod, massmakron eller visuella tillägg finns det alltid ett tillgängligt alternativ för dig. Alla lösningar som visas är gratis, effektiva och kompatibla med nyare versioner av Excel, så du behöver bara lite övning för att bemästra detta verktyg, som blir alltmer användbart på kontor, skolor, logistik och fler sektorer.