Αυτό το σεμινάριο θα σας διδάξει πώς να ορίσετε μεταβλητές αντικειμένου χρησιμοποιώντας τη δήλωση Set στο VBA.
Καθορισμός μεταβλητών αντικειμένων
Τα αντικείμενα είναι ο ακρογωνιαίος λίθος του Microsoft Office - χωρίς αντικείμενα, δεν μπορούμε να επιτύχουμε τίποτα. Στο Excel, τα αντικείμενα περιλαμβάνουν το βιβλίο εργασίας, το φύλλο εργασίας ή τα αντικείμενα εύρους. Στο Microsoft Word, παραδείγματα είναι το αντικείμενο Έγγραφο ή πίνακας. Κάθε αντικείμενο έχει μια ποικιλία Ιδιότητες και Μέθοδοι που μπορεί να προγραμματιστεί για τον έλεγχο της συμπεριφοράς του συγκεκριμένου αντικειμένου.
Δήλωση της μεταβλητής αντικειμένου
Πριν μπορέσουμε να αναφέρουμε το αντικείμενο στον κώδικα και επομένως να ελέγξουμε το αντικείμενο, πρέπει να δηλώσουμε το αντικείμενο. Μπορούμε να το κάνουμε χρησιμοποιώντας τη δήλωση Dim.
| 123456 | Dim wkb ως τετράδιο εργασίαςΕλαφριά εβδομάδα ως φύλλο εργασίαςDim Rng ως RangeDim wdDoc ως έγγραφοDim wdTbl ως ΠίνακαςDim shp ως Shape |
Αυτό Αμυδρός δήλωση μπορεί να συμβεί μέσα σε μια διαδικασία:
ή εκτός διαδικασίας σε επίπεδο ενότητας:
Εάν η μεταβλητή δηλωθεί σε επίπεδο μονάδας (εκτός της διαδικασίας), η μεταβλητή μπορεί να χρησιμοποιηθεί σε ολόκληρη τη μονάδα.
Εάν η μεταβλητή αντικειμένου δηλώνεται με τη δημόσια δήλωση, τότε η μεταβλητή μπορεί να χρησιμοποιηθεί σε όλο το έργο VBA:
Ορισμός τιμής
Αφού δηλώσετε το αντικείμενο, πρέπει να αντιστοιχίσετε μια τιμή στο αντικείμενο. Αυτό πρέπει να γίνει χρησιμοποιώντας το Ορισμός δήλωσης και μπορεί να γίνει μόνο μέσα σε ένα Διαδικασία.
| 12345 | Sub SetObjects ()Ορισμός wkb = ActiveWorkbookΟρισμός wks = Sheet1Ρύθμιση rng = Εύρος ("A1: G4")Τέλος υπο |
Σημείωση: Αυτό διαφέρει από την εκχώρηση τιμών σε μεταβλητές μη αντικειμένων. ΠΡΕΠΕΙ να χρησιμοποιήσετε τη δήλωση Set για να αντιστοιχίσετε το αντικείμενο στη μεταβλητή. Εάν δεν το κάνετε, θα λάβετε ένα σφάλμα:
Μόλις ορίσετε μια τιμή στο αντικείμενο, μπορείτε στη συνέχεια να γράψετε κώδικα για να ελέγξετε τη συμπεριφορά ή να χειριστείτε το αντικείμενο.
Προγραμματισμός VBA | Το Code Generator λειτουργεί για εσάς!
Παραδείγματα αντικειμένων στο Excel
Αντικείμενο βιβλίου εργασίας
Αφού δηλώσετε μια μεταβλητή βιβλίου εργασίας, μπορείτε στη συνέχεια να εκχωρήσετε ένα βιβλίο εργασίας σε αυτό το αντικείμενο και να χρησιμοποιήσετε τις διαθέσιμες ιδιότητες και μεθόδους για να χειριστείτε αυτό το αντικείμενο. Στο παρακάτω παράδειγμα πρόκειται να αποθηκεύσουμε ένα βιβλίο εργασίας.
| 123456789101112 | Sub WorkbookObject ()«δηλώστε το αντικείμενο του βιβλίου εργασίαςDim wkb ως τετράδιο εργασίας«εκχωρήστε ένα μη αποθηκευμένο βιβλίο εργασίας στο αντικείμενοΟρισμός wkb = Τετράδια εργασίας ("Book1")«αποθηκεύστε το βιβλίο εργασίαςwkb.SaveAs "C: \ data \ testbook.xlsx"«κλείστε το βιβλίο εργασίαςwkb.κλείσιμο«θυμηθείτε να αφήσετε το αντικείμενοΡύθμιση wkb = ΤίποταΤέλος υπο |
Αντικείμενο φύλλου εργασίας
Ομοίως, μπορείτε να χειριστείτε ένα φύλλο εργασίας ή φύλλα εργασίας μόλις δηλώσετε το φύλλο εργασίας ως μεταβλητή. Στο παρακάτω παράδειγμα, μετονομάζουμε το Sheet1 και το Sheet2.
| 12345678910111213 | Sub WorksheetObject ()Dim wks1 Ως φύλλο εργασίαςDim wks2 Ως φύλλο εργασίας«αρχικοποιήστε τα αντικείμεναΟρισμός wks1 = Sheet1Ορισμός wks2 = Sheet2«μετονομάστε τα φύλλαwks1.Name = "Πελάτες"wks2.Name = "Προϊόντα"«ρυθμίστε τα αντικείμενα στο τίποταwks1 = Τίποταwks2 = ΤίποταΤέλος υπο |
Κουραστήκατε να ψάχνετε για παραδείγματα κώδικα VBA; Δοκιμάστε το AutoMacro!
Εύρος αντικειμένου
Το αντικείμενο εύρους είναι ένα από τα πιο χρήσιμα αντικείμενα για χειρισμό στο Excel. Στο παρακάτω παράδειγμα, γράφουμε έντονα το εύρος A1 έως το E1 και το μορφοποιούμε με ένα κάτω περίγραμμα.
| 12345678910111213 | Sub RangeObject ()Dim rng1 As Range«αρχικοποιήστε το εύροςΡύθμιση rng = Εύρος ("A1: E1")«τολμήστε το εύρος και ορίστε το κάτω περίγραμμαrng.Font.Bold = TrueΜε rng1.Borders (xlEdgeBottom).LineStyle = xlΣυνέχεια.ColorIndex = 0.TintAndShade = 0. Βάρος = xlThinΤέλος μεΤέλος υπο |
Αντικείμενο σχήματος
Μπορείτε επίσης να χρησιμοποιήσετε μεταβλητές αντικειμένων για εργασία με σχήματα.
| 123456789101112 | Sub AddShape ()Dim shp As Shape«δημιουργήστε το σχήμαΣετ shp = ActiveDocument.Shapes.AddShape (msoShapeSmileyFace, 68.25, 225.75, 136.5, 96#)Με shpαλλαγή στο χρώμα και το στυλ.Fill.ForeColor.RGB = RGB (255, 255, 0).Γέμισε. Στερεό«ρύθμισε το χαμόγελο!. Προσαρμογές. Στοιχείο (1) = 0,07181Τέλος μεΤέλος υπο |
