Αυτό το σεμινάριο θα δείξει πώς να χρησιμοποιήσετε το Activecell Offset στο VBA.
Το ActiveCell είναι μια ιδιότητα του VBA που αντιπροσωπεύει τη διεύθυνση κελιού του ενεργού κελιού στο φύλλο εργασίας σας. Εάν ο δείκτης του ποντικιού σας είναι τοποθετημένος στο κελί A1, τότε η ιδιότητα ActiveCell στο VBA θα επιστρέψει τη διεύθυνση κελιού του "A1". Είναι μια σειρά ιδιοτήτων και μεθόδων που συνδέονται με το ActiveCell. Σε αυτό το άρθρο επικεντρωνόμαστε στη μέθοδο ActiveCell.Offset.
Ιδιότητες και μέθοδοι ActiveCell.Offset
Το Activecell.Offset έχει πολλές διαθέσιμες ιδιότητες και μεθόδους για προγραμματισμό με VBA. Για να δείτε τις διαθέσιμες ιδιότητες και μεθόδους, πληκτρολογήστε την ακόλουθη πρόταση σε μια διαδικασία όπως φαίνεται παρακάτω και πατήστε το πλήκτρο περιόδου στο πληκτρολόγιο για να δείτε μια αναπτυσσόμενη λίστα.
Οι μέθοδοι απεικονίζονται με το πράσινο εικονίδιο μεθόδου και οι ιδιότητες με το εικονίδιο με το μικρό χέρι. Οι ιδιότητες και οι μέθοδοι για τη μέθοδο Activecell.Offset είναι οι ίδιες με αυτές της μεθόδου Activecell.
ActiveCell.Offset Syntax
Η σύνταξη του Activecell.Offset έχει ως εξής
όπου το RowOffset και το ColumnOffset είναι ο αριθμός των γραμμών που πρέπει να αντισταθμιστούν (θετικοί αριθμοί προς τα κάτω, αρνητικοί για επάνω) ή ο αριθμός των στηλών που θέλετε να αντισταθμιστούν (οι θετικοί αριθμοί αντισταθμίζονται στα δεξιά, οι αρνητικοί αριθμοί στα αριστερά).
ActiveCell.Offset… Επιλέξτε
ο Activecell.Offset… Επιλέξτε η μέθοδος είναι η πιο συχνά χρησιμοποιούμενη μέθοδος με τη μέθοδο Activecell.Offset. Σας επιτρέπει να μετακινηθείτε σε άλλο κελί στο φύλλο εργασίας σας. Μπορείτε να χρησιμοποιήσετε αυτήν τη μέθοδο για να μετακινηθείτε σε στήλες ή σε γραμμές πάνω ή κάτω στο φύλλο εργασίας σας.
Για να μετακινηθείτε προς τα κάτω, αλλά να παραμείνετε στην ίδια στήλη:
| 1 | Activecell. Offset (1,0). Επιλέξτε |
Για να μετακινηθείτε σε μια στήλη, αλλά να παραμείνετε στην ίδια σειρά:
| 1 | Activecell. Offset (0,1). Επιλέξτε |
Για να μετακινηθείτε προς τα κάτω σε μια σειρά και σε μια στήλη:
| 1 | Activecell. Offset (1,1). Επιλέξτε |
Για να μετακινήσετε μια σειρά επάνω:
| 1 | Activecell. Offset (-1,0). Επιλέξτε |
Για να μετακινηθείτε αριστερά μια στήλη:
| 1 | Activecell. Offset (0, -1). Επιλέξτε |
Στην παρακάτω διαδικασία, κάνουμε βρόχο σε μια σειρά κελιών και κινούμαστε προς τα κάτω κατά μία γραμμή και σε μια στήλη καθώς κάνουμε τον βρόχο:
| 12345678 | Sub ActiveCellTest ()Dim x ως ακέραιοςΕύρος ("A1"). ΕπιλέξτεΓια x = 1 έως 10ActiveCell = xActiveCell.Offset (1, 1). ΕπιλέξτεΕπόμενο xΤέλος υπο |
Το αποτέλεσμα του οποίου φαίνεται στο παρακάτω γράφημα:
Ο βρόχος βάζει την τιμή του i (1-10) στο Activecell, και στη συνέχεια χρησιμοποιεί το Activecell. Offset για να μετακινηθείτε προς τα κάτω κατά μία γραμμή και σε μια στήλη προς τα δεξιά - επαναλαμβάνοντας αυτόν τον βρόχο 10 φορές.
Προγραμματισμός VBA | Το Code Generator λειτουργεί για εσάς!
Χρήση αντικειμένου εύρους με Activecell. Offset Select
Η χρήση του αντικειμένου εύρους με το ενεργό κελί μπορεί μερικές φορές να μπερδέψει ορισμένα άτομα.
Εξετάστε την ακόλουθη διαδικασία:
| 1234 | Sub ActiveCellOffsetRange ()Εύρος ("B1: B10"). ΕπιλέξτεActiveCell.Offset (1, 1). Εύρος ("A1"). ΕπιλέξτεΤέλος υπο |
Με το ActiveCell.Offset (1,1.Range ("A1"), το Range ("A1") έχει καθοριστεί. Ωστόσο, αυτό δεν σημαίνει ότι θα επιλεγεί το κελί A1 στο φύλλο. Όπως έχουμε ορίσει το εύρος ("B1: B10"), το κελί Α1 σε αυτό το εύρος είναι στην πραγματικότητα το κελί Β1 στο βιβλίο εργασίας. Επομένως, το κελί θα αντισταθμιστεί από 1 σειρά και 1 στήλη από κελί Β1 ΟΧΙ από το κελί Α1.
Επομένως, το εύρος ("A1 ′) σε αυτήν την περίπτωση δεν απαιτείται καθώς η μακροεντολή θα λειτουργεί με τον ίδιο τρόπο με αυτό ή χωρίς αυτό.
Εναλλακτικές λύσεις για το ActiveCell
Αντί να χρησιμοποιούμε το Activecell με τη μέθοδο Offset, μπορούμε επίσης να χρησιμοποιήσουμε το αντικείμενο Range με τη μέθοδο Offset.
| 123 | Sub RangeOffset ()Εύρος ("B1"). Offset (0, 1). ΕπιλέξτεΤέλος υπο |
Η παραπάνω διαδικασία θα επιλέξει το κελί C1 στο φύλλο εργασίας.
