VBA Επιλέξτε Εύρος / Κελιά

Το VBA σάς επιτρέπει να επιλέξετε ένα κελί, εύρη κελιών ή όλα τα κελιά στο φύλλο εργασίας. Μπορείτε να χειριστείτε το επιλεγμένο κελί ή εύρος χρησιμοποιώντας το αντικείμενο επιλογής.

Επιλέξτε ένα κελί χρησιμοποιώντας VBA

Μπορείτε να επιλέξετε ένα κελί σε ένα φύλλο εργασίας χρησιμοποιώντας τη μέθοδο Επιλογή. Ο ακόλουθος κώδικας θα επιλέξει το κελί A2 στο ActiveWorksheet:

1	Εύρος ("A2"). Επιλέξτε

Ή

1	Κελιά (2, 1). Επιλέξτε

Το αποτέλεσμα είναι:

Επιλέξτε μια περιοχή κελιών χρησιμοποιώντας το VBA

Μπορείτε να επιλέξετε μια ομάδα κελιών σε ένα φύλλο εργασίας χρησιμοποιώντας τη μέθοδο Επιλογή και το αντικείμενο Εύρος. Ο παρακάτω κωδικός θα επιλέξει A1: C5:

1	Εύρος ("A1: C5"). Επιλέξτε

Επιλέξτε μια σειρά μη συνεχόμενων κελιών χρησιμοποιώντας το VBA

Μπορείτε να επιλέξετε κελιά ή εύρη που δεν βρίσκονται το ένα δίπλα στο άλλο, διαχωρίζοντας τα κελιά ή τις περιοχές χρησιμοποιώντας ένα κόμμα στο VBA. Ο παρακάτω κώδικας θα σας επιτρέψει να επιλέξετε κελιά A1, C1 και E1:

1	Εύρος ("A1, C1, E1"). Επιλέξτε

Μπορείτε επίσης να επιλέξετε σύνολα μη συνεχόμενων περιοχών στο VBA. Ο ακόλουθος κωδικός θα επιλέξει A1: A9 και B11: B18:

1	Εύρος ("A1: A9, B11: B18"). Επιλέξτε

Επιλέξτε Όλα τα κελιά σε ένα φύλλο εργασίας

Μπορείτε να επιλέξετε όλα τα κελιά σε ένα φύλλο εργασίας χρησιμοποιώντας VBA. Ο παρακάτω κώδικας θα επιλέξει όλα τα κελιά σε ένα φύλλο εργασίας.

1	Κελιά. Επιλέξτε

Επιλέξτε μια γραμμή

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

1	Γραμμές (1). Επιλέξτε

Επιλέξτε μια στήλη

Μπορείτε να επιλέξετε μια συγκεκριμένη στήλη σε ένα φύλλο εργασίας χρησιμοποιώντας το αντικείμενο στήλης και τον αριθμό ευρετηρίου της στήλης που θέλετε να επιλέξετε. Ο ακόλουθος κώδικας θα επιλέξει τη στήλη C στο φύλλο εργασίας σας:

1	Στήλες (3). Επιλέξτε

Επιλέξτε το τελευταίο μη κενό κελί σε μια στήλη

Ας υποθέσουμε ότι έχετε δεδομένα στα κελιά A1, A2, A3 και A4 και θα θέλατε να επιλέξετε το τελευταίο μη κενό κελί που θα ήταν το κελί A4 στη στήλη. Μπορείτε να χρησιμοποιήσετε το VBA για να το κάνετε αυτό και τη μέθοδο Range.End.

ο Εύρος. Τελική μέθοδος μπορεί να πάρει τέσσερα επιχειρήματα, συγκεκριμένα: xlToLeft, xlToRight, xlUp και xlDown.

Ο ακόλουθος κώδικας θα επιλέξει το τελευταίο μη κενό κελί που θα ήταν A4 σε αυτήν την περίπτωση, εάν το A1 είναι το ενεργό κελί:

1	Εύρος ("A1"). Τέλος (xlDown). Επιλέξτε

Επιλέξτε το τελευταίο μη κενό κελί σε σειρά

Ας υποθέσουμε ότι έχετε δεδομένα στα κελιά A1, B1, C1, D1 και E1 και θα θέλατε να επιλέξετε το τελευταίο μη κενό κελί που θα ήταν το κελί E1 στη σειρά. Μπορείτε να χρησιμοποιήσετε το VBA για να το κάνετε αυτό και τη μέθοδο Range.End.

Ο ακόλουθος κώδικας θα επιλέξει το τελευταίο μη κενό κελί που θα ήταν E1 σε αυτήν την περίπτωση, εάν το A1 είναι το ενεργό κελί:

1	Εύρος ("A1"). Τέλος (xlToRight). Επιλέξτε

Επιλέξτε την τρέχουσα περιοχή στο VBA

Μπορείτε να χρησιμοποιήσετε το Ιδιότητα CurrentRegion του αντικειμένου εύρους για να επιλέξετε ένα ορθογώνιο εύρος κενών και μη κελιών γύρω από ένα συγκεκριμένο δεδομένο κελί εισόδου. Εάν έχετε δεδομένα στα κελιά A1, B1 και C1, ο ακόλουθος κώδικας θα επέλεγε αυτήν την περιοχή γύρω από το κελί A1:

1	Εύρος ("A1"). CurrentRegion.Select

Έτσι θα επιλεγεί το εύρος A1: C1.

Επιλέξτε ένα κελί που σχετίζεται με ένα άλλο κελί

Μπορείτε να χρησιμοποιήσετε το Offset Property για να επιλέξετε ένα κελί που σχετίζεται με ένα άλλο κελί. Ο ακόλουθος κώδικας σάς δείχνει πώς να επιλέξετε το κελί Β2 που είναι 1 σειρά και 1 στήλη σε σχέση με το κελί Α1:

1	Εύρος ("A1"). Offset (1, 1). Επιλέξτε

Επιλέξτε μια περιοχή με όνομα στο Excel

Μπορείτε να επιλέξετε Ονομασμένο εύρος επισης. Ας υποθέσουμε ότι έχετε ονομάσει τα κύτταρα A1: A4 Fruit. Μπορείτε να χρησιμοποιήσετε τον ακόλουθο κώδικα για να επιλέξετε αυτό το εύρος με το όνομα:

1	Εύρος ("Φρούτα"). Επιλέξτε

Επιλογή κελιού σε άλλο φύλλο εργασίας

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

12	Φύλλα εργασίας ("Φύλλο5"). ΕνεργοποιήστεΕύρος ("A1"). Επιλέξτε

Χειρισμός του αντικειμένου επιλογής στο VBA

Αφού επιλέξετε ένα κελί ή μια περιοχή κελιών, μπορείτε να ανατρέξετε στο αντικείμενο επιλογής για να χειριστείτε αυτά τα κελιά. Ο ακόλουθος κώδικας επιλέγει τα κελιά A1: C1 και ορίζει τη γραμματοσειρά αυτών των κελιών σε Arial, το βάρος της γραμματοσειράς σε έντονη γραφή, το στυλ γραμματοσειράς σε πλάγια και το χρώμα πλήρωσης σε πράσινο.

123456789

Sub FormatSelection ()Εύρος ("A1: C1"). ΕπιλέξτεSelection.Font.Name = "Arial"Selection.Font.Bold = TrueSelection.Font.Italic = TrueΕπιλογή. Εσωτερικό.Χρώμα = vbGreenΤέλος υπο

Το αποτέλεσμα είναι:

Χρήση του Με… Τέλος με Κατασκευή

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

1234567891011

Sub UsingWithEndWithSelection ()Εύρος ("A1: C1"). ΕπιλέξτεΜε Επιλογή.Font.Name = "Arial".Font.Bold = True.Font.Italic = True.Εσωτερικό.Χρώμα = vbGreenΤέλος μεΤέλος υπο