Bu öğretici, VBA'da Is Nothing ifadesinin nasıl kullanılacağını gösterecektir.
VBA Hiçbir şey ifadesi VBA “Is” Operatörünü kullanır ve bir nesnenin bir nesne değişkenine atandığını kontrol eder.
123456 | Alt KontrolNesnesiAralık olarak karartmaEğer rng Hiçbir Şey Değilse o zamanMsgbox "Aralık atanmadı"BitirAlt Bitiş |
Bildirdiğimiz aralık değişkenine bir Range atandığından emin olmak için Not with Is Nothing ile If deyimini kullanabilir ve ardından bu değişken atanmışsa çalıştırmak istediğimiz kodu çalıştırabiliriz.
1234567 | Alt CheckAssignedObjectAralık olarak karartmaSet rng = Aralık("A1:A6")Eğer Rng Hiçbir Şey Değilse o zaman''buraya biraz kod yazBitirAlt Bitiş |
Herhangi bir nesne türü için Is Nothing ifadesini kullanabiliriz. Bir nesnenin bir nesne değişkenine atanmayabileceği kodumuzdaki hataları önlemede son derece yararlı olabilir.
Örneğin, bir çalışma sayfası değişkeni kullanabilir ve bunu Aktif Sayfaya atayabiliriz. Bunu başarılı bir şekilde yaparsak, o sayfada A2'yi seçebiliriz.
1234567 | Alt KontrolÇalışma SayfasıNesnesiÇalışma Sayfası olarak Dim wsws = ActiveSheet'i ayarlaDeğilse Hiçbir Şey Değilsews.Range("A2").SeçBitirAlt Bitiş |
Yukarıdaki kodda A2 hücresi seçilecektir. " satırını kaldıracak olursakws=ActiveSheet'i ayarla", o zaman If ifadesi bu kod satırını atlar ve A2 hücresi seçilmez.
Is Nothing; PowerPoint, Outlook, Access ve Word gibi diğer Microsoft Office uygulamalarında da kullanılabilir. Aşağıdaki kod, Belge Nesnesinin Etkin Word Belgesine atanıp atanmadığını kontrol eder.
123456789 | Alt CheckDocumentObjectBelge olarak wdDoc'u karartwdDoc = ActiveDocument olarak ayarlaEğer wdDoc Hiçbir Şey DeğilseMsgBox "Belge atanamadı"BaşkaMsgBox "Belge atandı"BitirAlt Bitiş |