Λειτουργία End VBA - Χρήση τελικής ιδιότητας στο VBA (με παραδείγματα)

Λειτουργία τερματισμού σε VBA

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

Για όλα, υπάρχει ένα τέλος, και στο VBA, δεν διαφέρει. Πρέπει να έχετε δει αυτή τη λέξη " Τέλος " σε όλους τους κωδικούς στο VBA σας. Μπορούμε να τελειώσουμε στο "End Sub", "End Function", "End If." Αυτά είναι κοινά, όπως γνωρίζουμε ότι κάθε End προτείνει το τέλος της διαδικασίας. Αυτές οι δηλώσεις VBA End δεν απαιτούν ειδική εισαγωγή, διότι γνωρίζουμε με αυτήν την κωδικοποίηση VBA.

Εκτός από το παραπάνω "Τέλος", έχουμε μια ιδιότητα, "Τέλος" στο VBA. Σε αυτό το άρθρο, θα σας καθοδηγήσουμε σε αυτήν την ιδιότητα και πώς να τη χρησιμοποιήσετε στην κωδικοποίηση μας.

Τερματισμός ιδιοκτησίας σε VBA

Το "End" είναι η ιδιότητα που χρησιμοποιούμε στο VBA για να κινηθούμε προς την προτεινόμενη κατεύθυνση. Το τυπικό παράδειγμα κατεύθυνσης μετακινείται από το ενεργό κελί στο κελί τελευταίας χρήσης ή στο κελί τελευταίας εισόδου οριζόντια και κάθετα στο φύλλο εργασίας.

Για παράδειγμα, ας το θυμηθούμε με ένα φύλλο εργασίας. Κοιτάξτε την παρακάτω εικόνα.

Αυτήν τη στιγμή, βρισκόμαστε στο κελί Α1.

Εάν θέλουμε να μετακινηθούμε στο τελευταίο χρησιμοποιημένο κελί οριζόντια, χρησιμοποιούμε το πλήκτρο συντόμευσης excel Ctrl + Right Arrow, και θα μας οδηγήσει στο τελευταίο χρησιμοποιημένο κελί οριζόντια.

Ομοίως, εάν θέλουμε να μετακινηθούμε στο κελί που χρησιμοποιήθηκε τελευταία ή προς τα κάτω ή κάθετα, πατάμε το πλήκτρο συντόμευσης Ctrl + Down Arrow.

Έτσι, για να μετακινηθείτε από αριστερά προς τα δεξιά, πατάμε Ctrl + Left Arrow. Για να μετακινηθείτε από κάτω προς τα πάνω, πατάμε Ctrl + Up Arrow.

Ένα παρόμοιο πράγμα μπορεί να γίνει στο VBA αλλά όχι χρησιμοποιώντας το πλήκτρο Ctrl . Πρέπει να χρησιμοποιήσουμε τη λέξη "Τέλος".

Παραδείγματα τελικής συνάρτησης Excel VBA

Παράδειγμα # 1 - Χρησιμοποιήστε το VBA End Properti για μετακίνηση στο φύλλο εργασίας

Ας δούμε πώς να χρησιμοποιήσετε το Excel VBA End για να μετακινηθείτε στο φύλλο. Πρώτον, πρέπει να αποφασίσουμε ποιο κελί πρέπει να κινηθούμε. Εντάξει, ας πούμε ότι πρέπει να μετακινηθούμε από το κελί A1, οπότε ανατρέξτε στο κελί χρησιμοποιώντας το αντικείμενο VBA Range

Κώδικας:

Sub End_Example1 () Range ("A1") End Sub

Βάλτε την τελεία (.) Για να δείτε τη λίστα IntelliSense. Επιλέξτε "Τέλος" ιδιότητα VBA από τη λίστα.

Κώδικας:

Sub End_Example1 () Range ("A1"). End End Sub

Μόλις η ιδιότητα τέλους επέλεξε ανοιχτή παρένθεση.

Κώδικας:

Sub End_Example1 () Εύρος ("A1"). End (End Sub

Μόλις ανοίξετε παρένθεση, μπορούμε να δούμε όλες τις διαθέσιμες επιλογές με την ιδιότητα "Τέλος". Επιλέξτε "xlToRight" για να μετακινηθείτε οριζόντια από το κελί A1 στο τελευταίο χρησιμοποιημένο κελί.

Κώδικας:

Sub End_Example1 () Range ("A1"). End (xlToRight) End Sub

Αφού μεταβούμε στο τελευταίο κελί, πρέπει να επιλέξουμε τι πρέπει να κάνουμε. Βάλτε την τελεία (.) Για να δείτε τη λίστα IntelliSense.

Κώδικας:

Sub End_Example1 () Range ("A1"). End (xlToRight). Τέλος Υποτ

Επιλέξτε τη μέθοδο "Επιλογή" από τη λίστα IntelliSense.

Κώδικας:

Sub End_Example1 () Range ("A1"). End (xlToRight). Επιλέξτε End Sub

Αυτό θα κάνει χρήση του κελιού Α1 για τελευταία χρήση των οριζόντιων κελιών.

Ομοίως, χρησιμοποιήστε τις άλλες τρεις επιλογές για να μετακινηθείτε δεξιά, αριστερά, κάτω, πάνω.

Για να μετακινηθείτε δεξιά από το κελί A1.

Κώδικας:

Sub End_Example1 () Range ("A1"). End (xlToRight). Επιλέξτε End Sub

Για να μετακινηθείτε προς τα κάτω από το κελί A1.

Κώδικας:

Sub End_Example1 () Range ("A1"). End (xlDown). Επιλέξτε End Sub

Για να μετακινηθείτε από το κελί A5.

Κώδικας:

Sub End_Example1 () Range ("A5"). End (xlUp). Επιλέξτε End Sub

Για να μετακινηθείτε αριστερά από το κελί D1.

Κώδικας:

Sub End_Example1 () Range ("D1"). End (xlToLeft). Επιλέξτε End Sub

Όλοι οι παραπάνω κωδικοί είναι τα παραδείγματα παραδείγματος χρήσης της ιδιότητας "Τέλος" για μετακίνηση στο φύλλο εργασίας.

Now we will see how to select the ranges by using the “End” property.

Example #2 - Selection Using End Property

We need to End the property to select the range of cells in the worksheet. For this example, consider the below data.

Select A1 to Last Used Cell

To select the cells from A1 to the last used cell horizontally, first, mention the cell A1 in Range object.

Code:

Sub End_Example2() Range("A1", End Sub

For the second argument, open one more Range object and mention the cell as A1 only.

Code:

Sub End_Example2() Range("A1",Range("A1") End Sub

Close only one bracket and put a dot to select the Excel VBA End property.

Code:

Sub End_Example2() Range("A1",Range("A1").End( End Sub

Now select xlToRight and close two brackets.

Code:

Sub End_Example2() Range("A1",Range("A1").End(xlToRight)) End Sub

Now chose the “Select” method.

Code:

Sub End_Example2() Range("A1", Range("A1").End(xlToRight)).Select End Sub

Ok, we are done.

Run this code to see the impact.

As you can see, it has selected the range A1 to D1.

Similarly, to select downwards, use the below code.

Code:

Sub End_Example2() Range("A1", Range("A1").End(xlDown)).Select 'To select from left to right End Sub

Code:

Sub End_Example2() Range("A1", Range("A1").End(xlDown)).Select 'To select from top to down End Sub

Code:

Sub End_Example2() Range("D1", Range("D1").End(xlToLeft)).Select 'To select from right to left End Sub

Code:

Sub End_Example2() Range("A5", Range("A5").End(xlUp)).Select 'To select from bottom to up End Sub

Παράδειγμα # 3 - Επιλέξτε δεξιά προς τα αριστερά, δεξιά προς τα κάτω και πάνω

Έχουμε δει πώς να επιλέξουμε οριζόντια και κάθετα. Για να επιλέξετε τόσο κάθετα όσο και οριζόντια, πρέπει να χρησιμοποιήσουμε δύο ιδιότητες "End". Για να επιλέξετε τα δεδομένα από A1 έως D5, πρέπει να χρησιμοποιήσουμε τον παρακάτω κώδικα.

Κώδικας:

Sub End_Example3 () Range ("A1", Range ("A1"). End (xlDown). End (xlToRight)). Επιλέξτε "To from cell A1 για τελευταία χρήση κελιού προς τα κάτω και προς τα δεξιά End Sub.

Αυτό θα επιλέξει το πλήρες εύρος όπως το παρακάτω.

Έτσι, μπορούμε να χρησιμοποιήσουμε την ιδιότητα Λειτουργία VBA "End" για να επιλέξουμε ένα εύρος κελιών.