Οι ετικέτες αποτελούνται από μικρά κομμάτια χαρτιού που παρέχουν πληροφορίες σχετικά με ένα αντικείμενο. Στην πραγματικότητα, αυτό το άρθρο παρουσιάζει τον τρόπο εκτύπωσης ετικετών Avery από το Excel.

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

Μπορείτε να κατεβάσετε το βιβλίο ασκήσεων από τον παρακάτω σύνδεσμο.

Εκτύπωση ετικετών Avery Labels.xlsm

Εκτύπωση ετικετών Avery Labels.docx

2 Μέθοδοι εκτύπωσης ετικετών Avery από το Excel

Το Microsoft Excel κάνει την εκτύπωση ετικετών μια απλή εργασία. Ομολογουμένως, έχω παραλείψει τις λεπτομέρειες σχετικά με τις ετικέτες, τις οποίες μπορείτε να εξερευνήσετε αν θέλετε Εδώ, η πρώτη μέθοδος χρησιμοποιεί το Word, ενώ η δεύτερη μέθοδος εκτυπώνει ετικέτα χωρίς το Word.

Έτσι, χωρίς περαιτέρω καθυστέρηση, ας δούμε πώς μπορούμε να εκτύπωση ετικετών.

1. Εκτύπωση ετικετών Avery χρησιμοποιώντας το Word από το Excel

Μπορείτε να εκτυπώσετε ετικέτες Avery χρησιμοποιώντας το Excel και το Word. Ας δούμε τη διαδικασία βήμα προς βήμα.

Ας εξετάσουμε το ακόλουθο σύνολο δεδομένων που παρουσιάζεται στο B4:F14 Εδώ, οι στήλες δείχνουν τα Όνομα εταιρείας , Διεύθυνση , Πόλη , Κράτος , και Ταχυδρομικός κώδικας του καθενός από τους παραλήπτες.

Βήμα 01: Ορισμός πίνακα παραληπτών

• Αρχικά, επιλέξτε το B4:F14 κύτταρα και πηγαίνετε στο Τύποι>, Ορισμός ονόματος .
• Τώρα, εμφανίζεται ένα παράθυρο διαλόγου όπου δίνουμε ένα κατάλληλο όνομα, στην προκειμένη περίπτωση, Company_Name .

Σημείωση: Βεβαιωθείτε ότι δεν υπάρχουν κενά διαστήματα μεταξύ των λέξεων. Αντίθετα, μπορείτε να χρησιμοποιήσετε υπογράμμιση για να διαχωρίσετε κάθε λέξη.

Βήμα 02: Δημιουργήστε ετικέτες Avery στο Word

• Δεύτερον, ανοίξτε ένα κενό έγγραφο στο Microsoft Word και μεταβείτε στην καρτέλα.
• Στη συνέχεια, πλοηγηθείτε στο Αλληλογραφία>, Έναρξη συγχώνευσης αλληλογραφίας> Ετικέτες .

• Τώρα, επιλέξτε τις επιλογές που φαίνονται στην παρακάτω εικόνα και κάντε κλικ στο κουμπί OK για να κλείσετε το παράθυρο διαλόγου.

• Στη συνέχεια, επιλέξτε Σχεδιασμός> Σύνορα σελίδας .
• Αμέσως, εμφανίζεται ένα παράθυρο Οδηγού, επιλέξτε Σύνορα> Πλέγμα .

Αυτό δημιουργεί το πλέγμα στο κενό έγγραφο.

Βήμα 03: Εισαγωγή λίστας παραληπτών από το Excel στο Word

• Τρίτον, πλοηγηθείτε στη διεύθυνση Αλληλογραφία ωστόσο, αυτή τη φορά επιλέξτε το Επιλογή παραληπτών> Χρήση υπάρχουσας λίστας .

• Στη συνέχεια, εισάγουμε τα δεδομένα της πηγής στο Word επιλέγοντας το αρχείο Excel, στην προκειμένη περίπτωση, Εκτύπωση ετικετών Avery .

• Με τη σειρά μας, επιλέγουμε το όνομα του πίνακα Company_Name από τη λίστα.

Έτσι δημιουργείται μια σύνδεση μεταξύ του φύλλου εργασίας του Excel και του εγγράφου του Word.

Βήμα 04: Εισαγωγή πεδίων στο Word

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

Είναι σαφές ότι οι επικεφαλίδες των στηλών από το φύλλο εργασίας αντιστοιχούν αυτόματα στα αντίστοιχα πεδία.

• Κάντε κλικ στο OK για να κλείσετε το παράθυρο διαλόγου.

Με τη σειρά μας, βλέπουμε μια προεπισκόπηση των ετικετών για να διορθώσουμε τυχόν ατέλειες πριν προχωρήσουμε περαιτέρω.

• Στη συνέχεια, κάνουμε κλικ στο Ενημέρωση ετικετών που βρίσκεται στο Αλληλογραφία καρτέλα.

Ως αποτέλεσμα, όλες οι ετικέτες αλλάζουν σε AddressBlock .

Βήμα 05: Ολοκλήρωση της διαδικασίας συγχώνευσης

• Τέλος, μεταβείτε στη διεύθυνση Αποστολές> Τελειώστε & Συγχώνευση>, Επεξεργασία μεμονωμένων εγγράφων επιλογές.

• Στη συνέχεια, στο παράθυρο διαλόγου επιλέξτε τις επιλογές σύμφωνα με την παρακάτω εικόνα και κάντε κλικ στο κουμπί OK .

Τελικά, όλες οι ετικέτες εμφανίζονται στο έγγραφο του Word.

• Επιπλέον, πατήστε CTRL + P για να ανοίξετε την επιλογή εκτύπωσης στο Word.

Επιπλέον, μπορείτε να δείτε μια προεπισκόπηση των ετικετών από το παράθυρο προεπισκόπησης.

Διαβάστε περισσότερα: Πώς να δημιουργήσετε ετικέτες στο Word από τη λίστα του Excel (Οδηγίες βήμα προς βήμα)

Παρόμοιες αναγνώσεις

• Πώς να δημιουργήσετε ετικέτες αλληλογραφίας στο Excel (με εύκολα βήματα)
• Πώς να συγχωνεύσετε ετικέτες αλληλογραφίας από το Excel στο Word (με εύκολα βήματα)

2. Εκτύπωση ενιαίας ετικέτας Avery χωρίς Word από το Excel

Εάν έχετε δεδομένα που καλύπτουν μόνο μία στήλη, τότε μπορείτε να εκτυπώσετε ετικέτες χωρίς το Word. Είναι μια απλή διαδικασία, οπότε, απλά ακολουθήστε μας.

Ας υποθέσουμε ότι έχουμε το ακόλουθο σύνολο δεδομένων στο B4:B13 κελιά με μία μόνο στήλη που δείχνει το Διεύθυνση .

Βήμα 01: Δημιουργήστε ένα αντίγραφο του συνόλου δεδομένων

• Πρώτον, αντιγράψτε το σύνολο δεδομένων και επικολλήστε το σε ένα νέο φύλλο εργασίας.

Σημείωση: Πρέπει να επικολλήσετε τα δεδομένα στην πρώτη στήλη ξεκινώντας από το A1 κελί και αφαιρέστε τυχόν επικεφαλίδες στηλών.

Βήμα 02: Εισαγωγή του κώδικα VBA

• Δεύτερον, πηγαίνετε στο Προγραμματιστής >, Visual Basic .

• Στη συνέχεια, εισάγετε ένα Ενότητα όπου θα επικολλήσετε το VBA κωδικός.

Για ευκολία αναφοράς, μπορείτε να αντιγράψετε και να επικολλήσετε τον κώδικα από εδώ.

 Sub Makelabels() Application.Run "EnterColumn" Cells.Select Selection.RowHeight = 75.75 Selection.ColumnWidth = 34.14 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With With Selection .HorizontalAlignment = xlCenter.VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With End Sub Sub EnterColumn() Dim reference As Range Dim item As Long Dim data As Long Set reference = Cells(Rows.Count, 1).End(xlUp) data = 1 On Error Resume Next incolno = InputBox("Enter Number of Columns Desired") For item= 1 To reference.Row Step incolno Cells(data, "A").Resize(1, incolno).Value = _ Application.Transpose(Cells(item, "A").Resize(incolno, 1)) data = data + 1 Next Range(Cells(data, "A"), Cells(reference.Row, "A")).ClearContents End Sub 

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

Τώρα, θα εξηγήσω τον κώδικα VBA που χρησιμοποιείται για τη δημιουργία ετικετών. Σε αυτή την περίπτωση, ο κώδικας χωρίζεται σε δύο τμήματα.

Ενότητα 1: Επεξήγηση της υπορουτίνας EnterColumn()

Η εξήγηση του VBA ο κώδικας παρέχεται παρακάτω.

• 1- Αρχικά, δίνεται ένα όνομα στην υπορουτίνα και ορίζονται οι μεταβλητές.
• 2- Στη συνέχεια, μετράμε τον αριθμό των γραμμών και δημιουργούμε ένα InputBox για να δέχεται δεδομένα από τον χρήστη.
• 3- Στη συνέχεια, ένα Για το ο βρόχος εκτελείται τόσες φορές όσες ορίζονται στο InputBox .
• 4- Τέλος, εμείς Transpose τη στήλη σε γραμμές, Αλλαγή μεγέθους τα κελιά και αφαιρέστε τυχόν επιπλέον περιεχόμενα.

Τμήμα 2: Περιγραφή της υπορουτίνας Makelabels()

Με παρόμοιο τρόπο, η VBA εξηγείται παρακάτω.

• 1- Σε αυτό το τμήμα, δίνεται ένα όνομα στην υπορουτίνα.
• 2- Στη συνέχεια, εκτελούμε την υπορουτίνα.
• 3- Τέλος, καθορίστε τη μορφοποίηση των κελιών χρησιμοποιώντας την εντολή Κύτταρα ιδιοκτησία.

Βήμα 03: Εκτέλεση του κώδικα VBA για τη δημιουργία ετικετών

• Τρίτον, πατήστε το κουμπί F5 για να εκτελέσετε το Makelabels() υπορουτίνα.
• Στο πλαίσιο διαλόγου πληκτρολογήστε τον αριθμό των στηλών.

Μπορείτε να προσθέσετε όρια χρησιμοποιώντας το Όλα τα σύνορα στην επιλογή Αρχική σελίδα καρτέλα.

Βήμα 04: Εκτύπωση ετικετών από το Excel

• Τέταρτον, πηγαίνετε στο Διάταξη σελίδας και κάντε κλικ στην καρτέλα Ρύθμιση σελίδας βέλος στη γωνία.
• Στη συνέχεια, επιλέξτε το Περιθώρια και ρυθμίστε το περιθώριο σελίδας όπως φαίνεται παρακάτω.

• Στη συνέχεια, χρησιμοποιήστε CTRL + P για να ανοίξετε το Εκτύπωση μενού.
• Σε αυτό το σημείο, πατήστε το πλήκτρο Δεν υπάρχει κλιμάκωση drop-down και επιλέξτε Τοποθετήστε όλες τις στήλες σε μία σελίδα επιλογή.

Τέλος, είστε έτοιμοι να εκτύπωση των ετικετών Επιπλέον, μπορείτε να παρατηρήσετε την προεπισκόπηση εκτύπωσης όπως φαίνεται στο παρακάτω στιγμιότυπο.

Διαβάστε περισσότερα: Πώς να δημιουργήσετε ετικέτες χωρίς Word στο Excel (Οδηγός βήμα προς βήμα)

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

• Πρώτον, m μέθοδος 2 ισχύει μόνο αν έχετε μία μόνο στήλη στο σύνολο δεδομένων σας.
• Δεύτερον, διαμορφώστε τις επικεφαλίδες των στηλών έτσι ώστε να ξεχωρίζουν από τα υπόλοιπα δεδομένα.
• Τρίτον, βεβαιωθείτε ότι δεν υπάρχουν κενά κελιά, καθώς αυτό μπορεί να οδηγήσει σε απροσδόκητα αποτελέσματα.

Συμπέρασμα

Εν κατακλείδι, ελπίζω αυτό το άρθρο να σας βοήθησε να καταλάβετε πώς να εκτυπώσετε ετικέτες Avery από το Excel. Εάν έχετε οποιεσδήποτε απορίες, αφήστε ένα σχόλιο παρακάτω. Επίσης, εάν θέλετε να διαβάσετε περισσότερα άρθρα όπως αυτό, μπορείτε να επισκεφθείτε την ιστοσελίδα μας. ExcelWIKI .