Gå til hovedindhold

Hvordan oprettes qr-kode baseret på celleværdi i Excel?

Ved du, hvordan du opretter QR-kode baseret på specifik celleværdi i Excel? Denne artikel viser dig en metode til at opnå det i detaljer.

Opret QR-kode baseret på celleværdi med stregkodekontrol og VBA-kode
Opret nemt flere QR -koder i bulk baseret på celleværdier med et fantastisk værktøj


Opret QR-kode baseret på celleværdi med stregkodekontrol og VBA-kode

Stregkodekontrol kan hjælpe dig med hurtigt at oprette QR-kode baseret på celleværdi i Excel. Gør som følger.

1. Åbn regnearket indeholder den celleværdi, du opretter QR-kode baseret på.

2. klik Udvikler > indsatte > Mere kontrol. Se skærmbillede:

3. i Flere kontroller vindue, skal du kontrollere for Microsoft stregkodestyring 16.0 or Microsoft stregkodestyring 15.0.

4. Hvis du ikke fandt stregkodekontrol i vinduet Flere kontrolelementer, eller hvis stregkodekontrol ikke er 16.0 eller 15.0, skal du downloade stregkodekontrolfilen ved at klikke på disse links: download stregkodekontrol. Hvis der er stregkodekontrol 16.0 eller 15.0 i dit More Controls-vindue, skal du bare springe nedenunder trin 10.

Efter download af filen, skal du pakke den ud og opdatere stregkodekontrol med den downloadede stregkodekontrol i din Excel som følger.

5. Luk alle dine Excel-projektmapper, gå til Starten sektion, find Excel app og højreklik på den, og vælg derefter Kør som administrator fra genvejsmenuen. Se skærmbillede:

6. I åbningen User Account Control dialogboksen, skal du klikke på knappen Ja .

7. Derefter oprettes en ny projektmappe. Klik venligst Udvikler > indsatte > Mere kontrol. Se skærmbillede:

8. i Flere kontroller vindue, skal du klikke på Registrer brugerdefineret knappen, find og vælg en af ​​de downloadede QR-kode OCX-filer, og klik derefter på Åbne knap. Se skærmbillede:

9. Klik på OK knappen, når den returnerer Flere kontroller vindue for at afslutte opdateringen af ​​stregkodekontrol. Åbn derefter projektmappen igen med de celleværdier, du opretter QR-koder baseret på.

10. Højreklik på arkfanen, og klik Vis kode fra genvejsmenuen for at åbne Microsoft Visual Basic til applikationer vindue. Kopier og indsæt derefter under VAB-kode i kodevinduet. Og til sidst skal du trykke på andre + Q taster for at afslutte Microsoft Visual Basic til applikationer vindue.

VBA-kode: Opret QR-kode i 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. klik Udvikler > indsatte > Knap (formkontrol) som vist nedenstående skærmbillede.

12. Tegn en knap til det aktuelle regneark. I pop op Tildel makro dialog, vælg sætQR i feltet, og klik derefter på OK .

13. Sluk for Design Mode ved at klikke Udvikler > Design Mode.

14. Klik på knappen i åbningen Kutools til Excel dialog, skal du vælge den celle, du vil oprette QR-kode baseret på, og klikke på OK.

15. I det andet Kutools til Excel dialog, skal du vælge en celle for at placere QR-koden. Se skærmbillede:

Derefter indsættes QR-koden med det samme i den angivne celle. Gentag trin 14 til 15 for at afslutte al oprettet QR-kode. Se skærmbillede:


Opret nemt flere QR -koder i bulk baseret på celleværdier med et fantastisk værktøj

For at være ærlig er ovenstående metode ikke let at håndtere, da den har sin egen begrænsning. Her anbefales stærkt Indsæt QR-kode træk ved Kutools til Excel. Denne funktion kan hjælpe dig med hurtigt at indsætte QR -koder i bulk baseret på angivne celleværdier i Excel med kun flere klik. Gør venligst følgende for at få det gjort.

Før påføring Kutools til Excel, Bedes download og installer det først.

1. Forbered for det første dine værdier, som du vil oprette QR -kode baseret på.

2. klik Kutools > indsatte > Indsæt QR-kode.

tips: Hvis du ikke kan finde funktionen med denne sti, skal du trykke på andre + S taster samtidigt for at åbne Søg efter Kutools-funktioner boks, indtast manuelt QR kode i søgefeltet, så kan du se Indsæt QR-kode funktionen er angivet, klikker du bare for at aktivere funktionen. Se skærmbillede:

Nu vises ruden Indsæt QR -kode i højre side af projektmappen.

3. i Indsæt QR-kode ruden skal du konfigurere som følger.

3.1) I Dataregment boks, vælg celleområdet, der indeholder de værdier, du vil oprette QR -kode baseret på;
3.2) I Indsæt rækkevidde vælg en række tomme celler for at udsende QR -koden;
3.3) I Indstillinger sektion, konfigurer størrelse, stregfarve, baggrundsfarve , Fejlrettelsesniveau til QR -koden, som du har brug for;
Bemærk: Størrelsen på QR -koden må ikke overstige 500 pixels.
3.4) Klik på Generer knap. Se skærmbillede:

4. Derefter a Kutools til Excel dialogboksen dukker op, skal du klikke OK.

5. Derefter oprettes QR -koderne på samme tid. Du skal lukke manuelt Indsæt QR-kode rude, hvis du er færdig med at oprette alle QR -koder.

Klik på ved mere om denne funktion ...


Relateret artikel:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver 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