Αυτό το σεμινάριο θα δείξει τον τρόπο επιλογής και λειτουργίας με ολόκληρες γραμμές ή στήλες στο VBA.
Αρχικά θα καλύψουμε τον τρόπο επιλογής ολόκληρων γραμμών και στηλών, στη συνέχεια θα δείξουμε πώς να χειρίζεστε γραμμές και στήλες.
Επιλέξτε Ολόκληρες σειρές ή στήλες
Επιλέξτε Μονή σειρά
Μπορείτε να επιλέξετε μια ολόκληρη σειρά με το Σειρές Αντικείμενο σαν αυτό:
1 | Σειρές (5). Επιλέξτε |
Or μπορείτε να χρησιμοποιήσετε Ολόκληρη η σειρά μαζί με Εύρος ή Αντικείμενα κελιών:
1 | Εύρος ("B5"). EntireRow. Επιλέξτε |
ή
1 | Κελιά (5,1). Ολόκληρη σειρά. Επιλέξτε |
Μπορείτε επίσης να χρησιμοποιήσετε το Εύρος αντικειμένου για να αναφερθείτε συγκεκριμένα σε μια σειρά:
1 | Εύρος ("5: 5"). Επιλέξτε |
Επιλέξτε Μία στήλη
Αντί του Σειρές Αντικείμενο, Χρησιμοποιήστε το Στήλες Αντικείμενο για να επιλέξετε στήλες. Εδώ μπορείτε να αναφέρετε τον αριθμό στήλης 3:
1 | Στήλες (3). Επιλέξτε |
ή γράμμα "C", που περιβάλλεται από εισαγωγικά:
1 | Στήλες ("C"). Επιλέξτε |
Αντί Ολόκληρη η σειρά, χρήση Ολόκληρη στήλη μαζί με Εύρος ή Αντικείμενα κελιών για να επιλέξετε ολόκληρες στήλες:
1 | Εύρος ("C5"). EntireColumn.Select |
ή
1 | Κελιά (5,3) .Ολόκληρη στήλη. Επιλέξτε |
Μπορείτε επίσης να χρησιμοποιήσετε το Εύρος αντικειμένου για να αναφερθείτε συγκεκριμένα σε μια στήλη:
1 | Εύρος ("B: B"). Επιλέξτε |
Επιλέξτε Πολλαπλές σειρές ή στήλες
Η επιλογή πολλών σειρών ή στηλών λειτουργεί ακριβώς το ίδιο όταν χρησιμοποιείτε το EntireRow ή το EntireColumn:
1 | Εύρος ("B5: D10"). EntireRow. Επιλέξτε |
ή
1 | Εύρος ("B5: B10"). EntireColumn.Select |
Ωστόσο, όταν χρησιμοποιείτε τα αντικείμενα γραμμών ή στηλών, πρέπει να εισαγάγετε τους αριθμούς γραμμών ή τα γράμματα στηλών σε εισαγωγικά:
1 | Σειρές ("1: 3"). Επιλέξτε |
ή
1 | Στήλες ("B: C"). Επιλέξτε |
Επιλέξτε γραμμή ή στήλη ActiveCell
Για να επιλέξετε τη γραμμή ή τη στήλη ActiveCell, μπορείτε να χρησιμοποιήσετε μία από αυτές τις γραμμές κώδικα:
1 | ActiveCell.EntireRow.Select |
ή
1 | ActiveCell.EntireColumn.Select |
Επιλέξτε Γραμμές και στήλες σε άλλα φύλλα εργασίας
Για να επιλέξετε Γραμμές ή Στήλες σε άλλα φύλλα εργασίας, πρέπει πρώτα να επιλέξετε το φύλλο εργασίας.
12 | Φύλλα ("Φύλλο2"). ΕπιλέξτεΣειρές (3). Επιλέξτε |
Το ίδιο ισχύει για την επιλογή γραμμών ή στηλών σε άλλα βιβλία εργασίας.
123 | Τετράδια εργασίας ("Book6.xlsm"). ΕνεργοποιήστεΦύλλα ("Φύλλο2"). ΕπιλέξτεΣειρές (3). Επιλέξτε |
Σημείωση: Πρέπει Θέτω εις ενέργειαν το επιθυμητό βιβλίο εργασίας. σε αντίθεση με το Αντικείμενο φύλλων, ο Αντικείμενο βιβλίου εργασίας δεν έχει α Επιλέξτε Μέθοδος.
Είναι απαραίτητη η επιλογή γραμμών και στηλών;
Ωστόσο, δεν είναι (σχεδόν;) ποτέ απαραίτητο να επιλέξετε πραγματικά Γραμμές ή Στήλες. Δεν χρειάζεται να επιλέξετε μια γραμμή ή στήλη για να αλληλεπιδράσετε μαζί τους. Αντ 'αυτού, μπορείτε να εφαρμόσετε μεθόδους ή ιδιότητες απευθείας στις γραμμές ή τις στήλες. Οι επόμενες αρκετές ενότητες θα παρουσιάσουν διαφορετικές μεθόδους και ιδιότητες που μπορούν να εφαρμοστούν.
Μπορείτε να χρησιμοποιήσετε οποιαδήποτε μέθοδο που αναφέρεται παραπάνω για να ανατρέξετε σε Γραμμές ή Στήλες.
Μέθοδοι και ιδιότητες γραμμών και στηλών
Διαγραφή ολόκληρων γραμμών ή στηλών
Για να διαγράψετε γραμμές ή στήλες, χρησιμοποιήστε το Διαγραφή μεθόδου:
1 | Σειρές ("1: 4"). Διαγραφή |
ή:
1 | Στήλες ("A: D"). Διαγραφή |
Εισαγωγή γραμμών ή στηλών
Χρησιμοποιήστε το Μέθοδος εισαγωγής για εισαγωγή γραμμών ή στηλών:
1 | Σειρές ("1: 4"). Εισαγωγή |
ή:
1 | Στήλες ("A: D"). Εισαγωγή |
Αντιγραφή και επικόλληση ολόκληρων γραμμών ή στηλών
Επικόλληση σε υπάρχουσα σειρά ή στήλη
Κατά την αντιγραφή και επικόλληση ολόκληρων γραμμών ή στηλών πρέπει να αποφασίσετε εάν θέλετε να επικολλήσετε σε μια υπάρχουσα γραμμή / στήλη ή εάν θέλετε να εισαγάγετε μια νέα σειρά / στήλη για να επικολλήσετε τα δεδομένα σας.
Αυτά τα πρώτα παραδείγματα θα αντιγράψουν και επικολλήσουν σε μια υπάρχουσα γραμμή ή στήλη:
1 | Εύρος ("1: 1"). Εύρος αντιγραφής ("5: 5") |
ή
1 | Εύρος ("C: C"). Εύρος αντιγραφής ("E: E") |
Εισαγωγή και επικόλληση
Αυτά τα επόμενα παραδείγματα θα επικολληθούν σε μια νέα γραμμή ή στήλη.
Αυτό θα αντιγράψει τη σειρά 1 και θα την εισαγάγει στη σειρά 5, μετατοπίζοντας τις υπάρχουσες γραμμές προς τα κάτω:
12 | Εύρος ("1: 1"). ΑντιγραφήΕύρος ("5: 5"). Εισαγωγή |
Αυτό θα αντιγράψει τη στήλη C και θα την εισαγάγει στη στήλη Ε, αλλάζοντας τις υπάρχουσες στήλες προς τα δεξιά:
12 | Εύρος ("C: C"). ΑντιγραφήΕύρος ("E: E"). Εισαγωγή |
Απόκρυψη / Απόκρυψη σειρών και στηλών
Για να αποκρύψετε γραμμές ή στήλες, ορίστε τις Κρυφές ιδιότητες στο True. Χρησιμοποιήστε False για να αποκρύψετε τις γραμμές ή τις στήλες:
12345 | 'Απόκρυψη σειρώνΣειρές ("2: 3"). EntireRow.Hidden = True'Αποκάλυψη σειρώνΣειρές ("2: 3"). EntireRow.Hidden = False |
ή
12345 | 'Απόκρυψη στηλώνΣτήλες ("B: C"). EntireColumn.Hidden = True'Αποκάλυψη στηλώνΣτήλες ("B: C"). EntireColumn.Hidden = False |
Ομάδα / UnGroup σειρές και στήλες
Εάν θέλετε να ομαδοποιήσετε σειρές (ή στήλες) χρησιμοποιήστε τον ακόλουθο κώδικα:
12345 | 'Ομάδες σειρώνΣειρές ("3: 5"). Ομάδα'Ομάδες στήλεςΣτήλες ("C: D"). Ομάδα |
Για να καταργήσετε την ομαδοποίηση χρησιμοποιήστε αυτόν τον κωδικό:
12345 | «Κατάργηση ομαδοποίησης σειρώνΣειρές ("3: 5"). Αναιρέστε την ομάδα'Αφαίρεση των στηλώνΣτήλες ("C: D"). Ομαδοποίηση |
Αυτό θα επεκτείνει όλα τα "ομαδοποιημένα" επίπεδα περιγράμματος:
1 | ActiveSheet.Outline.ShowLevels RowLevels: = 8, ColumnLevels: = 8 |
και αυτό θα καταρρεύσει όλα τα επίπεδα περιγράμματος:
1 | ActiveSheet.Outline.ShowLevels RowLevels: = 1, ColumnLevels: = 1 |
Ορίστε ύψος γραμμής ή πλάτος στήλης
Για να ρυθμίσετε το πλάτος της στήλης, χρησιμοποιήστε αυτήν τη γραμμή κώδικα:
1 | Στήλες ("A: E"). ColumnWidth = 30 |
Για να ορίσετε το ύψος της γραμμής, χρησιμοποιήστε αυτήν τη γραμμή κώδικα:
1 | Σειρές ("1: 1"). RowHeight = 30 |
Αυτόματη προσαρμογή ύψους γραμμής / πλάτος στήλης
Για αυτόματη προσαρμογή μιας στήλης:
1 | Στήλες ("A: B"). Αυτόματη προσαρμογή |
Για αυτόματη προσαρμογή μιας σειράς:
1 | Σειρές ("1: 2"). Αυτόματη προσαρμογή |
Σειρές και στήλες σε άλλα φύλλα εργασίας ή βιβλία εργασίας
Για να αλληλεπιδράσετε με γραμμές και στήλες σε άλλα φύλλα εργασίας, πρέπει να ορίσετε το Αντικείμενο φύλλων:
1 | Φύλλα ("Φύλλο2"). Σειρές (3) .Εισαγωγή |
Ομοίως, για να αλληλεπιδράσετε με γραμμές και στήλες σε άλλα βιβλία εργασίας, πρέπει επίσης να ορίσετε το Αντικείμενο βιβλίου εργασίας:
1 | Τετράδια εργασίας ("book1.xlsm"). Φύλλα ("Φύλλο2"). Σειρές (3) .Εισαγωγή |
Λήψη ενεργής γραμμής ή στήλης
Για να λάβετε την ενεργή γραμμή ή στήλη, μπορείτε να χρησιμοποιήσετε το Σειρά και Ιδιότητες στήλης απο Αντικείμενο ActiveCell.
1 | MsgBox ActiveCell.Row |
ή
1 | MsgBox ActiveCell.Column |
Αυτό λειτουργεί επίσης με το Εύρος αντικειμένου:
1 | MsgBox Range ("B3"). Στήλη |