Preskoči na glavno vsebino

Kako ustvariti qr kodo na podlagi vrednosti celice v Excelu?

Ali veste, kako ustvariti kodo QR na podlagi določene vrednosti celice v Excelu? Ta članek vam bo podrobno prikazal način, kako to doseči.

Ustvarite QR kodo na podlagi vrednosti celice s črtno kodo in kodo VBA
Preprosto ustvarite več kod QR v velikem obsegu na podlagi vrednosti celic z neverjetnim orodjem


Ustvarite QR kodo na podlagi vrednosti celice s črtno kodo in kodo VBA

Nadzor črtne kode vam lahko pomaga hitro ustvariti kodo QR na podlagi vrednosti celice v Excelu. Naredite naslednje.

1. Odprite delovni list, ki vsebuje vrednost celice, na podlagi katere boste ustvarili kodo QR.

2. klik Razvojni > Vstavi > Več nadzora. Oglejte si posnetek zaslona:

3. V Ljubljani Več kontrol okno, preverite Microsoftov nadzor črtne kode 16.0 or Microsoftov nadzor črtne kode 15.0.

4. Če v oknu Več kontrolnikov niste našli nadzora črtne kode ali nadzor črtne kode ne ustreza 16.0 ali 15.0, morate datoteko za nadzor črtne kode prenesti s klikom na te povezave: naloži nadzor črtne kode. Če je v oknu Več kontrolnikov črtna koda 16.0 ali 15.0, preprosto pojdite spodaj korak 10.

Po prenosu datoteke jo razpakirajte in nato posodobite nadzor črtne kode s prenesenim kontrolnikom črtne kode v Excelu, kot sledi.

5. Zaprite vse Excelove delovne zvezke, pojdite na Začetek razdelek, poiščite Excel in z desno miškino tipko kliknite nanjo, nato izberite Zaženi kot skrbnik iz kontekstnega menija. Oglejte si posnetek zaslona:

6. Na odprtju User Account Control pogovorno okno, kliknite na Da gumb.

7. Nato se ustvari nov delovni zvezek. Prosim kliknite Razvojni > Vstavi > Več nadzora. Oglejte si posnetek zaslona:

8. V Ljubljani Več kontrol okno, kliknite Registrirajte po meri , poiščite in izberite eno od prenesenih datotek qr kodo OCX in nato kliknite Odprto . Oglejte si posnetek zaslona:

9. Kliknite OK , ko vrne Več kontrol okno za dokončanje posodobitve nadzora črtne kode. Nato znova odprite delovni zvezek, v katerem so vrednosti celic, na podlagi katerih boste ustvarili kode QR.

10. Z desno miškino tipko kliknite jeziček lista in kliknite Ogled kode iz kontekstnega menija, da odprete Microsoft Visual Basic za aplikacije okno. Nato kopirajte in prilepite spodnjo kodo VAB v okno Code. In končno pritisnite druga + Q tipke za izhod iz Microsoft Visual Basic za aplikacije okno.

Koda VBA: ustvarite kodo QR v Excelu

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 Razvojni > Vstavi > Gumb (nadzor obrazca) kot je prikazano spodaj.

12. Narišite gumb na trenutni delovni list. V pojavnem oknu Dodeli makro dialog, izberite nastaviteQR v polje in nato kliknite OK gumb.

13. Izklopite Način oblikovanja s klikom Razvojni > Način oblikovanja.

14. V odprtini kliknite gumb Kutools za Excel v pogovornem oknu izberite celico, na podlagi katere boste ustvarili kodo QR, in kliknite OK.

15. V drugem Kutools za Excel v pogovornem oknu izberite celico, v katero želite postaviti QR kodo. Oglejte si posnetek zaslona:

Nato bo QR koda takoj vstavljena v določeno celico. Ponovite korake 14 do 15, da dokončate vse ustvarjene QR kode. Oglejte si posnetek zaslona:


Preprosto ustvarite več kod QR v velikem obsegu na podlagi vrednosti celic z neverjetnim orodjem

Če sem iskren, zgornje metode ni enostavno obravnavati, saj ima svoje omejitve. Tukaj zelo priporočam Vstavite kodo QR značilnost Kutools za Excel. Ta funkcija vam lahko pomaga hitro vstaviti kode QR v velikem obsegu na podlagi določenih vrednosti celic v Excelu samo z več kliki. Če želite to narediti, naredite naslednje.

Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.

1. Najprej pripravite svoje vrednosti, na podlagi katerih želite ustvariti QR kodo.

2. klik Kutools > Vstavi > Vstavite kodo QR.

Nasvet: Če funkcije s to potjo ne najdete, pritisnite tipko druga + S tipke hkrati, da odprete Poiščite funkcije Kutools polje, ročno vnesite QR koda v iskalnem polju, nato pa lahko vidite Vstavite kodo QR funkcija je na seznamu, samo kliknite, da jo aktivirate. Oglejte si posnetek zaslona:

Zdaj se na desni strani delovnega zvezka prikaže podokno Vstavi kodo QR.

3. V Ljubljani Vstavite kodo QR podokno, morate nastaviti na naslednji način.

3.1) V Obseg podatkov polje, izberite obseg celic, ki vsebujejo vrednosti, na podlagi katerih želite ustvariti QR kodo;
3.2) V Vstavi obseg polje, izberite obseg praznih celic za prikaz QR kode;
3.3) V možnosti razdelku, konfigurirajte velikost, barva črte, barva ozadja in Raven odprave napak za kodo QR, kot jo potrebujete;
Opomba: Velikost kode QR ne sme presegati 500 slikovnih pik.
3.4) Kliknite Ustvarjajo . Oglejte si posnetek zaslona:

4. Nato a Kutools za Excel odpre se pogovorno okno, kliknite OK.

5. Nato se hkrati ustvarijo QR kode. Zaprti morate ročno Vstavite kodo QR podokno, če dokončate ustvarjanje vseh kod QR.

Klikni za izvedeti več o tej funkciji ...


Povezani članek:

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (37)
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
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