Αυτό το σεμινάριο θα δείξει πώς να χρησιμοποιήσετε τη δήλωση Is Nothing στο VBA
Το VBA Δεν είναι τίποτα δήλωση χρησιμοποιεί το VBA "Is" Operator και ελέγχει για να δει ένα αντικείμενο έχει αντιστοιχιστεί σε μια μεταβλητή αντικειμένου.
| 123456 | Sub CheckObjectDim rng ως RangeΑν το rng δεν είναι τίποτα τότεMsgbox "Το εύρος δεν έχει εκχωρηθεί"Τέλος εανΤέλος υπο |
Μπορούμε επίσης να χρησιμοποιήσουμε το Not with Is Nothing με μια δήλωση If για να βεβαιωθούμε ότι έχει οριστεί ένα εύρος στη μεταβλητή εύρους που δηλώσαμε και, στη συνέχεια, να εκτελέσουμε τον κώδικα που επιθυμούμε να εκτελεστεί εάν έχει εκχωρηθεί αυτή η μεταβλητή.
| 1234567 | Sub CheckAssignedObjectDim rng ως RangeΡύθμιση rng = Εύρος ("A1: A6")Εάν το Not rng δεν είναι τίποτα τότε'' κάντε κάποιο κώδικα εδώΤέλος εανΤέλος υπο |
Μπορούμε να χρησιμοποιήσουμε τη δήλωση Is Nothing για οποιοδήποτε τύπο αντικειμένου. Μπορεί να είναι εξαιρετικά χρήσιμο για την πρόληψη σφαλμάτων στον κώδικά μας όπου ένα αντικείμενο ενδέχεται να μην έχει εκχωρηθεί σε μια μεταβλητή αντικειμένου.
Για παράδειγμα, μπορούμε να χρησιμοποιήσουμε μια μεταβλητή φύλλου εργασίας και να την εκχωρήσουμε στο Ενεργό φύλλο. Εάν το κάνουμε αυτό με επιτυχία, τότε μπορούμε να επιλέξουμε A2 σε αυτό το φύλλο.
| 1234567 | Sub CheckWorksheetObjectDim ws ως φύλλο εργασίαςΟρισμός ws = ActiveSheetΑν όχι ws δεν είναι τίποτα τότεws.Range ("A2"). ΕπιλέξτεΤέλος εανΤέλος υπο |
Στον παραπάνω κωδικό, θα επιλεγεί το κελί A2. Αν αφαιρούσαμε τη γραμμή "Ορισμός ws = ActiveSheet", Τότε η δήλωση If θα παρακάμπτει ότι η γραμμή κώδικα και το κελί A2 δεν θα επιλεγεί.
Το Is Nothing δεν μπορεί επίσης να χρησιμοποιηθεί σε άλλες εφαρμογές του Microsoft Office, όπως το PowerPoint, το Outlook, το Access και το Word. Ο ακόλουθος κώδικας ελέγχει εάν το αντικείμενο εγγράφου έχει εκχωρηθεί στο έγγραφο Active Word.
| 123456789 | Sub CheckDocumentObjectDim wdDoc ως έγγραφοΟρισμός wdDoc = ActiveDocumentΑν το wdDoc δεν είναι τίποτα τότεMsgBox "Το έγγραφο δεν έχει εκχωρηθεί"ΑλλούMsgBox "Έγγραφο εκχωρήθηκε"Τέλος εανΤέλος υπο |
