Απόκρυψη στηλών VBA | Πώς να αποκρύψετε στήλες χρησιμοποιώντας τον κώδικα VBA;

Απόκρυψη στηλών VBA του Excel

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

Εύρος ("A: A")

Τότε πρέπει να χρησιμοποιήσουμε την ιδιότητα "Ολόκληρη τη στήλη".

Εύρος ("A: A"). Ολόκληρη η στήλη

Σε ολόκληρη την ιδιότητα στήλης, πρέπει να χρησιμοποιήσουμε την ιδιότητα "Κρυφό".

Εύρος ("A: A"). Ολόκληρη η στήλη. Κρυφό

Στη συνέχεια, επιτέλους, πρέπει να ορίσουμε την κρυφή ιδιότητα σε ΑΛΗΘΕΙΑ.

Εύρος ("A: A"). Ολόκληρη η στήλη.Hidden = TRUE 

Αυτό θα κρύψει τη στήλη A.

Πώς να αποκρύψετε στήλες στο VBA;

Μπορούμε να κρύψουμε στήλες με διάφορους τρόπους. Μπορούμε να κρύψουμε μια στήλη χρησιμοποιώντας ένα αντικείμενο Range, χρησιμοποιώντας την ιδιότητα CELLS. Με βάση τη μέθοδο που χρησιμοποιούμε πρέπει να κατασκευάσουμε τον κώδικα VBA.

Μπορείτε να πραγματοποιήσετε λήψη αυτού του προτύπου VBA Hide Columns Excel - VBA Hide Columns Excel Template

Παράδειγμα # 1 - Απόκρυψη με χρήση αντικειμένου εύρους

Εάν θέλετε να αποκρύψετε μια συγκεκριμένη στήλη, τότε καθορίστε τη στήλη μέσα στο αντικείμενο RANGE. Κοιτάξτε τα παρακάτω δεδομένα.

Τώρα θα κρύψουμε ολόκληρη τη στήλη Α χρησιμοποιώντας τον ακόλουθο κώδικα.

Κώδικας:

 Sub Range_Hide () Range ("A: A"). EntireColumn.Hidden = True End Sub 

Έτσι, όταν εκτελέσουμε τον κώδικα, θα έχουμε το ακόλουθο αποτέλεσμα.

Παράδειγμα # 2 - Απόκρυψη χρησιμοποιώντας την ιδιότητα στηλών

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

Κώδικας:

 Sub Range_Hide () Στήλες ("B"). Hidden = True End Sub 

Αυτό θα κρύψει τη στήλη Β. Εδώ πρέπει να σκεφτείτε πού είναι ολόκληρη η ιδιότητα στήλης. Όταν χρησιμοποιείτε την ιδιότητα Στήλες, δεν είναι απαραίτητο να χρησιμοποιήσετε την ιδιότητα Ολόκληρη η Στήλη.

Μπορούμε ακόμα να χρησιμοποιήσουμε την ιδιότητα Ολόκληρη τη στήλη, αλλά δεν απαιτείται απαραίτητα. Και ο κώδικας για το ίδιο δίνεται παρακάτω.

Κώδικας:

 Υπο στήλες_ Απόκρυψη () Στήλες ("B"). Ολόκληρη η στήλη.Hidden = Sub End True 

Αυτό πρέπει επίσης να λειτουργεί καλά.

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

Κώδικας:

 Υπο στήλες_Απόκρυψη () Στήλες (4) .EntireColumn.Hidden = Sub End True 

Αυτό θα κρύψει τη στήλη D.

Παράδειγμα # 3 - Απόκρυψη πολλαπλών στηλών

Μπορούμε επίσης να κρύψουμε πολλές στήλες ταυτόχρονα. Γι 'αυτό, πρέπει να αναφέρουμε την πρώτη και την τελευταία στήλη, έτσι ώστε να κρυφτεί και μεταξύ της στήλης. Για τα ίδια δεδομένα με το παράδειγμα # 1 χρησιμοποιήστε τον ακόλουθο κώδικα για να αποκρύψετε πολλές στήλες.

Κώδικας:

 Sub Columns_Hide () Range ("A: C"). EntireColumn.Hidden = True End Sub 

Αυτό θα κρύψει τη στήλη Α έως Γ.

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

Κώδικας:

 Sub Multi_Columns_Hide () Στήλες ("A: C"). Ολόκληρη η στήλη.Hidden = Sub End True 

Οι παραπάνω μέθοδοι αποκρύπτουν τις τρεις πρώτες στήλες, δηλαδή A, B και C.

Παράδειγμα # 4 - Απόκρυψη στηλών με μονό κελί

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

Κώδικας:

 Sub Single_Hide () Range ("A5"). EntireColumn.Hidden = True End Sub 

Αυτό θα κρύψει ολόκληρη τη στήλη A.

Παράδειγμα # 5 - Απόκρυψη κάθε εναλλακτικής στήλης

Ας υποθέσουμε ότι έχετε δεδομένα σαν την παρακάτω εικόνα.

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

Κώδικας:

 Sub AlternativeColumn_Hide () Dim k As Integer For k = 1 to 7 Cells (1, k + 1). EntireColumn.Hidden = True k = k + 1 Next k End Sub 

Αυτό θα κρύψει κάθε εναλλακτική στήλη.

Παράδειγμα # 6 - Απόκρυψη κάθε κενής στήλης

Στο προηγούμενο παράδειγμα κάθε άλλη εναλλακτική στήλη ήταν κενή που έχουμε κρύψει εύκολα. Αλλά κοιτάξτε τα παρακάτω δεδομένα.

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

Κώδικας:

 Sub Column_Hide1 () Dim k As Integer For k = 1 to 11 If Cells (1, k). Value = "" Maka Columns (k). Hidden = True End if Next k End Sub 

Όταν εκτελείτε τον κωδικό, θα έχετε το αποτέλεσμα ως εξής.

Παράδειγμα # 7 - Απόκρυψη στηλών βάσει της τιμής κελιού

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

Εδώ θέλω να κρύψω όλες τις στήλες εάν ο τίτλος είναι "Όχι". Ο παρακάτω κώδικας θα το κάνει για μένα.

Κώδικας:

 Sub Column_Hide_Cell_Value () Dim k As Integer For k = 1 to 7 If Cells (1, k). Value = "No" then Columns (k). Hidden = True End if Next k End Sub 

Όταν εκτελείτε τον κωδικό, θα έχετε το αποτέλεσμα ως εξής.