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

Πώς να δημιουργήσετε κώδικα qr με βάση την τιμή κελιού στο Excel;

Ξέρετε πώς να δημιουργήσετε κώδικα QR με βάση συγκεκριμένη τιμή κελιού στο Excel; Αυτό το άρθρο θα σας δείξει μια μέθοδο για να το επιτύχετε λεπτομερώς.

Δημιουργήστε κώδικα QR με βάση την τιμή του κελιού με το Barcode Control και τον κώδικα VBA
Δημιουργήστε εύκολα πολλούς κωδικούς QR μαζικά με βάση τις τιμές των κελιών με ένα εκπληκτικό εργαλείο


Δημιουργήστε κώδικα QR με βάση την τιμή του κελιού με το Barcode Control και τον κώδικα VBA

Ο έλεγχος γραμμωτού κώδικα μπορεί να σας βοηθήσει να δημιουργήσετε γρήγορα κωδικό QR με βάση την τιμή κελιού στο Excel. Κάντε τα εξής:

1. Ανοίξτε το φύλλο εργασίας περιέχει την τιμή κελιού βάσει της οποίας θα δημιουργήσετε τον κωδικό QR.

2. κλικ Εργολάβος > Κύριο θέμα > Περισσότερος έλεγχος. Δείτε το στιγμιότυπο οθόνης:

3. Στο Περισσότεροι έλεγχοι παράθυρο, ελέγξτε για το Microsoft Barcode Control 16.0 or Microsoft Barcode Control 15.0.

4. Εάν δεν βρήκατε το Barcode Control στο παράθυρο More Controls ή το Barcode Control δεν το 16.0 ή 15.0, πρέπει να κατεβάσετε το αρχείο ελέγχου barcode κάνοντας κλικ σε αυτούς τους συνδέσμους: λήψη ελέγχου γραμμωτού κώδικα. Εάν υπάρχει το Barcode Control 16.0 ή 15.0 στο παράθυρο More Controls, μεταβείτε ακριβώς παρακάτω βήμα 10.

Μετά τη λήψη του αρχείου, αποσυμπιέστε το και, στη συνέχεια, ενημερώστε το Barcode Control με το στοιχείο ελέγχου γραμμωτού κώδικα που έχετε λάβει στο Excel ως εξής.

5. Κλείστε όλα τα βιβλία εργασίας του Excel, μεταβείτε στο Αρχική τμήμα, βρείτε το Excel εφαρμογή και κάντε δεξί κλικ πάνω της και, στη συνέχεια, επιλέξτε Εκτέλεση ως διαχειριστής από το μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:

6. Στο άνοιγμα Έλεγχος λογαριασμού χρήστη , κάντε κλικ στο Ναι κουμπί.

7. Στη συνέχεια δημιουργείται ένα νέο βιβλίο εργασίας. Παρακαλώ πατήστε Εργολάβος > Κύριο θέμα > Περισσότερος έλεγχος. Δείτε το στιγμιότυπο οθόνης:

8. Στο Περισσότεροι έλεγχοι παράθυρο, κάντε κλικ στην επιλογή Εγγραφή Custom κουμπί, βρείτε και επιλέξτε ένα από τα αρχεία qr κώδικα OCX που έχετε λάβει και, στη συνέχεια, κάντε κλικ στο Ανοικτό κουμπί. Δείτε το στιγμιότυπο οθόνης:

9. Κάντε κλικ στο κουμπί OK κουμπί όταν επιστρέφει το Περισσότεροι έλεγχοι παράθυρο για να ολοκληρώσετε τον έλεγχο του γραμμικού κώδικα. Στη συνέχεια, ανοίξτε ξανά το βιβλίο εργασίας που περιέχει τις τιμές κελιών βάσει των οποίων θα δημιουργήσετε κωδικούς QR.

10. Κάντε δεξί κλικ στην καρτέλα φύλλων και κάντε κλικ Προβολή κωδικού από το μενού περιβάλλοντος για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο. Στη συνέχεια, αντιγράψτε και επικολλήστε κάτω από τον κωδικό VAB στο παράθυρο Code. Και τέλος πατήστε το άλλος + Q πλήκτρα για έξοδο από το Microsoft Visual Basic για εφαρμογές παράθυρο.

Κωδικός VBA: Δημιουργήστε κώδικα QR στο 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. κλικ Εργολάβος > Κύριο θέμα > Κουμπί (Έλεγχος φόρμας) όπως φαίνεται παρακάτω.

12. Σχεδιάστε ένα κουμπί στο τρέχον φύλλο εργασίας. Στο αναδυόμενο Εκχώρηση μακροεντολής διαλόγου, επιλέξτε setQR στο πλαίσιο και μετά κάντε κλικ στο OK κουμπί.

13. Κλείσε το Λειτουργία σχεδίασης κάνοντας κλικ Εργολάβος > Λειτουργία σχεδίασης.

14. Κάντε κλικ στο κουμπί, στο άνοιγμα Kutools για Excel διαλόγου, επιλέξτε το κελί στο οποίο θα δημιουργήσετε QR Code με βάση και κάντε κλικ στο OK.

15. Στο δεύτερο Kutools για Excel διαλόγου, επιλέξτε ένα κελί για να τοποθετήσετε τον κωδικό QR. Δείτε το στιγμιότυπο οθόνης:

Στη συνέχεια, ο κωδικός QR θα εισαχθεί αμέσως στο καθορισμένο κελί. Επαναλάβετε τα βήματα 14 έως 15 για να ολοκληρώσετε όλο το QR Code που δημιουργήθηκε. Δείτε το στιγμιότυπο οθόνης:


Δημιουργήστε εύκολα πολλούς κωδικούς QR μαζικά με βάση τις τιμές των κελιών με ένα εκπληκτικό εργαλείο

Για να είμαι ειλικρινής, η παραπάνω μέθοδος δεν είναι εύκολο να χειριστεί καθώς έχει τους δικούς της περιορισμούς. Εδώ συνιστάται ιδιαίτερα το Εισαγωγή κωδικού QR χαρακτηριστικό του Kutools για Excel. Αυτή η δυνατότητα μπορεί να σας βοηθήσει να εισαγάγετε γρήγορα κώδικες QR μαζικά με βάση καθορισμένες τιμές κελιών στο Excel μόνο με πολλά κλικ. Κάντε τα εξής για να το κάνετε.

Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.

1. Πρώτον, προετοιμάστε τις τιμές σας στις οποίες θέλετε να δημιουργήσετε κώδικα QR βάσει.

2. κλικ Kutools > Κύριο θέμα > Εισαγωγή κωδικού QR.

Συμβουλές: Εάν δεν μπορείτε να βρείτε τη δυνατότητα με αυτήν τη διαδρομή, πατήστε το άλλος + S ταυτόχρονα για να ανοίξετε το Αναζήτηση συναρτήσεων Kutools κουτί, πληκτρολογήστε χειροκίνητα QR Code στο πλαίσιο αναζήτησης, τότε μπορείτε να δείτε το Εισαγωγή κωδικού QR η λειτουργία εμφανίζεται, απλώς κάντε κλικ για να ενεργοποιήσετε τη λειτουργία. Δείτε στιγμιότυπο οθόνης:

Τώρα το παράθυρο Insert QR Code εμφανίζεται στη δεξιά πλευρά του βιβλίου εργασίας.

3. Στο Εισαγωγή κωδικού QR παράθυρο, πρέπει να διαμορφώσετε ως εξής.

3.1) Στο Φασμα ΔΕΔΟΜΕΝΩΝ πλαίσιο, επιλέξτε το εύρος κελιών που περιέχουν τις τιμές στις οποίες θέλετε να δημιουργήσετε QR Code με βάση
3.2) Στο Εισαγωγή εύρους πλαίσιο, επιλέξτε μια σειρά κενών κελιών για να εξάγετε τον κωδικό QR.
3.3) Στο Επιλογές τμήμα, διαμορφώστε το μέγεθος, χρώμα γραμμής, χρώμα φόντου και Επίπεδο διόρθωσης σφαλμάτων για τον κωδικό QR όπως χρειάζεστε.
Σημείωση: Το μέγεθος του κωδικού QR δεν μπορεί να υπερβαίνει τα 500 εικονοστοιχεία.
3.4) Κάντε κλικ στο Δημιουργία κουμπί. Δείτε το στιγμιότυπο οθόνης:

4. Τότε α Kutools για Excel εμφανίζεται το παράθυρο διαλόγου, κάντε κλικ Εντάξει.

5. Στη συνέχεια δημιουργούνται ταυτόχρονα οι κωδικοί QR. Πρέπει να κλείσετε χειροκίνητα το Εισαγωγή κωδικού QR παράθυρο εάν ολοκληρώσετε τη δημιουργία όλων των κωδικών QR.

Κάντε κλικ για να Μάθετε περισσότερα για αυτήν τη λειτουργία ...


Σχετικό άρθρο:

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

🤖 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