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

Κατεβάστε το βιβλίο ασκήσεων

Μπορείτε να κατεβάσετε το βιβλίο ασκήσεων που χρησιμοποιείται σε αυτό το άρθρο από τον παρακάτω σύνδεσμο λήψης.

2 απλοί τρόποι για να δημιουργήσετε κώδικα QR στο Excel

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

1. Χρήση πρόσθετων προγραμμάτων του Office για τη δημιουργία κώδικα QR στο Excel

Σε αυτή τη μέθοδο, θα σας εξηγήσω πώς να δημιουργήσετε Κωδικός QR στο Excel χρησιμοποιώντας Πρόσθετα του Office .

Ας δούμε βήμα προς βήμα πώς γίνεται.

Βήματα:

• Αρχικά, μεταβείτε στο Εισαγωγή καρτέλα.
• Μετά από αυτό, επιλέξτε το Αποκτήστε πρόσθετα από την επιλογή Πρόσθετα ομάδα.

A βιβλιοθήκη θα εμφανιστεί στην οθόνη.

• Τώρα, αναζητήστε QR4Office Και θα πάρετε το QR4Office .
• Στη συνέχεια, κάντε κλικ στο Προσθέστε για να προσθέσετε το QR4office στο δικό σας Πρόσθετα .

Τώρα, θα σας εμφανίσει τους όρους άδειας χρήσης και την πολιτική.

• Τέλος, επιλέξτε Συνεχίστε, και QR4Office θα εγκατασταθεί.

• Τώρα, πηγαίνετε πάλι στο Εισαγωγή καρτέλα.
• Μετά από αυτό, επιλέξτε Τα πρόσθετά μου .

Αυτό θα σας οδηγήσει στο Τα πρόσθετά μου βιβλιοθήκη.

• Στη συνέχεια, επιλέξτε QR4Office .
• Τέλος, κάντε κλικ στο Προσθέστε .

Τώρα, θα δείτε ότι QR4Office έχει ανοίξει στο φύλλο εργασίας του Excel. Μπορείτε να πληκτρολογήσετε κείμενο ή URL που θέλετε να κωδικοποίηση Μπορείτε επίσης να αλλάξετε το χρώμα, το μέγεθος και το φόντο του Κωδικός QR από εδώ.

• Τώρα, πληκτρολογήστε το κείμενο ή URL που θέλετε να κωδικοποίηση . Εδώ, πληκτρολόγησα το URL για το ExcelWIKI .
• Τέλος, κάντε κλικ στο Εισαγωγή για να πάρετε το Κωδικός QR .

Τώρα, έχω το Κωδικός QR για την επιθυμητή τοποθεσία μου.

Ακολουθώντας την ίδια διαδικασία μπορείτε να πάρετε όλα τα άλλα Κώδικες QR θέλετε.

2. Δημιουργία συνάρτησης καθορισμένης από το χρήστη για τη δημιουργία κώδικα QR στο Excel

Σε αυτή τη 2η μέθοδο, θα σας εξηγήσω πώς να δημιουργήσετε Κώδικες QR στο Excel χρησιμοποιώντας καθορισμένη από το χρήστη λειτουργία Για το σκοπό αυτό, θα χρησιμοποιήσω VBA .

Ας δούμε βήμα προς βήμα πώς γίνεται.

Βήματα:

• Πρώτον, μεταβείτε στο Προγραμματιστής καρτέλα.
• Δεύτερον, επιλέξτε Visual Basic .

Τώρα, θα δείτε το Visual Basic παράθυρο έχει ανοίξει.

• Μετά από αυτό, μεταβείτε στο Εισαγωγή καρτέλα .
• Τώρα, επιλέξτε το Ενότητα επιλογή.

Θα δείτε ένα Ενότητα έχει ανοίξει. Ενότητα πληκτρολογήστε τον ακόλουθο κώδικα.

 Function QR_Generator(qrcodes_values As String) Dim Site_URL As String Dim Cell_Values As Range Set Cell_Values = Application.Caller Site_URL = "//chart.googleapis.com/chart?chs=100x100&&cht=qr&chl=" & qrcodes_values On Error Resume Next ActiveSheet.Pictures("Generated_QR_CODES_" & Cell_Values.Address(False, False)).Delete On Error GoTo 0ActiveSheet.Pictures.Insert(Site_URL).Select With Selection.ShapeRange(1) .Name = "Generated_QR_CODES_" & Cell_Values.Address(False, False) .Left = Cell_Values.Left + 2 .Top = Cell_Values.Top + 2 End With QR_Generator = "" End Function 

Ανάλυση κώδικα

• Εδώ, έχω δημιουργήσει ένα Λειτουργία με το όνομα QR_Generator . Επόμενος, χρησιμοποιημένος qrcodes_values ως Συμβολοσειρά εντός της συνάρτησης.
• Στη συνέχεια, δήλωσε Site_URL ως Συμβολοσειρά και Cell_Values ως Εύρος .
• Στη συνέχεια, χρησιμοποιήθηκε το Application.Caller στο Ορίστε ιδιότητα για να ενεργοποιήσετε το μακροεντολή όπου θα κληθεί.
• Μετά από αυτό, δεδομένης της URL διεύθυνση για κωδικοί qr .
• Εγώ, επίσης, χρησιμοποίησα Σε σφάλμα Συνέχιση Επόμενο για να αγνοήσετε το σφάλμα.
• Στη συνέχεια, χρησιμοποιήθηκε το ActiveSheet.Pictures για να δημιουργήσετε την εικόνα στο ενεργό φύλλο.
• Στη συνέχεια, χρησιμοποιώντας το Με δήλωση αναδιαμόρφωσε το μέγεθος του κωδικοί qr .

Τώρα, Αποθήκευση ο κώδικας ως Βιβλίο εργασίας με δυνατότητα μακροεντολών του Excel και επιστρέψτε στο φύλλο σας.

• Τώρα, επιλέξτε όλα τα κελιά στα οποία θέλετε να Κώδικες QR Εδώ, επέλεξα τα κελιά D5 , D6 , και D7 .

• Μετά από αυτό, γράψτε τον ακόλουθο τύπο.

Εδώ, χρησιμοποίησα το QR_Generator συνάρτηση την οποία όρισα από το VBA κωδικός. Και για qrcodes_values Επέλεξα το κελί C5 Η συνάρτηση αυτή θα μας επιστρέψει το Κωδικός QR για το Αξία στο κελί C5 .

• Τέλος, πατήστε CTRL+ENTER και θα λάβετε Κώδικες QR για όλα τα κύτταρα.

Διαβάστε περισσότερα: Excel VBA: Γεννήτρια κώδικα QR ανοικτού κώδικα

Πράγματα που πρέπει να θυμάστε

• Κατά την εργασία με τη δεύτερη μέθοδο θα πρέπει να σημειωθεί ότι εδώ χρησιμοποίησα έναν σύνδεσμο ανοικτού κώδικα. Έτσι, για να λειτουργήσει σωστά αυτή η λειτουργία θα πρέπει να έχετε τη σύνδεση στο διαδίκτυο ενεργοποιημένη.

Τμήμα πρακτικής

Εδώ, σας παρέχω ένα φύλλο εξάσκησης για να εξασκηθείτε.

Συμπέρασμα

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