Salt la conținutul principal

Cum se creează codul qr pe baza valorii celulei din Excel?

Știți cum să creați cod QR bazat pe valoarea specifică a celulei din Excel? Acest articol vă va arăta o metodă de realizare în detalii.

Creați cod QR pe ​​baza valorii celulei cu Controlul codului de bare și codul VBA
Creați cu ușurință mai multe coduri QR în bloc pe baza valorilor celulei cu un instrument uimitor


Creați cod QR pe ​​baza valorii celulei cu Controlul codului de bare și codul VBA

Controlul codului de bare vă poate ajuta să creați rapid cod QR pe ​​baza valorii celulei din Excel. Vă rugăm să faceți următoarele.

1. Deschideți foaia de lucru conține valoarea celulei pe care veți crea codul QR bazat pe.

2. clic Dezvoltator > Insera > Mai mult control. Vedeți captura de ecran:

3. În Mai multe controale fereastră, verificați dacă Control cod de bare Microsoft 16.0 or Control cod de bare Microsoft 15.0.

4. Dacă nu ați găsit Controlul codului de bare în fereastra Mai multe controale sau Controlul codului de bare nu este 16.0 sau 15.0, trebuie să descărcați fișierul de control al codurilor de bare făcând clic pe următoarele legături: descărcați controlul codului de bare. Dacă există un cod de bare 16.0 sau 15.0 în fereastra Mai multe controale, trebuie doar să treceți mai jos pasul 10.

După descărcarea fișierului, dezarhivați-l și apoi actualizați Controlul codului de bare cu controlul codului de bare descărcat în Excel, după cum urmează.

5. Închideți toate registrele de lucru Excel, accesați acasă secțiune, găsiți Excel aplicație și faceți clic dreapta pe ea, apoi selectați Executare ca administrator din meniul contextual. Vedeți captura de ecran:

6. În deschidere Control cont utilizator , faceți clic pe Da butonul.

7. Apoi se creează un nou registru de lucru. Vă rugăm să faceți clic pe Dezvoltator > Insera > Mai mult control. Vedeți captura de ecran:

8. În Mai multe controale fereastră, faceți clic pe Înregistrați-vă personalizat buton, găsiți și selectați unul dintre fișierele OCX cod qr descărcate și apoi faceți clic pe Operatii Deschise buton. Vedeți captura de ecran:

9. Faceți clic pe OK butonul când revine butonul Mai multe controale fereastra pentru a finaliza Controlul codului de bare actualizat. Apoi redeschideți registrul de lucru conține valorile celulei pe care veți crea coduri QR bazate pe.

10. Faceți clic dreapta pe fila foi și faceți clic pe Afișați codul din meniul contextual pentru a deschide fișierul Microsoft Visual Basic pentru aplicații fereastră. Apoi copiați și lipiți sub codul VAB în fereastra Cod. Și, în cele din urmă, apăsați pe Alt + Q tastele pentru a ieși din Microsoft Visual Basic pentru aplicații fereastră.

Cod VBA: creați cod QR în 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. clic Dezvoltator > Insera > Buton (Control formular) după cum se arată în imaginea de mai jos.

12. Desenați un buton în foaia de lucru curentă. În pop-up Atribuiți macro , selectați setQR în casetă și apoi faceți clic pe OK butonul.

13. Opriți Mod de proiectare dând clicuri Dezvoltator > Mod de proiectare.

14. Faceți clic pe butonul din deschidere Kutools pentru Excel , selectați celula pe care veți crea codul QR și faceți clic pe OK.

15. În al doilea Kutools pentru Excel , selectați o celulă pentru a plasa codul QR. Vedeți captura de ecran:

Apoi, codul QR va fi introdus imediat în celula specificată. Repetați pașii de la 14 la 15 pentru a termina toate codurile QR create. Vedeți captura de ecran:


Creați cu ușurință mai multe coduri QR în bloc pe baza valorilor celulei cu un instrument uimitor

Pentru a fi sincer, metoda de mai sus nu este ușor de manevrat, deoarece are propria limitare. Aici foarte recomandat Introduceți codul QR caracteristică a Kutools pentru Excel. Această caracteristică vă poate ajuta să inserați rapid coduri QR în bloc pe baza valorilor de celule specificate în Excel numai cu câteva clicuri. Vă rugăm să faceți următoarele pentru a face acest lucru.

Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.

1. În primul rând, pregătiți-vă valorile pe care doriți să creați codul QR bazat pe.

2. clic Kutools > Insera > Introduceți codul QR.

Sfat: Dacă nu puteți găsi caracteristica cu această cale, apăsați pe Alt + S tastele simultan pentru a deschide Căutați funcțiile Kutools casetă, tastați manual QR Code în caseta de căutare, puteți vedea fișierul Introduceți codul QR caracteristica este listată, trebuie doar să faceți clic pentru a activa caracteristica. Vedeți captura de ecran:

Acum, panoul Inserare cod QR este afișat în partea dreaptă a registrului de lucru.

3. În Introduceți codul QR , trebuie să configurați după cum urmează.

3.1) În Interval de date caseta, selectați gama de celule care conțin valorile pe care doriți să creați codul QR bazat pe;
3.2) În Inserați gama caseta, selectați o gamă de celule goale pentru a afișa codul QR;
3.3) În Opţiuni , configurați fișierul dimensiune, culoare linie, culoare fundal și Nivel de corectare a erorilor pentru codul QR după cum aveți nevoie;
Notă: Dimensiunea codului QR nu poate depăși 500 de pixeli.
3.4) Faceți clic pe Genera buton. Vedeți captura de ecran:

4. Apoi a Kutools pentru Excel apare fereastra de dialog, faceți clic pe OK.

5. Apoi, codurile QR sunt create în același timp. Trebuie să închideți manual fișierul Introduceți codul QR dacă finalizați crearea tuturor codurilor QR.

Click pentru a aflați mai multe despre această caracteristică ...


Articol asociat:

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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