Ga naar hoofdinhoud

Hoe maak je QR-code op basis van celwaarde in Excel?

Weet u hoe u een QR-code kunt maken op basis van een specifieke celwaarde in Excel? Dit artikel laat je een methode zien om dit in detail te bereiken.

Maak een QR-code op basis van de celwaarde met Barcode Control en VBA-code
Maak eenvoudig meerdere QR-codes in bulk op basis van celwaarden met een geweldige tool


Maak een QR-code op basis van de celwaarde met Barcode Control en VBA-code

Met de streepjescodecontrole kunt u snel QR-code maken op basis van de celwaarde in Excel. Ga als volgt te werk.

1. Open het werkblad met de celwaarde waarop u een QR-code wilt maken.

2. klikken Ontwikkelaar > Invoegen > Meer controle. Zie screenshot:

3. In de Meer bedieningselementen venster, controleer of het Microsoft Barcode Controle 16.0 or Microsoft Barcode Controle 15.0.

4. Als u het streepjescodebeheer niet in het venster Meer bedieningselementen hebt gevonden of als het streepjescodebeheer niet de 16.0 of 15.0 heeft, moet u het streepjescodebeheerbestand downloaden door op deze links te klikken: download barcode controle. Als er Barcode Control 16.0 of 15.0 in uw More Controls-venster staat, gaat u gewoon naar beneden stap 10.

Na het downloaden van het bestand, pakt u het uit en werkt u de Barcode Control als volgt bij met de gedownloade barcode controle in uw Excel.

5. Sluit al uw Excel-werkmappen, ga naar het Start sectie, zoek de Excel app en klik er met de rechtermuisknop op en selecteer Als administrator uitvoeren vanuit het contextmenu. Zie screenshot:

6. In de opening User Account Control dialoogvenster, klik op de Ja knop.

7. Vervolgens wordt een nieuwe werkmap gemaakt. Klik alstublieft Ontwikkelaar > Invoegen > Meer controle. Zie screenshot:

8. In de Meer bedieningselementen venster klikt Registreer Custom , zoek en selecteer een van de gedownloade qr code OCX-bestanden en klik vervolgens op het Openen knop. Zie screenshot:

9. Klik op het OK knop wanneer het terug de Meer bedieningselementen venster om de Barcode Control bijgewerkt te voltooien. Open vervolgens de werkmap opnieuw met de celwaarden waarop u QR-codes gaat maken op basis van.

10. Klik met de rechtermuisknop op de bladtab en klik Bekijk code vanuit het contextmenu om het Microsoft Visual Basic voor toepassingen venster. Kopieer en plak vervolgens onderstaande VAB-code in het codevenster. En druk ten slotte op de anders + Q toetsen om het Microsoft Visual Basic voor toepassingen venster.

VBA-code: maak een 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. klikken Ontwikkelaar > Invoegen > Knop (formulierbeheer) zoals hieronder getoond screenshot.

12. Teken een knop in het huidige werkblad. Bij het opduiken Wijs macro toe dialoogvenster, selecteer setQR in het vak en klik vervolgens op het OK knop.

13. Zet de ... uit Ontwerpmodus door te klikken Ontwikkelaar > Ontwerpmodus.

14. Klik op de knop in de opening Kutools for Excel dialoogvenster, selecteer de cel waarop u een QR-code wilt maken en klik op OK.

15. In de tweede Kutools for Excel Selecteer een cel om de QR-code te plaatsen. Zie screenshot:

Vervolgens wordt de QR-code onmiddellijk in de opgegeven cel ingevoegd. Herhaal stap 14 tot 15 om alle gemaakte QR-codes te voltooien. Zie screenshot:


Maak eenvoudig meerdere QR-codes in bulk op basis van celwaarden met een geweldige tool

Om eerlijk te zijn, de bovenstaande methode is niet gemakkelijk te hanteren omdat deze zijn eigen beperking heeft. Hier ten zeerste aanbevolen de? QR-code invoegen kenmerk van Kutools for Excel. Met deze functie kunt u snel QR-codes in bulk invoegen op basis van opgegeven celwaarden in Excel met slechts enkele klikken. Ga als volgt te werk om het voor elkaar te krijgen.

Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.

1. Bereid eerst uw waarden voor waarop u een QR-code wilt maken op basis van.

2. klikken Kutools > Invoegen > QR-code invoegen.

Tips: Als u de functie met dit pad niet kunt vinden, drukt u op de anders + S toetsen tegelijkertijd om het Zoek Kutools-functies vak, handmatig typen QR Code in het zoekvak, dan zie je de QR-code invoegen functie wordt weergegeven, klik gewoon om de functie te activeren. Zie screenshot:

Nu wordt het deelvenster QR-code invoegen weergegeven aan de rechterkant van de werkmap.

3. In de QR-code invoegen paneel, moet u als volgt configureren.

3.1) In de Data bereik selecteer het celbereik met de waarden waarop u de QR-code wilt maken op basis van;
3.2) In de Bereik invoegen selecteer een reeks lege cellen om de QR-code uit te voeren;
3.3) In de Opties sectie, configureer de grootte, lijnkleur, achtergrondkleur en Foutcorrectieniveau voor de QR-code als je nodig hebt;
Opmerking: De grootte van de QR-code mag niet groter zijn dan 500 pixels.
3.4) Klik op de Genereer knop. Zie screenshot:

4. Vervolgens een Kutools for Excel dialoogvenster verschijnt, klik op OK.

5. Vervolgens worden tegelijkertijd de QR-codes aangemaakt. U moet de . handmatig sluiten QR-code invoegen deelvenster als u klaar bent met het maken van alle QR-codes.

Klik om te meer weten over deze functie...


Gerelateerd artikel:

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
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