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

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

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

Εκτύπωση ετικετών χωρίς Word.xlsm

Αυτό είναι το αρχείο που περιέχει εκτυπώσιμες ετικέτες.

Εκτύπωση ετικετών χωρίς Word.pdf

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

Προς εκτύπωση ετικετών απευθείας από το Excel χωρίς τη χρήση του Microsoft Word, πρέπει απλώς να εκτυπώσουμε το φύλλο Excel με το κατάλληλο μέγεθος ετικέτας. Μπορούμε να μετατρέψουμε το μέγεθος των κελιών που ταιριάζει στο μέγεθος της ετικέτας. Θα χρησιμοποιήσουμε κώδικα VBA για να εκτελέσουμε την εργασία για εμάς.

Πρώτον, ας υποθέσουμε ότι έχουμε το ακόλουθο σύνολο δεδομένων.

Θα μετατρέψουμε πρώτα κάθε δεδομένο σε ετικέτες και στη συνέχεια θα τα εκτυπώσουμε στο Excel χωρίς να χρησιμοποιήσουμε καμία βοήθεια από το Word.

Για να χρησιμοποιήσετε τη Microsoft Visual Basic for Applications (VBA) στο Excel, χρειάζεστε πρώτα το Προγραμματιστής Κάντε κλικ εδώ για να δείτε πώς μπορείτε να να εμφανίσετε την καρτέλα Developer στην κορδέλα σας Μόλις το έχετε αυτό, συνεχίστε να ακολουθείτε τα βήματα που σας δείξαμε για να εκτυπώσετε αυτές τις ετικέτες στο Excel χωρίς το Word.

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

Η επιλογή του κώδικα VBA εδώ μπορεί να λειτουργήσει σωστά μόνο εάν οι καταχωρήσεις κελιών ξεκινούν από το κελί A1 Έτσι, πρέπει πρώτα να οργανώσουμε το σύνολο δεδομένων μας που περιέχει όλες τις ετικέτες με τέτοιο τρόπο. Σε περίπτωση που το σύνολο δεδομένων σας ξεκινάει οπουδήποτε αλλού εκτός από το κελί A1 , όπως η δική μας, η οποία ξεκίνησε από το κύτταρο B5 , αντιγράψτε τα πρώτα σε ένα νέο λογιστικό φύλλο και βάλτε τα στην αρχή. Θα πρέπει να μοιάζει κάπως έτσι.

Τώρα θα πρέπει να είναι έτοιμο να εργαστεί με τον κώδικα VBA.

Βήμα 2: Εισαγωγή κώδικα VBA

Στη συνέχεια, πρέπει να εισαγάγουμε τον κώδικα VBA για να προσαρμόσουμε τις ετικέτες στο επιθυμητό μέγεθος και σχήμα. Για να εισαγάγετε τον κώδικα VBA-

• Πρώτον, μεταβείτε στο Προγραμματιστές στην κορδέλα σας.
• Στη συνέχεια επιλέξτε Visual Basic από το Κωδικός ομάδα.

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

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

 'Αυτός ο κώδικας θα δημιουργήσει ετικέτες στο Excel Sub Createlabels() Application.Run "AskForColumn" Cells.Select Selection.RowHeight = 75.75 Selection.ColumnWidth = 34.14 With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = True .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With With With Selection.HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = True .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 

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

Υπάρχουν δύο μέρη ή υποενότητες σε αυτόν τον κώδικα VBA- το CreateLabel sub και το AskForColumn Αρχικά, θα εξηγήσουμε τι συμβαίνει στο υποσύστημα AskForColumn και στη συνέχεια θα προχωρήσουμε στο υποσύστημα CreateLabel για να εξηγήσουμε πώς λειτουργεί ο κώδικας.

Μέρος 1:

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

👉 Τμήμα 1: Αυτό το τμήμα δηλώνει το όνομα του υπο AskForColumn .

👉 Τμήμα 2: Χρησιμοποιήσαμε αυτό το τμήμα για να δηλώσουμε τρεις μεταβλητές - refrg, vrb και data.

👉 Τμήμα 3: Σε αυτό το τμήμα, έχουμε ορίσει τιμές για το refrg και τα δεδομένα.

👉 Τμήμα 4: Σε αυτό το σημείο, ο κώδικας εμφανίζει ένα πλαίσιο εισαγωγής στο λογιστικό φύλλο.

👉 Τμήμα 5: Σε αυτό το τμήμα, μια Για το ο βρόχος εκτελείται για τον αριθμό που εισάγεται στο πλαίσιο εισαγωγής.

👉 Τμήμα 6: Αυτό το τμήμα του κώδικα αλλάζει τώρα το μέγεθος των κελιών.

👉 Τμήμα 7: Τέλος, αυτή η ενότητα διαγράφει τα επιπλέον περιεχόμενα.

Μέρος 2:

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

👉 Τμήμα 1: Αυτό το τμήμα του κώδικα δηλώνει το όνομα του υποκατηγορίου Createlabels .

👉 Τμήμα 2: Αυτή η εντολή εκτελεί το προηγούμενο υποπρόγραμμα σε αυτό το σημείο του κώδικα.

👉 Τμήμα 3: Αυτό το τμήμα μορφοποιεί κάθε κελί χρησιμοποιώντας την VBA Κύτταρα ιδιοκτησία.

Βήμα 3: Εκτέλεση κώδικα VBA

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

• Πρώτον, μεταβείτε στο Προγραμματιστής στην κορδέλα σας.
• Δεύτερον, επιλέξτε Μακροεντολές από το Κωδικός ομάδα.

• Τώρα στο Μάκρο πλαίσιο, επιλέξτε Createlables στο πλαίσιο του Όνομα μακροεντολής .

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

Το λογιστικό φύλλο θα μοιάζει τώρα αυτόματα με αυτό.

Οι ετικέτες είναι τώρα έτοιμες για εκτύπωση στο Excel χωρίς καμία χρήση του Word.

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

Βήμα 4: Ορισμός προσαρμοσμένων περιθωρίων

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

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

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

• Μόλις τελειώσετε, κάντε κλικ στο OK .

Βήμα 5: Επιλογή επιλογών κλιμάκωσης για εκτύπωση

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

Το οποίο σίγουρα δεν είναι ο στόχος μας. Οπότε πρέπει να χωρέσουμε το φύλλο σε μία σελίδα. Για να το κάνουμε αυτό...

• Πρώτον, μεταβείτε στην ενότητα προεπισκόπησης εκτύπωσης πατώντας Ctrl+P στο πληκτρολόγιό σας.
• Στο κάτω αριστερό μέρος της προβολής, μπορείτε να βρείτε Ρυθμίσεις . Κάτω από αυτό, θα βρείτε το Κλιμάκωση επιλογές στο τέλος.

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

Η κλιμάκωση των ετικετών θα έχει ολοκληρωθεί σε αυτό το σημείο.

Διαβάστε περισσότερα: Πώς να εκτυπώσετε ετικέτες διευθύνσεων στο Excel (2 γρήγοροι τρόποι)

Βήμα 6: Εκτύπωση φύλλου

Ενώ εξακολουθείτε να βρίσκεστε στην οθόνη προεπισκόπησης εκτύπωσης, κάντε κλικ στο Εκτύπωση στην επάνω αριστερή πλευρά της προβολής.

Κάντε κλικ σε αυτό και αυτό θα εκτυπώσει όλες τις ετικέτες στο Excel χωρίς καμία βοήθεια από το Word.

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

👉 Πριν εκτελέσετε τον κώδικα VBA, βεβαιωθείτε ότι όλες οι ετικέτες σας ξεκινούν από το κελί A1 .

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

👉 Οι ενέργειες του κώδικα VBA είναι μη αναστρέψιμες. Επομένως, βεβαιωθείτε ότι έχετε δημιουργήσει αντίγραφα ασφαλείας των απαραίτητων δεδομένων σας πριν εκτελέσετε μια τέτοια ενέργεια.

Συμπέρασμα

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

Για περισσότερους οδηγούς όπως αυτός, επισκεφθείτε Exceldemy.com .