Πώς να ορίσετε ένα πλάτος στήλης υπολογιστικού φύλλου Excel με VBA;

Ενημερώθηκε: Αύγουστος 2021; Λειτουργεί στο Excel 365, 2019, 2016.

Στο σημερινό σεμινάριο αυτοματισμού του Excel θα μάθουμε πώς να αλλάζουμε γρήγορα το πλάτος μιας στήλης φύλλου εργασίας ανάλογα με τις ανάγκες – αλλά μέσω προγραμματισμού χρησιμοποιώντας VBA (Visual Basic for Applications).

Προαπαιτούμενα

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

Στον υπολογιστή σας με Windows, ανοίξτε το Microsoft Excel .
Στην κύρια Κορδέλα, πατήστε Προγραμματιστής .
Πατήστε την εντολή της Visual Basic . Αυτό θα ανοίξει το πρόγραμμα επεξεργασίας VBA .
Στην αριστερή πλευρά της εξερεύνησης έργου, επισημάνετε ένα συγκεκριμένο φύλλο στο οποίο θα εισαγάγετε τον κωδικό σας. Εναλλακτικά, μπορείτε να εισαγάγετε μια νέα λειτουργική μονάδα ή να προσθέσετε τον κώδικά μας σε μια υπάρχουσα λειτουργική μονάδα VBA.

Ρύθμιση ενός πλάτους στήλης

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

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


Sub Set_Column_Width()

Dim MySheet As Worksheet
Set MySheet = ActiveSheet

' Select one or multiple columns, set your column width as needed

With MySheet.Columns("B")

    .ColumnWidth = 50
End With

End Sub

Εκτελέστε τον κωδικό σας πατώντας στο F5 ή επιλέξτε Run >> Run Sub ή Form.
Αποθηκεύστε την εργασία σας πατώντας Αρχείο >> Αποθήκευση ή το εικονίδιο Δίσκος.

Αλλαγή πλάτους εύρους πολλαπλών στηλών

Σε αυτό το παράδειγμα επιλέγουμε ένα εύρος στηλών και μετά αλλάζουμε το πλάτος.

Μπορείτε να εφαρμόσετε τον κώδικα με τον ίδιο τρόπο που περιγράφηκε στην προηγούμενη ενότητα.

Sub Set_Column_Range_Width()

Dim MySheet As Worksheet

Set MySheet = ActiveSheet

' Set your column width as needed
With MySheet.Range("A:F")

    .ColumnWidth = .ColumnWidth * 1.5
End With

End Sub

Επόμενα βήματα

Ξεκινάτε με VBA; Βεβαιωθείτε ότι έχετε εξετάσει τις βασικές αρχές του VBA για τον οδηγό Excel .

Αφήστε ένα σχόλιο

Εκτυπώσιμο Πρότυπο Εβδομαδιαίου Προγράμματος Καθαριότητας για Φιλοξενούμενους Airbnb (Word & PDF)

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

Δωρεάν Πρότυπο Ημερολογίου Οργάνωσης Μηνιαίων Λογαριασμών για Excel: Πρακτική Ρύθμιση για το 2026

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

Ο τύπος του Excel δεν υπολογίζεται αυτόματα; Διορθώστε τον σε 3 εύκολα βήματα

Διορθώστε τύπους του Excel που δεν υπολογίζονται αυτόματα σε τρία βήματα: ενεργοποιήστε τον αυτόματο υπολογισμό, κάντε επανυπολογισμό και επισκευάστε τα κελιά τύπων.

Πρότυπο Παρακολούθησης Εξόδων για Ανεξάρτητους Εργολάβους στις ΗΠΑ: Τι να Παρακολουθείτε το 2026

Δημιουργήστε έναν πρακτικό παρακολούθησης εξόδων για Αμερικανούς freelancers με κατηγορίες συμβατές με το Schedule C, πεδία αποδείξεων, παρακολούθηση χιλιομέτρων και ενημερώσεις των κανόνων της IRS για το 2026.

Καλύτερες δωρεάν εφαρμογές τιμολόγησης για μικρές επιχειρήσεις παροχής υπηρεσιών στις ΗΠΑ (2026)

Συγκρίνετε τις καλύτερες δωρεάν εφαρμογές τιμολόγησης για επιχειρήσεις παροχής υπηρεσιών στις ΗΠΑ το 2026, συμπεριλαμβανομένων των Zoho Invoice, Wave, Square, PayPal και Invoice Ninja.

Δωρεάν Πρότυπο Excel για Παρακολούθηση Εσόδων και Εξόδων Ακινήτων Ενοικίασης: Οδηγός για Αρχάριους

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

Δωρεάν Πρότυπο Παρουσίασης Αναφοράς Κατάστασης Έργου για Agile Ομάδες: Τι Πρέπει να Περιλαμβάνει;

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

Πώς να διορθώσετε το «Η ηχογράφηση οθόνης του PowerPoint δεν έχει ήχο»

Η ηχογράφηση οθόνης του PowerPoint έχει βίντεο αλλά όχι ήχο; Ελέγξτε τον έλεγχο Ήχου, την πρόσβαση στο μικρόφωνο των Windows, τις ρυθμίσεις εισόδου, τη συμβατότητα αναπαραγωγής, τις ενημερώσεις και την επισκευή.

Δωρεάν Πρότυπο Προγράμματος Βάρδιας Εργαζομένων σε Excel με Υπολογιστή Ωρών

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

Δωρεάν Πρότυπο Τιμολογίου Μικρής Επιχείρησης για Excel με Αυτοματοποιημένο Υπολογισμό Φόρου Πωλήσεων

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