Οι ετικέτες μας είναι χρήσιμες με πολλούς τρόπους. Μπορείτε να δημιουργήσετε ετικέτες στο Excel με τη βοήθεια του Microsoft Word. Αλλά, σε ορισμένες περιπτώσεις, αυτό μπορεί να είναι πολύ ενοχλητικό και χρονοβόρο. Έτσι, μπορεί να θέλετε να δημιουργήσετε ετικέτες στο Excel χωρίς το Word. Αυτό το άρθρο παρουσιάζει έναν βήμα προς βήμα οδηγό για το πώς να δημιουργήσετε ετικέτες στο Excel χωρίς το Word.

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

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

Τι είναι οι ετικέτες;

Σε γενικές γραμμές, μια ετικέτα είναι ένα αυτοκόλλητο ή ένα κομμάτι χαρτί που περιγράφει το αντικείμενο ή το προϊόν στο οποίο είναι προσαρτημένο. Οι ετικέτες χρησιμοποιούνται σε ευρύ φάσμα εφαρμογών. Για παράδειγμα, οι άνθρωποι πρέπει να δημιουργήσουν ετικέτες για διευθύνσεις, ώστε να μπορούν να τις επισυνάψουν στο φάκελο. Επίσης, μπορούμε να δούμε ετικέτες προσαρτημένες στο υλικό των υπολογιστών μας, ώστε να μπορούμε να τα αναγνωρίζουμε και να γνωρίζουμε τις προδιαγραφές τους.

4 βήματα για τη δημιουργία ετικετών χωρίς το Word στο Excel χρησιμοποιώντας το VBA

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

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

Βήμα 01 : Αντιγραφή δεδομένων σε νέο φύλλο στο Excel

• Αρχικά, αντιγράψτε τις διευθύνσεις της στήλης και επικολλήστε τις σε ένα Νέο φύλλο ξεκινώντας από το κύτταρο A1 .

Βήμα 02 : Ανοίξτε το παράθυρο VBA και δημιουργήστε μια ενότητα στο Excel

• Στη συνέχεια, πατήστε ALT + F11 για να ανοίξετε το VBA παράθυρο.
• Τώρα, επιλέξτε το φύλλο στο οποίο εργάζεστε αυτή τη στιγμή και Δεξί κλικ Σε αυτή την περίπτωση, είναι Φύλλο 2 .
• Στη συνέχεια, επιλέξτε διαδοχικά Εισαγωγή >, Ενότητα .

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

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

• Σε αυτό το σημείο, αντιγράψτε τον ακόλουθο κώδικα και επικολλήστε τον στο κενό πλαίσιο.

 'Αυτός ο κώδικας θα δημιουργήσει ετικέτες στο Excel Sub Createlabels() Application.Run "AskForColumn" 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 AskForColumn() Dim refrg As Range Dim vrb As Long Dim dat As Long Set refrg = Cells(Rows.Count, 1).End(xlUp) dat = 1 On Error Resume Next incolno = InputBox("Enter Number ofColumns Desired") For vrb = 1 To refrg.Row Step incolno Cells(dat, "A").Resize(1, incolno).Value = _ Application.Transpose(Cells(vrb, "A").Resize(incolno, 1)) dat = dat + 1 Next Range(Cells(dat, "A"), Cells(refrg.Row, "A")).ClearContents End Sub 

💡 Επεξήγηση κωδικού:

Σε αυτό το στάδιο, θα εξηγήσω τον κώδικα που χρησιμοποιήθηκε παραπάνω. Όπως μπορείτε να δείτε, υπάρχουν δύο μέρη αυτού του κώδικα. Το ένα μέρος περιέχει το sub AskForColumn () η οποία θα ονομαστεί ως Μέρος 01 ,και το άλλο περιέχει το υπο Createlabels() η οποία θα ονομαστεί ως Μέρος 02 Τώρα, θα εξηγήσω και τα δύο αυτά μέρη ένα προς ένα.

Μέρος 01 :

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

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

Μέρος 02 :

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

• Τμήμα 1: Αυτή η ενότητα δημιουργεί ένα υπο-ονομαζόμενο Createlabels() .
• Τμήμα 2: Σε αυτό το τμήμα, ονομάζουμε τον ήλιο AskForColumn() να τρέξει.
• Τμήμα 3: Σε αυτό το σημείο, η παρούσα ενότητα ορίζει το Μορφή κελιού για όλα τα κελιά χρησιμοποιώντας το Κύτταρα ιδιοκτησία.

Βήμα 04 : Εκτελέστε τον κώδικα για να δημιουργήσετε ετικέτες χωρίς το Word στο Excel

• Τώρα, πατήστε F5 για να τρέξει το υπο Δημιουργία ετικετών () .
• Κατά συνέπεια, θα δείτε ένα πλαίσιο να εμφανίζεται στην οθόνη σας όπως στο παρακάτω στιγμιότυπο.
• Σε αυτό το σημείο, εισαγάγετε τον αριθμό των στηλών στις οποίες θέλετε να τοποθετήσετε τις ετικέτες σας.
• Στη συνέχεια, κάντε κλικ στο OK .

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

💡 Σημειώσεις :

• Αυτή η μέθοδος θα λειτουργήσει μόνο αν έχετε τα δεδομένα σας σε μία μόνο στήλη.
• Αφού δημιουργήσετε τις ετικέτες, μπορείτε να προσθέσετε περιθώρια χρησιμοποιώντας την εντολή Όλα τα σύνορα επιλογές στο Αρχική σελίδα καρτέλα.
• Επίσης, βεβαιωθείτε ότι έχετε εκτελέσει το sub Createlabels() Σε αυτή την περίπτωση, αν εκτελέσετε το sub, AskForColumn () δεν θα έχετε το επιθυμητό αποτέλεσμα.
• Επιπλέον, μην εισάγετε τίποτα άλλο εκτός από τις διευθύνσεις στη στήλη A .

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

Πώς να εκτυπώσετε ετικέτες στο Excel χωρίς το Word

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

Βήματα :

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

• Μετά από αυτό, μεταβείτε στο Περιθώρια .
• Τώρα, επεξεργαστείτε το Κορυφή και Κάτω μέρος περιθώρια σε 0.5 και στη συνέχεια επεξεργαστείτε το Αριστερά και Δεξιά περιθώρια σε 0.215 .
• Κατά συνέπεια, κάντε κλικ στο OK .

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

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

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

Συμπέρασμα

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