Πώς να ορίσετε ένα πλάτος στήλης υπολογιστικού φύλλου 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 .