Salt la conținutul principal

Generarea codului QR în Excel (ghid ușor cu metode complete)

Autor: Siluvia Ultima modificare: 2024-05-14

În era digitală de astăzi, codurile QR au devenit un instrument esențial pentru partajarea rapidă și eficientă a informațiilor. Acest ghid explorează diferite tehnici pentru a crea coduri QR direct în Excel, indiferent dacă utilizați cel mai recent Excel 365 sau versiuni anterioare. Până la sfârșitul acestui articol, veți fi bine echipat pentru a integra codurile QR în proiectele dvs. Excel fără probleme.

Generarea codurilor QR în Excel 365

Excel 365 își îmbunătățește capacitățile cu funcții precum IMAGE și LAMBDA, permițând utilizatorilor să genereze coduri QR în mod dinamic. Această secțiune vă va arăta cum să generați coduri QR utilizând funcțiile IMAGINE sau LAMBDA din Excel 365.

Folosind funcția IMAGINE

În acest exemplu, vom folosi funcția IMAGINE pentru a genera coduri QR care conțin link-uri către următoarele site-uri web.

  1. Selectați o celulă în care doriți să apară codul QR. Aici selectez D3 pentru a afișa un cod QR care conține un link către Extendoffice site-ul web.
  2. Introduceți următoarea formulă și apăsați Intrați pentru a obține codul QR. 
    =IMAGE("https://quickchart.io/qr?text=" & ENCODEURL(C3))
  3. Selectați această celulă de formulă, faceți dublu clic pe colțul din dreapta jos (pătratul verde) al celulei pentru a obține restul codurilor QR.
notițe:
  • În formulă, vă rugăm să înlocuiți C3 cu referința celulei care conține textul pe care doriți să îl codificați în codul QR.
  • Codul QR se va actualiza automat dacă conținutul din celula referită se modifică.
  • Această formulă poate fi folosită și pentru a genera coduri QR în Foi de calcul Google.
  • QuickChart.io oferă un API simplu pentru a genera coduri QR. Adresa URL de bază pentru generarea codurilor QR este https://quickchart.io/qr?text=.

Folosind funcția LAMBDA

Pentru mulți utilizatori Excel, amintirea formulelor complexe poate fi o provocare. În această secțiune, voi demonstra cum să utilizați Funcția LAMBDA pentru a crea o funcție personalizată și reutilizabilă pe baza celor menționate anterior formula IMAGINE. Acest lucru vă va permite să utilizați o funcție mai simplă, definită de utilizator pentru a genera coduri QR în Excel în viitor.

Pasul 1: definiți un nume folosind funcția LAMBDA
  1. Du-te la Formule fila și faceți clic pe Definiți numele în Nume definite grup.
  2. În pop-up Editeaza numele casetă de dialog, trebuie să configurați după cum urmează.
    1. În Nume si Prenume casetă, dați un nume formulei LAMBDA. Aici îl numesc ca fnGetQRCode.
    2. În Se refera la caseta, introduceți următoarea formulă. 
      =LAMBDA(text, IMAGE("https://quickchart.io/qr?text=" & ENCODEURL(text) & "&size=150"))
    3. Clic OK pentru a salva numele definit. Vedeți captura de ecran:
      notițe:
      • În formulă, 150 este dimensiunea implicită în pixeli pentru imaginea codului QR. Puteți ajusta această valoare după cum este necesar, dar rețineți că dimensiunea reală de afișare a codului QR generat în Excel va fi determinată de dimensiunea celulei.
      • Pentru a afla mai multe despre funcția LAMBDA, vizitați această pagină: Funcția Excel LAMBDA (365).
Pasul 2: Aplicați funcția definită de utilizator pentru a genera coduri QR
  1. Selectați o celulă în care doriți să apară codul QR. Aici selectez D3 pentru a afișa un cod QR care conține un link către Extendoffice site-ul web.
  2. Introduceți următoarea formulă și apăsați Intrați pentru a obține codul QR. 
    =fnGetQRCode(C3)
  3. Selectați această celulă de formulă, faceți dublu clic pe colțul din dreapta jos (pătratul verde) al celulei pentru a obține restul codurilor QR.
    notițe:
    • În formula:
      • fnGetQRCode este numele pe care l-ați definit la pasul 1.
      • Vă rugăm să înlocuiți C3 cu referința celulei care conține textul pe care doriți să îl codificați în codul QR.
    • Codul QR se va actualiza automat dacă conținutul din celula referită se modifică.

Generarea de coduri QR în toate versiunile Excel

Pentru utilizatorii care nu au acces la Excel 365, există încă opțiuni de încredere pentru a genera coduri QR prin suplimente și instrumente externe, făcând această funcționalitate accesibilă în toate versiunile de Excel.

Folosind suplimentele încorporate Excel pentru a genera coduri QR unul câte unul

Add-in-uri Excel ca QR4Office oferă o alternativă robustă care este compatibilă cu mai multe versiuni de Excel. Această metodă permite personalizarea detaliată a codurilor QR și este ideală pentru utilizatorii care au nevoie să genereze coduri sporadic în documentele lor.

Pasul 1: Instalați suplimentul QR4Office
  1. Mergi la pagina Insera > Obțineți suplimente.
    notițe: Dacă nu vedeți Obțineți suplimente comanda sub Insera fila din panglică, va trebui să o adăugați manual. Mai jos sunt pașii pentru a adăuga această comandă la Bara de instrumente pentru acces rapid:
    1. Apasă pe Personalizați bara de instrumente cu acces rapid săgeată derulantă și selectați Mai multe comenzi din meniu.
    2. În Opțiunile pentru Word fereastră:
      1. Selectați Comenzile nu sunt în panglică de la Alege comanda din lista verticală.
      2. Găsiți și selectați Obțineți suplimente în lista de comenzi din stânga.
      3. Apasă pe Adăuga butonul ( Obțineți suplimente comanda va fi adăugată în panoul din dreapta).
      4. Clic OK pentru a salva modificările. Vedeți captura de ecran:
    3. Obțineți suplimente comanda este acum adăugată la Bara de instrumente pentru acces rapid. Puteți face clic pe el pentru a deschide Suplimente Office magazin.
  2. În Suplimente Office magazin:
    1. Tip "QR4Office" în caseta de căutare și apăsați Intrați.
    2. Odată ce QR4Office apare programul de completare, faceți clic pe Adăuga butonul pentru a-l instala.
  3. În următoarea casetă de prompt, faceți clic A continua.
Pasul 2: utilizați programul de completare QR4Office pentru a genera codul QR

Odată instalat, QR4Office panoul se va deschide automat în partea dreaptă a registrului de lucru, permițându-vă să generați codul QR după cum urmează.

  1. Selectați celula care conține textul sau linkul pe care doriți să îl codificați în codul QR.
    În acest caz, pentru a atașa un link către Extendoffice site, selectez celula C3 care conține adresa URL.
  2. Apasă pe Copiați selecția curentă a documentului butonul pentru a transfera conținutul celulei în câmpurile QR4Office.
    varful: Alternativ, puteți selecta fie URL, fie Tipul de text din lista derulantă și puteți introduce manual informațiile necesare în caseta de text.
  3. În Opţiuni secțiunea, puteți personaliza opțional aspectul codului QR selectând culoarea, fundalul și dimensiunea sau păstrând setările implicite.
  4. Selectați celula de destinație pentru codul QR. Aici selectez D3.
  5. Clic Insera pentru a plasa codul QR în celula selectată. Vedeți captura de ecran:
  6. Repetați cei 5 pași de mai sus pentru a genera alte coduri QR.

Folosind Kutools pentru Excel pentru a genera coduri QR în vrac

De asemenea, un supliment, Kutools pentru Excel oferă un avantaj distinct față de QR4Office prin capacitatea sa de a genera coduri QR în loturi într-o gamă selectată. The Introduceți codul QR caracteristică a Kutools pentru Excel este deosebit de valoroasă pentru utilizatorii care trebuie să creeze mai multe coduri QR în mod eficient. Automatizează procesul în mai multe celule, economisind timp și minimizând erorile de introducere manuală.

După instalarea Kutools pentru Excel, mergeți la selectare Kutools > Insera > Introduceți codul QR pentru a deschide Introduceți codul QR panoul, apoi puteți genera coduri QR în bloc, după cum urmează:

  1. În Interval de date câmp, selectați intervalul de celule care conține textul sau linkul pe care doriți să îl codificați în codul QR.
  2. În Inserați gama câmp, selectați o serie de celule pentru a plasa codurile QR corespunzătoare.
  3. În Opţiuni secțiunea, puteți personaliza opțional aspectul codului QR specificând dimensiunea, culoarea liniei etc. sau păstrând setările implicite.
  4. Apasă pe Genera butonul pentru a genera coduri QR pentru toate celulele selectate simultan.
notițe: Înainte de a utiliza această caracteristică, asigurați-vă că Kutools pentru Excel este instalat. Descărcați acum o perioadă de încercare gratuită de 30 de zile cu funcții complete ale Kutools pentru Excel!

Generarea codurilor QR în Excel este simplă, indiferent dacă utilizați capabilitățile avansate ale Excel 365 sau vă bazați pe programe de completare disponibile pentru toate versiunile. Urmând pașii prezentați în acest ghid, puteți integra eficient codurile QR în foile dvs. Excel, îmbunătățind interactivitatea și accesibilitatea datelor dvs. Explorați aceste metode pentru a găsi cea care se potrivește cel mai bine nevoilor dvs. și pentru a vă simplifica fluxul de lucru în moduri noi și inovatoare. Pentru cei dornici să aprofundeze capacitățile Excel, site-ul nostru web se mândrește cu o mulțime de tutoriale. Descoperiți mai multe sfaturi și trucuri Excel aici.

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 instrumente:  12 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!
Ruben
Ruben
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.
Reply
0
0
crystal
crystal     Ruben
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.
Reply
Report
0
0
Siri
Siri
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.
Reply
0
0
H. van Schaijk
H. van Schaijk
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
Reply
0
0
crystal
crystal     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.
Reply
Report
0
0
Rajendra Narayan Panshikar
Rajendra Narayan Panshikar
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
Reply
0
0
mcscouse
mcscouse
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?
Reply
Report
0
0
crystal
crystal     mcscouse
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.
Reply
Report
0
0
Lucas Roberto
Lucas Roberto
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
Reply
0
0
Jörg
Jörg
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 ?
Reply
0
0
ChavdarHarchev
ChavdarHarchev
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
Reply
Report
0
0
Pierre Galuszka
Pierre Galuszka     ChavdarHarchev
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.
Reply
0
0
Chavdar
Chavdar
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
Reply
0
0
Mayank Kumar
Mayank Kumar
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?
Reply
0
0
ChavdarHarchev
ChavdarHarchev     Mayank Kumar
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
Reply
Report
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations