Με αυτόν τον τρόπο μπορείτε να ελέγξετε εάν το ενεργό κελί βρίσκεται σε μια προηγουμένως καθορισμένη περιοχή κελιών στον πίνακά σας
Πολλές μακροεντολές αντιδρούν στη θέση του ενεργού κυττάρου. Αλλά πώς μπορείτε να πείτε εάν το ενεργό κύτταρο βρίσκεται σε μια συγκεκριμένη περιοχή κελιών; Δεν είναι απαραίτητο να διερευνηθεί αυτό το γεγονός με χρονοβόρες εντολές IF. Απλώς χρησιμοποιήστε τις λειτουργίες του VBA για να δημιουργήσετε διασταυρώσεις μεταξύ περιοχών. Η ακόλουθη μακροεντολή του Excel δείχνει πώς να το κάνετε αυτό:
Sub IstZelleImRbereich ()
Χαμηλή περιοχή δοκιμής As Range
Ορισμός εύρους δοκιμής = Εύρος ("b5: c60")
Εάν το Intersect (ActiveCell, περιοχή δοκιμής) δεν είναι τίποτα τότε
MsgBox "Το ενεργό κελί δεν είναι στην περιοχή" & _
Περιοχή δοκιμής. Διεύθυνση (Λάθος, Λάθος)
Αλλού
MsgBox "Το ενεργό κελί βρίσκεται στην περιοχή" & _
Περιοχή δοκιμής. Διεύθυνση (Λάθος, Λάθος)
Τέλος εαν
Τέλος υπο
Για να χρησιμοποιήσετε τη μακροεντολή, κάντε πρώτα κλικ σε ένα κελί. Στη συνέχεια, καλέστε τη μακροεντολή. Ελέγχει εάν το ενεργό κελί βρίσκεται στην περιοχή κελιών που έχετε ορίσει στη μακροεντολή. Εάν αυτό δεν συμβαίνει, το Excel εμφανίζει αυτό με ένα παράθυρο μηνύματος:
Εάν, από την άλλη πλευρά, το ενεργό κελί βρίσκεται στην καθορισμένη περιοχή κελιών, η μακροεντολή εμφανίζει επίσης αυτό το γεγονός με ένα παράθυρο μηνύματος:
Καθορίζετε ποια περιοχή στόχου θέλετε να δοκιμάσετε για επικάλυψη στη μακροεντολή χρησιμοποιώντας τη μεταβλητή TEST AREA.
