Δήλωση Set Excel VBA
Το VBA Set είναι μια δήλωση που χρησιμοποιείται για την εκχώρηση οποιουδήποτε κλειδιού τιμής λέει ένα αντικείμενο ή μια αναφορά σε μια μεταβλητή, χρησιμοποιούμε αυτήν τη συνάρτηση για να ορίσουμε την παράμετρο για μια συγκεκριμένη μεταβλητή, για παράδειγμα, αν γράψουμε το Set M = A που σημαίνει τώρα M Η αναφορά έχει τις ίδιες τιμές και χαρακτηριστικά παρόμοια με αυτά του Α.
Στο VBA, ένα αντικείμενο είναι ο πυρήνας του excel γιατί χωρίς αντικείμενα, δεν μπορούμε να κάνουμε τίποτα. Τα αντικείμενα είναι βιβλίο εργασίας, φύλλο εργασίας και εύρος. Όταν δηλώνουμε μια μεταβλητή, πρέπει να αντιστοιχίσουμε έναν τύπο δεδομένων και μπορούμε επίσης να εκχωρήσουμε αντικείμενα ως τύπους δεδομένων. Για να αντιστοιχίσουμε μια τιμή σε μεταβλητές αντικειμένων που δηλώθηκαν, πρέπει να χρησιμοποιήσουμε τη λέξη "SET". Η λέξη "Set" χρησιμοποιείται για να αναφέρεται σε ένα νέο αντικείμενο στο VBA, για παράδειγμα, που αναφέρεται στο συγκεκριμένο εύρος του συγκεκριμένου φύλλου εργασίας.
Πώς να χρησιμοποιήσετε το Excel VBA Set Statement;
# 1 - Ορισμός δήλωσης με μεταβλητές αντικειμένου εύρους
Για παράδειγμα, ας υποθέσουμε ότι θέλετε να χρησιμοποιείτε το εύρος Α1 έως D5 αρκετά συχνά. Αντί να γράφουμε τον κωδικό ως Range ("A1: D5") κάθε φορά, μπορούμε να δηλώσουμε τη μεταβλητή ως εύρος και να ορίσουμε την αναφορά εύρους ως Range ("A1: D5")
Βήμα 1: Δηλώστε τη μεταβλητή ως αντικείμενο Range.
Κώδικας:
Υποσύνολο_Παράδειγμα ()
Dim MyRange ως εύρος
Τέλος Υποτ
Βήμα 2: Τη στιγμή που ορίζουμε τον τύπο δεδομένων ως εύρος, χρησιμοποιήστε τη λέξη "Ορισμός".
Κώδικας:
Sub Set_Example () Dim MyRange As Range Set MyRange = End Sub
Βήμα 3: Τώρα αναφέρετε το εύρος.
Κώδικας:
Sub Set_Example () Dim MyRange As Range Set MyRange = Range ("A1: D5") End Sub
Βήμα 4: Τώρα, η μεταβλητή "MyRange" είναι ίση με το εύρος A1 έως D5. Χρησιμοποιώντας αυτήν τη μεταβλητή, έχουμε πρόσβαση σε όλες τις ιδιότητες και τις μεθόδους αυτού του εύρους.
Μπορούμε να αντιγράψουμε, να προσθέσουμε ένα σχόλιο στο excel και να κάνουμε πολλά άλλα πράγματα.
Για παράδειγμα, σκοπός, έχω δημιουργήσει ορισμένους αριθμούς εδώ.
Τώρα χρησιμοποιώντας τη μεταβλητή, θα αλλάξω το μέγεθος της γραμματοσειράς σε 12.
Κώδικας:
Sub Set_Example () Dim MyRange As Range Set MyRange = Range ("A1: D5") MyRange.Font.Size = 12 End Sub
Αυτό θα αλλάξει το μέγεθος της γραμματοσειράς του εκχωρημένου εύρους.
Έτσι, μπορούμε να κάνουμε πολλά πράγματα με ένα συγκεκριμένο εύρος χρησιμοποιώντας τη λέξη "Set".
# 2 - Ορισμός δήλωσης με μεταβλητές αντικειμένου φύλλου εργασίας
Έχουμε δει πώς λειτουργεί το "set" με ένα αντικείμενο εύρους στο VBA. Λειτουργεί ακριβώς το ίδιο με το αντικείμενο του φύλλου εργασίας.
Ας υποθέσουμε ότι έχετε 5 φύλλα εργασίας στο βιβλίο εργασίας σας και θέλετε να συνεχίσετε να επιστρέφετε στο συγκεκριμένο φύλλο εργασίας. Μπορείτε να ορίσετε το όνομα του φύλλου εργασίας στην καθορισμένη μεταβλητή αντικειμένου.
Για παράδειγμα, δείτε τον παρακάτω κώδικα.
Κώδικας:
Sub Set_Worksheet_Example () Dim Ws As Worksheet Set Ws = Worksheets ("Summary Sheet") End Sub
Στον παραπάνω κώδικα, η μεταβλητή "Ws" ορίζεται ως μεταβλητή αντικειμένου και στην επόμενη γραμμή, χρησιμοποιώντας τη λέξη "Σετ", ορίζουμε τη μεταβλητή στο φύλλο εργασίας με το όνομα "Συνοπτικό φύλλο".
Τώρα, χρησιμοποιώντας αυτήν τη μεταβλητή, μπορούμε να κάνουμε όλα τα πράγματα που σχετίζονται με αυτήν. Ρίξτε μια ματιά στα παρακάτω δύο σύνολα κώδικα.
# 1 - Χωρίς "Σετ" Word
Κώδικας:
Sub Set_Worksheet_Example1 () 'Για να επιλέξετε το φύλλο Worksheets ("Συνοπτικό φύλλο"). Επιλέξτε "Για να ενεργοποιήσετε το φύλλο Worksheets (" Συνοπτικό φύλλο "). Ενεργοποίηση" Για απόκρυψη του φύλλου Worksheets ("Summary Sheet"). Visible = xlVeryHidden' To απόκρυψη του φύλλου εργασίας φύλλα ("συνοπτικό φύλλο"). Ορατό = xlVisible End Sub
Κάθε φορά που χρησιμοποιώ το αντικείμενο των φύλλων εργασίας για να αναφερθώ στο φύλλο "Συνοπτικό φύλλο", αυτό κάνει τον κώδικα τόσο μακρύ και απαιτεί πολύ χρόνο για την πληκτρολόγηση.
Ως μέρος του τεράστιου κώδικα, είναι απογοητευτικό να πληκτρολογείτε το όνομα του φύλλου εργασίας έτσι κάθε φορά που πρέπει να αναφέρετε το φύλλο εργασίας.
Τώρα ρίξτε μια ματιά στο πλεονέκτημα της χρήσης της λέξης Set in Code.
# 2 - Με το "Σετ" Word
Κώδικας:
Sub Set_Worksheet_Example() Dim Ws As Worksheet Set Ws = Worksheets("Summary Sheet") 'To select the sheet Ws.Select 'To Activate the sheet Ws.Activate 'To hide the sheet Ws.Visible = xlVeryHidden 'To unhide the sheet Ws.Visible = xlVisible End Sub
The moment we set the worksheet name, we can see the variable name while entering the code as part of the list.
#3 - Set Statement with Workbook Object Variables
The real advantage of the word “Set” in VBA arises when we need to reference different workbooks.
When we work with different workbooks, it is so hard to type in the full name of the workbook, along with its file extension.
Assume you have two different workbooks named “Sales Summary File 2018.xlsx” and “Sales Summary File 2019.xlsx” we can set the two workbooks like the below code.
Code:
Sub Set_Workbook_Example1 () Dim Wb1 As Workbook Dim Wb2 As Workbook Set Wb1 = Workbooks ("File Summary File 2018.xlsx") Set Wb2 = Workbooks ("Sales Summary File 2019.xlsx") End Sub
Τώρα η μεταβλητή Wb1 είναι ίση με το βιβλίο εργασίας που ονομάζεται "Αρχείο περίληψης πωλήσεων 2018.xlsx" και η μεταβλητή Wb2 είναι ίση με το βιβλίο εργασίας που ονομάζεται "Αρχείο περίληψης πωλήσεων 2019.xlsx".
Χρησιμοποιώντας αυτήν τη μεταβλητή, μπορούμε πραγματικά να αποκτήσουμε πρόσβαση σε όλες τις ιδιότητες και τις μεθόδους που σχετίζονται με το βιβλίο εργασίας.
Μπορούμε να συντομεύσουμε τον κωδικό όπως παρακάτω.
Χωρίς τη χρήση του ορισμού λέξης κλειδιού για να ενεργοποιήσετε το βιβλίο εργασίας:
Βιβλία εργασίας ("Αρχείο περίληψης πωλήσεων 2018.xlsx"). Ενεργοποίηση
Χρησιμοποιώντας το Set Keyword για να ενεργοποιήσετε το βιβλίο εργασίας:
Wb1. Ενεργοποιήστε
Αυτό καθιστά την γραφή του κώδικα απλούστερη και επίσης, μόλις οριστεί το όνομα του βιβλίου εργασίας, υπάρχει ανησυχία για λάθος τυπογραφικού χαρακτήρα των ονομάτων του βιβλίου εργασίας.
