Έχουμε ήδη εξετάσει τι είναι οι μεταβλητές και οι σταθερές, στο σεμινάριο Τύποι δεδομένων VBA - Μεταβλητές και σταθερές. Τώρα θα εξετάσουμε το αντικείμενο εύρους στο VBA και πώς να δηλώσουμε μια μεταβλητή ως αντικείμενο εύρους. Το αντικείμενο εύρους χρησιμοποιείται για να δηλώσει κελιά ή πολλαπλά κελιά σε VBA. Έτσι, είναι πολύ χρήσιμο να χρησιμοποιείτε στον κώδικά σας.
Κάντε κλικ εδώ για περισσότερες πληροφορίες σχετικά με τα VBA Ranges and Cells.
Το αντικείμενο εύρους VBA
Μπορείτε να χρησιμοποιήσετε το αντικείμενο εύρους για αναφορά σε ένα κελί. Για παράδειγμα, εάν θέλετε να ανατρέξετε στο κελί A1 στον κώδικα VBA, μπορείτε να χρησιμοποιήσετε το αντικείμενο εύρους VBA όπως φαίνεται στον παρακάτω κώδικα:
| 1234 | Sub ReferenceToASingleCellUsingTheRangeObject ()Εύρος ("A1"). Τιμή = 89Εύρος ("A1"). Font.Bold = TrueΤέλος υπο |
Όταν πατάτε εκτέλεση ή F5 στο πληκτρολόγιό σας, για να εκτελέσετε τον κώδικά σας, τότε λαμβάνετε το ακόλουθο αποτέλεσμα, στο πραγματικό σας φύλλο εργασίας:
Μπορείτε να χρησιμοποιήσετε το αντικείμενο εύρους για αναφορά σε πολλά κελιά ή εύρη. Για παράδειγμα, εάν θέλετε να αναφερθείτε στο εύρος κελιών (A1: C1) στον κώδικα VBA, μπορείτε να χρησιμοποιήσετε το αντικείμενο εύρους VBA όπως φαίνεται στον παρακάτω κώδικα:
| 123456 | Sub ReferenceToMultipleCellsUsingTheRangeObject ()Εύρος ("A1: C1"). Τιμή = "ABC"Εύρος ("A1: C1"). Περιγράμματα (xlEdgeBottom) .LineStyle = xlDoubleΤέλος υπο |
Όταν πατάτε εκτέλεση ή F5 στο πληκτρολόγιό σας, για να εκτελέσετε τον κώδικά σας, τότε λαμβάνετε το ακόλουθο αποτέλεσμα, στο πραγματικό σας φύλλο εργασίας:
Δήλωση μιας μεταβλητής ως εύρους
Θα πρέπει να χρησιμοποιήσετε τις λέξεις -κλειδιά Dim και Set όταν δηλώνετε μια μεταβλητή ως εύρος. Ο παρακάτω κώδικας σάς δείχνει πώς να δηλώσετε μια μεταβλητή ως εύρος.
| 123456789101112 | Sub DeclaringAndSettingARange ()Dim rng As RangeΡύθμιση rng = Εύρος ("A10: B10")rng.Value = "AutomateExcel"rng.Font.Bold = Truerng. Επιλέξτεrng.Στήλες.AutoFitΤέλος υπο |
Το αποτέλεσμα είναι:
Επιλογή συγκεκριμένων σειρών στο αντικείμενο εύρους σας
Μπορείτε να επιλέξετε συγκεκριμένες σειρές στο αντικείμενο εύρους. Ο παρακάτω κώδικας σάς δείχνει πώς να το κάνετε αυτό:
| 12345678 | Sub SelectingSpecificRowsInTheRangeObject ()Dim rng As RangeΡύθμιση rng = Εύρος ("A1: C3")rng. Σειρές (3). ΕπιλέξτεΤέλος υπο |
Το αποτέλεσμα είναι:
Επιλογή συγκεκριμένων στηλών στο αντικείμενο εύρους σας
Μπορείτε να επιλέξετε συγκεκριμένες στήλες μέσα στο αντικείμενο εύρους. Ο παρακάτω κώδικας σάς δείχνει πώς να το κάνετε αυτό:
| 12345678 | Sub SelectingSpecificColumnsInTheRangeObject ()Dim rng As RangeΡύθμιση rng = Εύρος ("A1: C3")rng. Στήλες (3). ΕπιλέξτεΤέλος υπο |
