Δήλωση σετ VBA | Πώς να αντιστοιχίσετε τιμές σε μεταβλητές αντικειμένων;
Δήλωση Set Excel VBA
Το VBA Set είναι μια δήλωση που χρησιμοποιείται για την εκχώρηση οποιουδήποτε κλειδιού τιμής λέει ένα αντικείμενο ή μια αναφορά σε μια μεταβλητή, χρησιμοποιούμε αυτήν τη συνάρτηση για να ορίσουμε την παράμετρο για μια συγκεκριμένη μεταβλητή, για παράδειγμα, αν γράψουμε το Set M = A που σημαίνει τώρα Η αναφορά έχει τις ίδιες τιμές και χαρακτηριστικά παρόμοια με αυτά του Α.
Στο VBA, ένα αντικείμενο είναι ο πυρήνας του excel γιατί χωρίς αντικείμενα δεν μπορούμε να κάνουμε τίποτα. Τα αντικείμενα είναι βιβλίο εργασίας, φύλλο εργασίας και εύρος. Όταν δηλώνουμε μια μεταβλητή πρέπει να αντιστοιχίσουμε έναν τύπο δεδομένων και μπορούμε επίσης να εκχωρήσουμε αντικείμενα ως τύπους δεδομένων. Για να αντιστοιχίσουμε μια τιμή σε μεταβλητές αντικειμένων που δηλώθηκαν, πρέπει να χρησιμοποιήσουμε τη λέξη "SET". Η λέξη "Set" χρησιμοποιείται για να αναφέρεται σε ένα νέο αντικείμενο στο VBA, για παράδειγμα, που αναφέρεται στο συγκεκριμένο εύρος του συγκεκριμένου φύλλου εργασίας.
Πώς να χρησιμοποιήσετε το Excel VBA Set Statement;
Μπορείτε να κάνετε λήψη αυτού του προτύπου δήλωσης συνόλου VBA εδώ - Πρότυπο δήλωσης συνόλου VBA# 1 - Ορισμός δήλωσης με μεταβλητές αντικειμένου εύρους
Για παράδειγμα, ας υποθέσουμε ότι θέλετε να χρησιμοποιείτε το εύρος Α1 έως D5 αρκετά συχνά. Αντί να γράφουμε τον κωδικό ως Range ("A1: D5") κάθε φορά που μπορούμε να δηλώσουμε τη μεταβλητή ως εύρος και να ορίσουμε την αναφορά εύρους ως Range ("A1: D5")
Βήμα 1: Δηλώστε τη μεταβλητή ως αντικείμενο Range.
Κώδικας:
Υποσύνολο_ Παράδειγμα ()
Dim MyRange ως εύρος
Τέλος Υποτ
Βήμα 2: Τη στιγμή που αναθέτουμε τον τύπο δεδομένων ως εύρος χρησιμοποιήστε τη λέξη "Set".
Κώδικας:
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 (" Summary Sheet "). Ενεργοποίηση" Για απόκρυψη του φύλλου Worksheets ("Summary Sheet"). Visible = xlVeryHidden' To απόκρυψη του φύλλου φύλλων εργασίας ("συνοπτικό φύλλο")
Κάθε φορά που χρησιμοποιώ το αντικείμενο των φύλλων εργασίας για να αναφερθώ στο φύλλο "Συνοπτικό φύλλο". Αυτό κάνει τον κώδικα τόσο μακρύ και απαιτεί πολύ χρόνο για την πληκτρολόγηση.
Ως μέρος του τεράστιου κώδικα, είναι απογοητευτικό να πληκτρολογείτε έτσι το όνομα του φύλλου εργασίας κάθε φορά που πρέπει να αναφέρετε το φύλλο εργασίας.
Τώρα ρίξτε μια ματιά στο πλεονέκτημα της χρήσης της λέξης Set in Code.
# 2 - Με το "Σετ" Word
Κώδικας:
Sub Set_Worksheet_Example () Dim Ws As Worksheet Set Ws = Worksheets ("Summary Sheet") 'Για να επιλέξετε το φύλλο Ws.Επιλέξτε' Για να ενεργοποιήσετε το φύλλο Ws.Activate 'Για απόκρυψη του φύλλου Ws.Visible = xlVeryHidden' Για να αποκρύψετε το φύλλο Ws .Visible = xlVisible End Sub
Τη στιγμή που ορίζουμε το όνομα του φύλλου εργασίας, μπορούμε να δούμε το όνομα της μεταβλητής εισάγοντας τον κωδικό ως μέρος της λίστας.
# 3 - Ορισμός δήλωσης με μεταβλητές αντικειμένου βιβλίου εργασίας
Το πραγματικό πλεονέκτημα της λέξης "Set" στο VBA προκύπτει όταν πρέπει να αναφέρουμε διαφορετικά βιβλία εργασίας.
Όταν εργαζόμαστε με διαφορετικά βιβλία εργασίας, είναι τόσο δύσκολο να πληκτρολογήσετε το πλήρες όνομα του βιβλίου εργασίας μαζί με την επέκταση αρχείου του.
Ας υποθέσουμε ότι έχετε δύο διαφορετικά βιβλία εργασίας με το όνομα "Αρχείο περίληψης πωλήσεων 2018.xlsx" και "Αρχείο περίληψης πωλήσεων 2019.xlsx" μπορούμε να ορίσουμε τα δύο βιβλία εργασίας όπως τον παρακάτω κώδικα.
Κώδικας:
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. Ενεργοποιήστε
Αυτό κάνει το γράψιμο του κώδικα πολύ απλούστερο και επίσης μόλις οριστεί το όνομα του βιβλίου εργασίας, υπάρχει ανησυχία για τυπογραφικό λάθος των ονομάτων του βιβλίου εργασίας.
