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

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

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

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

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

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

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


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

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

Ανακαλύψτε πώς να ρυθμίσετε το χρώμα κελιού Excel ανάλογα με μια συνθήκη χρησιμοποιώντας VBA.

Οδηγίες για την κοπή εικόνων σε κύκλους στο PowerPoint

Οδηγίες για την κοπή εικόνων σε κύκλους στο PowerPoint

Οδηγίες για την κοπή εικόνων σε κύκλους στο PowerPoint. Ανακαλύψτε πόσο απλά μπορείτε να κόψετε φωτογραφίες σε κύκλους για εντυπωσιακές παρουσιάσεις.

Πώς να γράψετε από δεξιά προς τα αριστερά στο Microsoft Office 2016 , 2019 / 365;

Πώς να γράψετε από δεξιά προς τα αριστερά στο Microsoft Office 2016 , 2019 / 365;

Μάθετε πώς να κάνετε εναλλαγή από πληκτρολόγια LTR σε RTL στο Microsoft Word.

Πώς να χρησιμοποιήσετε διαφορετικές γραμματοσειρές στο Discord

Πώς να χρησιμοποιήσετε διαφορετικές γραμματοσειρές στο Discord

Μάθετε πώς να χρησιμοποιήσετε διαφορετικές γραμματοσειρές στο Discord. Οι επιλογές γραμματοσειρών είναι ποικίλες και πλούσιες.

Κορυφαίες εφαρμογές κοπής ήχου κλήσης στο Android

Κορυφαίες εφαρμογές κοπής ήχου κλήσης στο Android

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

Οδηγίες για την αλλαγή του ονόματος της ομάδας συνομιλίας του Facebook Messenger

Οδηγίες για την αλλαγή του ονόματος της ομάδας συνομιλίας του Facebook Messenger

Οδηγίες για την αλλαγή του ονόματος της ομάδας συνομιλίας στο Facebook Messenger. Αυτή τη στιγμή στην ομαδική συνομιλία του Facebook Messenger, μπορούμε εύκολα να αλλάξουμε το όνομα της ομάδας συνομιλίας.

Οδηγίες για την επαναφορά των διαγραμμένων αναρτήσεων στο Facebook

Οδηγίες για την επαναφορά των διαγραμμένων αναρτήσεων στο Facebook

Ανακαλύψτε πώς να επαναφέρετε διαγραμμένες αναρτήσεις στο Facebook εύκολα και γρήγορα. Μαθαίνετε όλες τις λεπτομέρειες για την ανάκτηση διαγραμμένων αναρτήσεων

Οδηγίες για ακρόαση μουσικής στους Χάρτες Google

Οδηγίες για ακρόαση μουσικής στους Χάρτες Google

Οδηγίες για την ακρόαση μουσικής στους Χάρτες Google Επί του παρόντος, οι χρήστες μπορούν να ταξιδέψουν και να ακούσουν μουσική χρησιμοποιώντας την εφαρμογή Google Map στο iPhone. Σήμερα, το WebTech360 σας προσκαλεί

Οδηγίες για τη χρήση της υπηρεσίας ηλεκτρονικής αποθήκευσης LifeBOX - Viettel

Οδηγίες για τη χρήση της υπηρεσίας ηλεκτρονικής αποθήκευσης LifeBOX - Viettel

Οδηγίες για τη χρήση του LifeBOX - Η διαδικτυακή υπηρεσία αποθήκευσης της Viettel, το LifeBOX είναι μια νέα διαδικτυακή υπηρεσία αποθήκευσης της Viettel με πολλά ανώτερα χαρακτηριστικά

Πώς να ενημερώσετε την κατάσταση στο Facebook Messenger

Πώς να ενημερώσετε την κατάσταση στο Facebook Messenger

Πώς να ενημερώσετε την κατάσταση στο Facebook Messenger, το Facebook Messenger στην πιο πρόσφατη έκδοση παρείχε στους χρήστες μια εξαιρετικά χρήσιμη δυνατότητα: αλλαγή