Bu eğitim size VBA'da Set deyimini kullanarak nesne değişkenlerini nasıl tanımlayacağınızı öğretecektir.
Nesne Değişkenlerini Tanımlama
Nesneler, Microsoft Office'in temel taşıdır - nesneler olmadan hiçbir şey elde edemeyiz. Excel'de nesneler, Çalışma Kitabı, Çalışma Sayfası veya Aralık Nesnelerini içerir. Microsoft Word'de örnekler Belge veya Tablo nesnesidir. Her nesnenin çeşitli Özellikler ve yöntemler o nesnenin davranışını kontrol etmek için programlanabilir.
Nesne Değişkenini Bildirmek
Nesneye kodda başvurmadan ve dolayısıyla nesneyi kontrol etmeden önce, nesneyi bildirmemiz gerekir. Bunu Dim deyimini kullanarak yapabiliriz.
| 123456 | Çalışma Kitabı olarak wkb'yi karartÇalışma Sayfası olarak haftaları karartAralık olarak Dim RngBelge olarak wdDoc'u karartTablo olarak karartma wdTblŞekil olarak shp'yi karart |
Bu loş bildirim bir prosedür içinde gerçekleşebilir:
veya modül düzeyinde bir prosedürün dışında:
Değişken modül düzeyinde (prosedür dışında) bildirilmişse, değişken modül boyunca kullanılabilir.
Nesne değişkeni Public ifadesiyle bildirilirse, değişken VBA Projesi boyunca kullanılabilir:
Değeri Ayarla
Nesneyi tanımladıktan sonra nesneye bir değer atamanız gerekir. Bu, kullanılarak yapılmalıdır İfadeyi ayarla ve sadece bir süre içinde yapılabilir prosedür.
| 12345 | Alt SetObjects()wkb = ActiveWorkbook olarak ayarlaHaftaları ayarla = Sayfa1Set rng = Aralık("A1:G4")Alt Bitiş |
Not: Bu, nesne olmayan değişkenlere değer atamaktan farklıdır. Nesneyi değişkene atamak için Set deyimini kullanmanız ZORUNLUDUR. Bunu yapmazsanız, bir hata alırsınız:
Nesneye bir değer atadıktan sonra, davranışı kontrol etmek veya nesneyi manipüle etmek için kod yazabilirsiniz.
VBA Programlama | Code Generator sizin için çalışıyor!
Excel'de Nesne Örnekleri
Çalışma Kitabı Nesnesi
Bir çalışma kitabı değişkeni bildirdikten sonra, o nesneye bir çalışma kitabı atayabilir ve o nesneyi işlemek için mevcut Özellikler ve Yöntemleri kullanabilirsiniz. Aşağıdaki örnekte bir çalışma kitabı kaydedeceğiz.
| 123456789101112 | Alt Çalışma KitabıNesnesi()'çalışma kitabı nesnesini bildirÇalışma Kitabı olarak wkb'yi karart'nesneye kaydedilmemiş bir çalışma kitabı atayınwkb = Çalışma Kitapları ("Kitap1") olarak ayarla'çalışma kitabını kaydetwkb.SaveAs "C:\data\testbook.xlsx"'çalışma kitabını kapatwkb.close'nesneyi serbest bırakmayı unutmawkb = Hiçbir şey olarak ayarlaAlt Bitiş |
Çalışma Sayfası Nesnesi
Benzer şekilde, çalışma sayfasını bir değişken olarak tanımladıktan sonra bir çalışma sayfasını veya çalışma sayfalarını değiştirebilirsiniz. Aşağıdaki örnekte, Sayfa1 ve Sayfa2'yi yeniden adlandırıyoruz.
| 12345678910111213 | Alt Çalışma SayfasıObject()Dim wks1 As WorksheetDim wks2 As Worksheet'nesneleri başlatHafta1 = Sayfa1'i ayarlawks2 = Sayfa2 olarak ayarla'sayfaları yeniden adlandırwks1.Name = "Müşteriler"wks2.Name = "Ürünler"'nesneleri hiçbir şeye ayarlawks1 = Hiçbir şeywks2 = Hiçbir şeyAlt Bitiş |
VBA Kodu Örnekleri Aramaktan Bıktınız mı? AutoMacro'yu deneyin!
Menzil Nesnesi
Range nesnesi, Excel'de işlemek için en kullanışlı nesnelerden biridir. Aşağıdaki örnekte, Aralık A1'den E1'e kalın ve bir alt kenarlık ile biçimlendirdik.
| 12345678910111213 | Alt RangeObject()Aralık olarak Dim rng1'aralığı başlatSet rng = Aralık("A1:E1")'aralığı kalınlaştırın ve alt sınırı ayarlayınrng.Font.Bold = Doğrurng1.Borders(xlEdgeBottom) ile.LineStyle = xlSürekli.ColorIndex = 0.TintAndShade = 0.Ağırlık = xlİnceİle bitmekAlt Bitiş |
Şekil Nesnesi
Şekillerle çalışmak için nesne değişkenlerini de kullanabilirsiniz.
| 123456789101112 | Alt AddShape()Dim shp As Shape'şekli oluşturshp ayarla = ActiveDocument.Shapes.AddShape(msoShapeSmileyFace, 68.25, 225.75, 136.5, 96#)shp ile'iç rengi ve stili değiştir.Fill.ForeColor.RGB = RGB(255, 255, 0).Doldur.Katı'gülüşünü ayarla!.Ayarlar.Öğe(1) = 0.07181İle bitmekAlt Bitiş |
