Direkt zum Inhalt

Wie erstelle ich einen QR-Code basierend auf dem Zellenwert in Excel?

Wissen Sie, wie Sie QR-Code basierend auf einem bestimmten Zellenwert in Excel erstellen? Dieser Artikel zeigt Ihnen eine Methode, um dies im Detail zu erreichen.

Erstellen Sie einen QR-Code basierend auf dem Zellenwert mit Barcode Control und VBA-Code
Erstellen Sie ganz einfach mehrere QR-Codes in großen Mengen basierend auf Zellenwerten mit einem erstaunlichen Tool


Erstellen Sie einen QR-Code basierend auf dem Zellenwert mit Barcode Control und VBA-Code

Mit dem Barcode-Steuerelement können Sie schnell QR-Code basierend auf dem Zellenwert in Excel erstellen. Bitte gehen Sie wie folgt vor.

1. Öffnen Sie das Arbeitsblatt, das den Zellenwert enthält, auf dessen Grundlage Sie den QR-Code erstellen.

2 Klicken Entwickler:in / Unternehmen > Insert > Mehr Kontrolle. Siehe Screenshot:

3. In dem Mehr Kontrollen Fenster, überprüfen Sie die Microsoft Barcode-Steuerung 16.0 or Microsoft Barcode-Steuerung 15.0.

4. Wenn Sie das Barcode-Steuerelement im Fenster Weitere Steuerelemente nicht gefunden haben oder das Barcode-Steuerelement nicht 16.0 oder 15.0, müssen Sie die Barcode-Steuerungsdatei herunterladen, indem Sie auf diese Links klicken: Barcode-Kontrolle herunterladen. Wenn sich in Ihrem Fenster "Weitere Steuerelemente" Barcode Control 16.0 oder 15.0 befindet, springen Sie einfach nach unten Step.

Entpacken Sie die Datei nach dem Herunterladen und aktualisieren Sie das Barcode-Steuerelement mit dem heruntergeladenen Barcode-Steuerelement in Ihrem Excel wie folgt.

5. Schließen Sie alle Ihre Excel-Arbeitsmappen und gehen Sie zu Startseite Abschnitt, finden Sie die Excel App und klicken Sie mit der rechten Maustaste darauf, dann wählen Sie Als Administrator ausführen aus dem Kontextmenü. Siehe Screenshot:

6. In der Öffnung User Account Control Klicken Sie im Dialogfeld auf die Schaltfläche Ja .

7. Anschließend wird eine neue Arbeitsmappe erstellt. bitte klicken Entwickler:in / Unternehmen > Insert > Mehr Kontrolle. Siehe Screenshot:

8. In dem Mehr Kontrollen Klicken Sie im Fenster Benutzerdefiniert registrieren Klicken Sie auf die Schaltfläche, suchen Sie eine der heruntergeladenen qr-Code-OCX-Dateien und wählen Sie sie aus. Klicken Sie dann auf Offen Taste. Siehe Screenshot:

9. Klicken Sie auf die OK Schaltfläche, wenn die zurückgegeben wird Mehr Kontrollen Fenster zum Beenden der aktualisierten Barcode-Steuerung. Öffnen Sie anschließend die Arbeitsmappe erneut und enthält die Zellenwerte, auf deren Grundlage Sie QR-Codes erstellen.

10. Klicken Sie mit der rechten Maustaste auf die Registerkarte Blatt und klicken Sie auf Code anzeigen aus dem Kontextmenü, um die zu öffnen Microsoft Visual Basic für Applikationen Fenster. Kopieren Sie dann den folgenden VAB-Code und fügen Sie ihn in das Code-Fenster ein. Und schließlich drücken Sie die Andere + Q Tasten zum Verlassen des Microsoft Visual Basic für Applikationen Fenster.

VBA-Code: Erstellen Sie einen QR-Code in Excel

Sub setQR()
'Updated by Extendoffice 2018/8/22
    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", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xRRg = Application.InputBox("Select a cell to place the QR code", "Kutools for Excel", , , , , , 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

11 Klicken Entwickler:in / Unternehmen > Insert > Schaltfläche (Formularsteuerung) wie unten Screenshot gezeigt.

12. Zeichnen Sie eine Schaltfläche in das aktuelle Arbeitsblatt. Beim Auftauchen Makro zuweisen Dialog auswählen setQR in das Feld und klicken Sie dann auf OK .

13. Ausschalten Entwurfsmodus Beim Klicken Entwickler:in / Unternehmen > Entwurfsmodus.

14. Klicken Sie in der Öffnung auf die Schaltfläche Kutools for Excel Wählen Sie im Dialogfeld die Zelle aus, auf der Sie den QR-Code erstellen möchten, und klicken Sie auf OK.

15. In dieser Sekunde Kutools for Excel Wählen Sie im Dialogfeld eine Zelle aus, in der der QR-Code platziert werden soll. Siehe Screenshot:

Dann wird der QR-Code sofort in die angegebene Zelle eingefügt. Wiederholen Sie die Schritte 14 bis 15, um den gesamten erstellten QR-Code abzuschließen. Siehe Screenshot:


Erstellen Sie ganz einfach mehrere QR-Codes in großen Mengen basierend auf Zellenwerten mit einem erstaunlichen Tool

Um ehrlich zu sein, ist die obige Methode nicht einfach zu handhaben, da sie ihre eigenen Einschränkungen hat. Hier sehr zu empfehlen QR-Code einfügen Merkmal von Kutools for Excel. Mit dieser Funktion können Sie QR-Codes basierend auf angegebenen Zellenwerten in Excel schnell und mit nur wenigen Klicks in großen Mengen einfügen. Bitte gehen Sie wie folgt vor, um dies zu erledigen.

Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.

1. Bereiten Sie zunächst Ihre Werte vor, auf deren Grundlage Sie einen QR-Code erstellen möchten.

2 Klicken Kutoolen > Insert > QR-Code einfügen.

Tipps: Wenn Sie die Funktion mit diesem Pfad nicht finden können, drücken Sie bitte die Andere + S Tasten gleichzeitig zum Öffnen der Suche nach Kutools-Funktionen Feld, manuell eingeben QR Code im Suchfeld, dann sehen Sie die QR-Code einfügen Funktion aufgeführt ist, klicken Sie einfach, um die Funktion zu aktivieren. Siehe Screenshot:

Jetzt wird der Bereich QR-Code einfügen auf der rechten Seite der Arbeitsmappe angezeigt.

3. In dem QR-Code einfügen Bereich müssen Sie wie folgt konfigurieren.

3.1) In der Datenreichweite Wählen Sie im Feld den Zellenbereich aus, der die Werte enthält, auf deren Grundlage Sie den QR-Code erstellen möchten.
3.2) In der Bereich einfügen Wählen Sie im Feld einen Bereich leerer Zellen aus, um den QR-Code auszugeben;
3.3) In der Optionen Abschnitt, konfigurieren Sie die Größe, Linienfarbe, Hintergrundfarbe und Fehlerkorrekturstufe für den QR-Code nach Bedarf;
Hinweis: Die Größe des QR-Codes darf 500 Pixel nicht überschreiten.
3.4) Klicken Sie auf Generieren Taste. Siehe Screenshot:

4. Dann a Kutools for Excel Das Dialogfeld wird angezeigt. Klicken Sie auf OK.

5. Dann werden gleichzeitig die QR-Codes erstellt. Sie müssen die manuell schließen QR-Code einfügen Bereich, wenn Sie alle QR-Codes erstellt haben.

Click to Erfahren Sie mehr über diese Funktion ...


In Verbindung stehender Artikel:

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (38)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible to make a payment qr code in excel?
f.e. In cell A1 I've an amout of 10 euro, and in cell B2 I want to have an qr code so anyone can pay me with the qr code?

Thanks.
This comment was minimized by the moderator on the site
Hi Ruben,

Thank you for reaching out with your question. While Kutools for Excel does feature QR code generation, creating a payment QR code directly in Excel for transactional purposes is beyond the scope of this feature. Payment QR codes usually require integration with financial services or payment platforms to ensure secure transactions. I recommend exploring services specifically designed for creating payment QR codes, such as those offered by banks or digital payment systems. These platforms can generate a QR code linked to your payment details securely. Once you have the payment QR code, you could then include it in your Excel document as an image.
This comment was minimized by the moderator on the site
Hello

The download link provided in step 4 appears to be only Microsoft Barcode Control 14.0. Can anyone suggest a correct link for 16.0 please?

Thank you.
This comment was minimized by the moderator on the site
1 Sheets waar in de cellen van de rij random QR codes binnen komen. Waarvan elke QR code automatisch de juiste Sheets openend?
Of de BVA commando codes van de Button om de koppeling maken naar een andere sheets.
Dan ben erg dankbaar voor.
(dit is voor vrijwilligerswerk)

Groetjes,
H. van Schaijk
This comment was minimized by the moderator on the site
Hi H. van Schaijk,
I can't fix this problem. Sorry about that.
This comment was minimized by the moderator on the site
Hi folks,
Below code works fine with me, which is linked to cell range & generates the QR at each row cell 5000 nos, however I would like to stop the QR object generation if the reference cell value is zero / otherway round should generate the QR at adjucent cell if the value at reference cell is more than zero or <>""

Please seek experts assistance!!

thank you in advance

Sub Gen_StockOut_QR()
MsgBox ("Will Generate QR Code for Stock_Out Items at In@Out Sheet")
Sheets("In@Out_Data").Select
ActiveSheet.Unprotect Password:=" "
'Column range set at QR_Code
Range("QR_Code").Select

For Each cell In Selection
'cell.Offset(0, 23).Select ' 1 indicates the position of excel column A1 from the formula/webaddress/site/characters to be used to generate QR code
cell.Offset(0, 0).Select

' My case QRCode is at column 24 hence 24 as column from A1, QR Size 100*100
FilePath = "http://chart.googleapis.com/chart?chs=100x100&&cht=qr&chl=" & WorksheetFunction.EncodeURL(cell.Value) ' here is the cell value

With ActiveSheet.Pictures.Insert(FilePath)
'.ShapeRange.ScaleWidth 0.95, msoFalse, msoScaleFromTopLeft
'.ShapeRange.ScaleHeight 0.95, msoFalse, msoScaleFromTopLeft

End With
Next cell
End Sub
This comment was minimized by the moderator on the site
Interesting article - thank you.  How do I remove the custom control from the list please?
This comment was minimized by the moderator on the site
Hi,Do you mean to remove the Form Control inserted in the VBA code method? If so, you just need to right click it (when there is a context menu listed, click anywhere outside it to hide the context menu), and then press Delete to remove it.
This comment was minimized by the moderator on the site
Olá! Para mim, nenhum dos comentários ou esse post funcionou corretamente, mas utilizando o Visual Basic com o código que deixarei abaixo funcionou, pois criou uma função para mim. E para usar a função é só abrir a planilha e digitar: "=QrCode("célula desejada")"




Function QrCode(codetext As String)
Dim URL As String, MyCell As Range
'Para gerar o código, precisa a máquina ter acesso a internet
Set MyCell = Application.Caller
URL = "https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=" & codetext
On Error Resume Next
ActiveSheet.Pictures("QR_" & MyCell.Address(False, False)).Delete
On Error GoTo 0
ActiveSheet.Pictures.Insert(URL).Select
With Selection.ShapeRange(1)
.PictureFormat.CropLeft = 15
.PictureFormat.CropRight = 15
.PictureFormat.CropTop = 15
.PictureFormat.CropBottom = 15
.Name = "QR_" & MyCell.Address(False, False)
.Left = MyCell.Left + 2
.Top = MyCell.Top + 2
End With
QrCode = ""
End Function
This comment was minimized by the moderator on the site
Wie lösche ich die QR Code Grafik wieder ? wenn ich mit den Skript Wie erstelle ich einen QR-Code basierend auf dem Zellenwert in Excel? einen QR Code erzeugt habe ?
This comment was minimized by the moderator on the site
Hi All,

I modified the VBA code for creation a multi QR codes from selection in excel column

Follow until step 10 then add this code

Sub setQR()

Dim xSRg As Range
Dim xRRg As Range
Dim xObjOLE As OLEObject
On Error Resume Next
Dim srcSelection As Range
Dim srcCell As String
For Each srcSelection In Application.Selection
Dim qrCelltoupdate As String
Dim qrTxt As String
qrCelltoupdate = srcSelection.Offset(0, 1).Address
qrTxt = srcSelection.Text
Worksheets("Sheet1").Range(qrCelltoupdate).Select
Application.ScreenUpdating = False
Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
xObjOLE.Object.Style = 11
xObjOLE.Object.Value = qrTxt
ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
ActiveSheet.Paste
xObjOLE.Delete
Next srcSelection
'Create Qr code from selection multi cells
End Sub


In step 12
Assign Macro
Chose: Sheet1.setQR

QR codes will be populated in next column

Hope that helps for you all
This comment was minimized by the moderator on the site
Hi ChavdarHarchev.
First of all thank You very much for Your nice work.

Is it possible for You to show how the VBA code looks like when it is finished?
Best regards
Pierre Galuszka.
This comment was minimized by the moderator on the site
Hi All,
I modified the VBA code for creation a multi QR codes from selection in excel column
Follow until step 10 then add this code
Sub setQR()

Dim xSRg As Range
Dim xRRg As Range
Dim xObjOLE As OLEObject
On Error Resume Next
Dim srcSelection As Range
Dim srcCell As String
For Each srcSelection In Application.Selection
Dim qrCelltoupdate As String
Dim qrTxt As String
qrCelltoupdate = srcSelection.Offset(0, 1).Address
qrTxt = srcSelection.Text
Worksheets("Sheet1").Range(qrCelltoupdate).Select
Application.ScreenUpdating = False
Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
xObjOLE.Object.Style = 11
xObjOLE.Object.Value = qrTxt
ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
ActiveSheet.Paste
xObjOLE.Delete
Next srcSelection
'Create Qr code from selection multi cells
End Sub


In step 12 Assign Macro Chose: Sheet1.setQR
QR codes will be populated in next column
Hope that helps for you all
This comment was minimized by the moderator on the site
I didn't have "Microsoft Barcode Control 16.0" so I down loaded per instruction. And open Excel with Admin mode. Then try to "Register Custom" . But I opened Barcode control folder and select MSBCODE964,OCX. Then there is error message came out. It said "The selected file does not contain self-registrating ActiveX control". What it means? What is the problem. And how can I install that?
This comment was minimized by the moderator on the site
1)Click File > Options.

2)Click Trust Center > Trust Center Settings > ActiveX Settings.

Click the options below, and then click OK.
* Enable all controls without restrictions and without prompting (not recommended)
3)Click Ok
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations