Χρειάζεστε τη μακροεντολή "UsedRange" για να επισημάνετε ή να μετρήσετε όλα τα κελιά που χρησιμοποιούνται σε έναν πίνακα χρησιμοποιώντας μια μακροεντολή. Χρησιμοποιώντας δύο παραδείγματα, θα σας δείξουμε πώς να το χρησιμοποιήσετε σωστά.
Εάν θέλετε να επεξεργαστείτε κελιά στους πίνακες σας χρησιμοποιώντας μακροεντολές, θα πρέπει να περιοριστείτε στα κελιά που πραγματικά περιέχουν περιεχόμενο. Αυτό είναι πιο εύκολο και πολύ πιο γρήγορο από την αναζήτηση σε όλα τα κελιά σε όλες τις στήλες και τις γραμμές. Το Excel σας προσφέρει την ιδιότητα για αυτόν τον σκοπό UsedRange στο. Αναφέρεται σε όλα τα χρησιμοποιημένα κελιά ενός πίνακα και παρέχει ένα Εύρος-Αντικείμενο.
Χρησιμοποιήστε το UsedRange για να επισημάνετε τα κελιά Excel που χρησιμοποιούνται
Η ακόλουθη μακροεντολή δείχνει πώς να χρησιμοποιήσετε την ιδιότητα στην πράξη:
Sub MarkAllUsedCells ()
ActiveSheet.UsedRange.Select
Τέλος υπο
Το παρακάτω σχήμα δείχνει πώς μπορεί να μοιάζει όταν χρησιμοποιείται η μακροεντολή σε έναν πίνακα. Όλα τα κελιά που χρησιμοποιούνται επισημαίνονται:
Η μακροεντολή επισημαίνει πάντα τα κελιά στον ενεργό πίνακα. Αν θέλετε να χρησιμοποιήσετε διαφορετικό πίνακα, αντικαταστήστε το αντικείμενο ActiveSheet με αναφορά στον σχετικό πίνακα.
Πώς να μετρήσετε τα χρησιμοποιούμενα εύρη κελιών στο Excel
Για να μετρήσετε τον αριθμό των κελιών σε έναν πίνακα που περιέχουν έναν τύπο, χρησιμοποιήστε την ακόλουθη μακροεντολή:
Sub FormulasCounting ()
Dim Cell As Range Dim Count ως Double Count = 0 για κάθε κελί στο ActiveSheet.UsedRange. Κελιά Αν κελί. HasFormula Στη συνέχεια Counter = Counter + 1 Επόμενο κελί MsgBox ("Υπάρχουν" & Str $ (Counter) & "κελιά με τύπους στον ενεργό πίνακα.")
Τέλος υπο
Η μακροεντολή ορίζει την ιδιότητα UsedRange.Cells που καθιστά δυνατή την αναφορά σε όλα τα κελιά που χρησιμοποιούνται στον πίνακα. Εάν ένα κελί περιέχει έναν τύπο, η μεταβλητή "Counter" αυξάνεται κατά 1. Το αποτέλεσμα στη συνέχεια εξάγεται σε ένα παράθυρο μηνύματος:
