Πώς να απενεργοποιήσετε κάθε άλλη γραμμή με μια μακροεντολή
Θα θέλατε να κάνετε κάθε δευτερόλεπτο ή κάθε ένατη σειρά σε έναν πίνακα αόρατο; Μπορείτε να το κάνετε αυτό με την εντολή "Απόκρυψη". Αλλά αν θέλετε να το κάνετε αυτό για μεγάλο αριθμό γραμμών, γίνεται κουραστικό.
Μια μακροεντολή κάνει τη δουλειά για εσάς. Εδώ είναι ο κωδικός:
Απόκρυψη δευτερεύουσας γραμμής ()
Dim Row As Long
Σειρά = 1
Ενώ η γραμμή <1000
Κελιά (γραμμή, 1) .EntireRow.Hidden = True
Γραμμή = γραμμή + 2
Διευθύνω
Τέλος υπο
Η μακροεντολή αποκρύπτει κάθε άλλη σειρά στο ενεργό φύλλο εργασίας σας από τη σειρά 1 έως τη σειρά 1000. Εάν θέλετε διαφορετικό εύρος, τοποθετήστε το κάτω όριο 1 στην εντολή Σειρά = 1 και αλλάξτε το ανώτερο όριο 1000 στην εντολή Ενώ η γραμμή <1000Το Απλώς αντικαταστήστε το 1 και το 1000 με τους αριθμούς της επιλογής σας.
Εάν δεν θέλετε να αποκρύψετε κάθε δεύτερη γραμμή, μπορείτε επίσης να προσθέσετε διαφορετική τιμή για το 2 στην εντολή Γραμμή = γραμμή + 2 εισαγω. Μια τιμή 4 κρύβει μόνο κάθε τέταρτη γραμμή, έναν αριθμό 10 κάθε δέκατη γραμμή και ούτω καθεξής.
Για να εμφανίσετε ξανά τις κρυφές γραμμές, αντικαταστήστε την εντολή Αληθής στη μακροεντολή Ψευδής και ξεκινήστε ξανά τη μακροεντολή.
