Μετάβαση στο κύριο περιεχόμενο

Δημιουργία κώδικα QR στο Excel (εύκολος οδηγός με πλήρεις μεθόδους)

Συγγραφέας: Siluvia Τελευταία τροποποίηση: 2024-05-13

In today’s digital age, QR codes have become an essential tool for sharing information quickly and efficiently. This guide explores different techniques to create QR codes directly within Excel, whether you are using the latest Excel 365 or earlier versions. By the end of this article, you will be well-equipped to integrate QR codes into your Excel projects seamlessly.


Generating QR codes in Excel 365

Excel 365 enhances its capabilities with functions like ΕΙΚΌΝΑ και LAMBDA, allowing users to generate QR codes dynamically. This section will show you how to generate QR codes using the IMAGE or LAMBDA functions in Excel 365.


Using the IMAGE function

In this example, we are going to use the IMAGE function to generate QR codes containing links to the following websites.

  1. Select a cell where you want the QR code to appear. Here I select D3 to display a QR code containing a link to the Extendoffice ιστοσελίδα.
  2. Enter the following formula and press εισάγετε to get the QR code.
    =IMAGE("https://quickchart.io/qr?text=" & ENCODEURL(C3))
  3. Select this formula cell, double click the bottom right corner (the green square) of the cell to get the rest of QR codes.
Note:
  • In the formula, please replace C3 with the cell reference that contains the text you want to encode in the QR code.
  • The QR code will automatically update if the content in the referenced cell changes.
  • This formula can also be used to generate QR codes in Google Sheets.
  • QuickChart.io provides a simple API to generate QR codes. The base URL for generating QR codes is https://quickchart.io/qr?text=.

Using the LAMBDA function

For many Excel users, remembering complex formulas can be challenging. In this section, I'll demonstrate how to utilize the Λειτουργία LAMBDA to create a custom and reusable function based on the previously mentioned IMAGE formula. This will allow you to use a simpler, user-defined function to generate QR codes in Excel in the future.

Step 1: defined a name using the LAMBDA function
  1. Πηγαίνετε στο ΜΑΘΗΜΑΤΙΚΟΙ τυποι καρτέλα και κάντε κλικ στο κουμπί Ορίστε το όνομα στο Καθορισμένα ονόματα ομάδα.
  2. Στο αναδυόμενο Επεξεργασία ονόματος πλαίσιο διαλόγου, πρέπει να διαμορφώσετε ως εξής.
    1. Στο Όνομα box, give a name to the LAMBDA formula. Here I name it as fnGetQRCode.
    2. Στο Αναφέρεται σε box, enter the following formula.
      =LAMBDA(text, IMAGE("https://quickchart.io/qr?text=" & ENCODEURL(text) & "&size=150"))
    3. Πατήστε OK to save the defined name. See screenshot:
      Notes:
      • Στον τύπο, 150 is the default pixel size for the QR code image. You can adjust this value as needed, but remember that the actual display size of the generated QR code in Excel will be determined by the size of the cell.
      • To know more about the LAMBDA function, visit this page: Συνάρτηση Excel LAMBDA (365).
Step 2: Apply the user-defined function to generate QR codes
  1. Select a cell where you want the QR code to appear. Here I select D3 to display a QR code containing a link to the Extendoffice ιστοσελίδα.
  2. Enter the following formula and press εισάγετε to get the QR code.
    =fnGetQRCode(C3)
  3. Select this formula cell, double click the bottom right corner (the green square) of the cell to get the rest of QR codes.
    Notes:
    • Στον τύπο:
      • fnGetQRCode is the name you defined in step 1.
      • Παρακαλώ αντικαταστήστε C3 with the cell reference that contains the text you want to encode in the QR code.
    • The QR code will automatically update if the content in the referenced cell changes.

Generating QR codes in all Excel versions

For users without access to Excel 365, there are still reliable options to generate QR codes through add-ins and external tools, making this functionality accessible across all versions of Excel.


Using Excel Built-in Add-ins to generate QR codes one by one

Excel add-ins like Γραφείο QR4 provide a robust alternative that is compatible across multiple versions of Excel. This method allows for detailed customization of QR codes and is ideal for users who need to generate codes sporadically within their documents.

Step 1: Install the QR4Office addin-in
  1. Πηγαίνετε στο Κύριο θέμα > Λήψη πρόσθετων.
    Note: Εάν δεν βλέπετε το Λήψη πρόσθετων εντολή υπό το Κύριο θέμα tab in the ribbon, you will need to add it manually. Below are the steps to add this command to the Γραμμή εργαλείων γρήγορης πρόσβασης:
    1. Κάντε κλικ στο Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης αναπτυσσόμενο βέλος και επιλέξτε Περισσότερες εντολές από το μενού.
    2. Στο Επιλογές του Word παράθυρο:
      1. Αγορά Εντολές Όχι στην Κορδέλα από το Επιλέξτε εντολή από Αναπτυσσόμενη λίστα.
      2. Βρείτε και επιλέξτε Λήψη πρόσθετων στην αριστερή λίστα εντολών.
      3. Κάντε κλικ στο Πρόσθεση κουμπί (το Λήψη πρόσθετων command will be added to the right pane).
      4. Πατήστε OK για να αποθηκεύσετε τις αλλαγές. Δείτε στιγμιότυπο οθόνης:
    3. Η Λήψη πρόσθετων η εντολή προστίθεται τώρα στο Γραμμή εργαλείων γρήγορης πρόσβασης. You can click on it to open the Πρόσθετα γραφείου κατάστημα.
  2. Στο Πρόσθετα γραφείου κατάστημα:
    1. Τύπος "Γραφείο QR4" στο πλαίσιο αναζήτησης και πατήστε εισάγετε.
    2. Μόλις η Γραφείο QR4 εμφανίζεται το πρόσθετο, κάντε κλικ στο Πρόσθεση κουμπί για να το εγκαταστήσετε.
  3. Στο ακόλουθο πλαίσιο προτροπής, κάντε κλικ ΣΥΝΕΧΕΙΑ.
Step 2: Use the QR4Office add-in to generate QR code

Μόλις εγκατασταθεί, το QR4Code pane will automatically open on the right side of your workbook, allowing you generate QR code as follows.

  1. Select the cell containing the text or link you want to encode in the QR code.
    In this case, to enclose a link to the Extendoffice website, I select cell C3 containing the URL.
  2. Κάντε κλικ στο Copy current document selection button to transfer the cell content into the QR4Office fields.
    Άκρο: Alternatively, you can select either URL or Text type from the drop-down list and manually enter the required information into the text box.
  3. Στο Επιλογές section, you can optionally customize the QR code's appearance by selecting the color, background, and size, or retain the default settings.
  4. Select the destination cell for the QR code. Here I select D3.
  5. Πατήστε Κύριο θέμα to place the QR code into the selected cell. See screenshot:
  6. Repeat the above 5 steps to generate other QR codes.

Using Kutools for Excel to generate QR codes in bulk

Also an add-in, Kutools για Excel offers a distinct advantage over QR4Office with its ability to batch generate QR codes across a selected range. The Εισαγωγή κωδικού QR χαρακτηριστικό του Kutools για Excel is particularly valuable for users who need to create multiple QR codes efficiently. It automates the process across multiple cells, saving time and minimizing manual input errors.

Μετά το εγκατάσταση Kutools για Excel, μεταβείτε στην επιλογή Kutools > Κύριο θέμα > Εισαγωγή κωδικού QR για να ανοίξετε το Insert DR Code pane, then you can generate QR code s in bulk as follows:

  1. Στο Φασμα ΔΕΔΟΜΕΝΩΝ field, select the range of cells containing the text or link you want to encode in the QR code.
  2. Στο Εισαγωγή εύρους field, select a range of cells to place the corresponding QR codes.
  3. Στο Επιλογές section, you can optionally customize the QR code's appearance by specifying the size, line color, etc., or retain the default settings.
  4. Κάντε κλικ στο Δημιουργία button to generate QR codes for all selected cells simultaneously.
Note: Before using this feature, ensure that Kutools for Excel is installed. Download a 30-day free trial with full features of Kutools for Excel now!

Generating QR codes in Excel is straightforward, whether you use the advanced capabilities of Excel 365 or rely on add-ins available for all versions. By following the steps outlined in this guide, you can efficiently integrate QR codes into your Excel sheets, enhancing the interactivity and accessibility of your data. Explore these methods to find the one that best suits your needs and streamline your workflow in new and innovative ways. For those eager to delve deeper into Excel's capabilities, our website boasts a wealth of tutorials. Ανακαλύψτε περισσότερες συμβουλές και κόλπα για το Excel εδώ.

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
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