Αυτό το σεμινάριο θα σας δείξει πώς να χρησιμοποιήσετε την ιδιότητα Range.End στο VBA.
Τα περισσότερα πράγματα που κάνετε με μη αυτόματο τρόπο σε ένα βιβλίο εργασίας ή σε ένα φύλλο εργασίας του Excel μπορούν να αυτοματοποιηθούν σε κώδικα VBA.
Εάν έχετε μια περιοχή μη κενών κελιών στο Excel και πατήστε Ctrl+κάτω βέλος, ο δρομέας σας θα μετακινηθεί στο τελευταίο μη κενό κελί στη στήλη στην οποία βρίσκεστε. Ομοίως, αν πατήσετε Ctl+επάνω βέλος, ο δρομέας σας θα μετακινηθεί στο πρώτο μη κενό κελί. Το ίδιο ισχύει για μια σειρά που χρησιμοποιεί το Ctrl+Δεξί βέλος ή Ctrl+Αριστερό βέλος για να μεταβείτε στην αρχή ή στο τέλος αυτής της σειράς. Όλοι αυτοί οι συνδυασμοί πλήκτρων μπορούν να χρησιμοποιηθούν στον κώδικα VBA χρησιμοποιώντας το Λειτουργία Τέλους.
Σύνταξη ιδιότητας εύρους τέλους
Η ιδιότητα Range.End σάς επιτρέπει να μετακινηθείτε σε ένα συγκεκριμένο κελί εντός της τρέχουσας περιοχής με την οποία εργάζεστε.
έκφραση.Τέλος (Κατεύθυνση)
η έκφραση είναι η διεύθυνση κελιού (Εύρος) του κελιού από όπου θέλετε να ξεκινήσετε, π.χ.: Εύρος ("A1")
END είναι η ιδιότητα του αντικειμένου Range που ελέγχεται.
Η κατεύθυνση είναι η σταθερά του Excel που μπορείτε να χρησιμοποιήσετε. Υπάρχουν 4 διαθέσιμες επιλογές - xlDown, xlToLeft, xlToRight και xlUp.
Μετακίνηση στο Τελευταίο Κελί
Η παρακάτω διαδικασία θα σας μεταφέρει στο τελευταίο κελί της Τρέχουσας περιοχής των κελιών στην οποία βρίσκεστε.
| 1234 | Sub GoToLast ()«μετακίνηση στο τελευταίο κελί που καταλαμβάνεται στην τρέχουσα περιοχή κελιώνΕύρος ("A1"). Τέλος (xlDown). ΕπιλέξτεΤέλος υπο |
Καταμέτρηση σειρών
Η ακόλουθη διαδικασία σάς επιτρέπει να χρησιμοποιήσετε το xlDown σταθερά με την ιδιότητα Range End για να μετρήσετε πόσες σειρές υπάρχουν στην τρέχουσα περιοχή σας.
| 12345678 | Sub GoToLastRowofRange ()Dim rw Ως ακέραιοςΕύρος ("A1"). Επιλέξτε«λάβετε την τελευταία σειρά στην τρέχουσα περιοχήrw = Εύρος ("A1"). Τέλος (xlDown). Σειρά«δείξτε πόσες σειρές χρησιμοποιούνταιMsgBox "Η τελευταία σειρά που χρησιμοποιείται σε αυτό το εύρος είναι" & rwΤέλος υπο |
Ενώ η παρακάτω θα μετρήσει τις στήλες στο εύρος χρησιμοποιώντας το xlToRight συνεχής.
| 12345678 | Sub GoToLastCellofRange ()Dim col ως ακέραιοςΕύρος ("A1"). Επιλέξτε"λάβετε την τελευταία στήλη στην τρέχουσα περιοχήcol = Εύρος ("A1"). Τέλος (xlToRight). Στήλη«δείξτε πόσες στήλες χρησιμοποιούνταιMsgBox "Η τελευταία στήλη που χρησιμοποιείται σε αυτό το εύρος είναι" & κολΤέλος υπο |
Δημιουργία πίνακα εύρους
Η παρακάτω διαδικασία μας επιτρέπει να ξεκινήσουμε από το πρώτο κελί σε μια περιοχή κελιών και στη συνέχεια να χρησιμοποιήσουμε την ιδιότητα Τέλος (xlDown) για να βρούμε το τελευταίο κελί στην περιοχή των κελιών. Στη συνέχεια, μπορούμε να επανατοποθετήσουμε τον πίνακα μας με τις συνολικές σειρές στο εύρος, επιτρέποντάς μας έτσι να κάνουμε βρόχο μέσα στο εύρος των κελιών.
| 123456789101112131415161718 | Sub PopulateArray ()"δηλώστε τον πίνακαDim strSuppliers () As String"δηλώστε τον ακέραιο για να μετρήσετε τις σειρέςDim n ως ακέραιος«μετρήστε τις σειρέςn = Range ("B1", Range ("B1"). End (xlDown)). Rows.Count"αρχικοποιήστε και συμπληρώστε τον πίνακαReDim strCustomers (n)"δηλώστε τον ακέραιο για βρόχοDim i As Integer"συμπληρώστε τον πίνακαΓια i = 0 έως nstrCustomers (i) = Range ("B1"). Offset (i, 0). ValueΕπόμενο i'εμφάνιση κουτιού μηνυμάτων με τιμές πίνακαMsgBox Join (strCustomers, vbCrLf)Τέλος υπο |
Όταν εκτελέσουμε αυτήν τη διαδικασία, θα επιστρέψει το ακόλουθο πλαίσιο μηνυμάτων.
