Excel VBA'da Bildirim ile
With ifadesi, VBA'da belirtilen bir nesnenin tüm özelliklerine ve yöntemlerine erişmek için kullanılır. Önce hangi VBA nesnesine atıfta bulunduğumuzu , ardından With ifadesini End With ile , sonra bu ifadenin içinde kapatmamız gerekir . Bahsedilen nesnenin tüm özellik değişikliklerini ve yöntemlerini gerçekleştirebiliriz.
VBA'da With Statement'in sözdizimi aşağıdadır.
(NESNE) ile (Kod… Ne yapılması gerekiyor?) İle Bitir
Nesne, bahsettiğimiz bir dizi hücre veya hücreden başka bir şey değildir ve daha sonra özellikleri değiştirebilir ve bu belirli hücre veya hücrelerle ilişkili tüm yöntemleri uygulayabiliriz.
Excel VBA'da İfadeyle Nasıl Kullanılır?
Aşağıda, Excel VBA'da With Statement kullanmak için bazı örnekler verilmiştir.
Örnek 1
A1 hücresinde belirli bir değeriniz olduğunu varsayın, metni A1 hücresine "Excel VBA" olarak girdim.
Şimdi bu hücre için bazı görevleri, yani excel'de biçimlendirme yapmam gerekiyor.
Yazı tipi boyutunu, yazı tipi adını ve iç rengini değiştirmek, kenarlık eklemek, vb. İstiyorum… Tipik olarak yaptığımız şey, önce hücreye VBA RANGE nesnesini kullanarak başvurmaktır.
Kod:
Alt İle_Örnek1 () Aralık ("A1") Son Alt
Şimdi yazı tipi boyutunu değiştirmek için bu hücrenin "yazı tipi" özelliğine erişiyoruz.
FONT özelliği altında, Size özelliğine erişiriz ve eşittir işareti koyarak boyutu gireriz.
Kod:
Sub With_Example1 () Range ("A1"). Font.Size = 15 End Sub
Şimdi benzer şekilde, aşağıda gösterildiği gibi diğer biçimlendirme görevlerini yapıyoruz.
Kod:
Alt With_Example1 () Aralık ("A1"). Font.Size = 15 Aralık ("A1"). Font.Name = "Verdana" Aralık ("A1"). Interior.Color = vbYellow Aralık ("A1"). Kenarlıklar .LineStyle = xl Contininuous End Sub
Bu, bahsedilen tüm görevleri gerçekleştirecektir, ancak her biçimlendirme etkinliğini gerçekleştirmek için koda bakarsanız, her seferinde hücre adresini sağladık. Bu, kodun uzun ve zaman alıcı görünmesine neden olur.
Şimdi her seferinde hücre adresi girişini azaltmak için VBA With a ifadesi kullanacağız. Excel VBA'da WITH ifadesini açın ve hücre adresini sağlayın.
Kod:
Alt İle_Örnek1 () Aralıklı ("A1") Son Alt
With ifadesinin içine, A1 hücresinin tüm özelliklerini ve yöntemlerini görmek için bir nokta koyun.
Şimdi ilk biçimlendirme etkinliği yazı tipi boyutunu değiştiriyor, bu nedenle FONT'a ve bu SIZE özelliğine erişin.
Kod:
Sub With_Example1 () With Range ("A1") .Font.Size = 15 End Sub
Benzer şekilde, diğer biçimlendirme kodlarını sağlayın ve VBA With Statement'ı kapatın.
Kod:
Sub With_Example1 () With Range ("A1") .Font.Size = 15 .Font.Name = "Verdana" .Interior.Color = vbYellow .Borders.LineStyle = xl End Sub ile Sürekli Son
Belirtilen nesnedeki, yani A1 hücresindeki tüm biçimlendirmeyi görmek için kodu çalıştırın.
Yani, hücreye uygulanan tüm biçimlendirme. Bu tekniğin ne kadar harika olduğuna bakın.
Örnek 2
Örneğin, fontla ilgili tüm özellikleri değiştirmek istiyorsanız, hücre ve FONT özelliğinden bahsedebilirsiniz.
Kod:
Alt İle_Örnek2 () Aralıklı ("A1"). Yazı Tipi Sonu Alt Alt İle
VBA With Statement'ın içinde IntelliSense listesini görebiliriz. Yalnızca FONT özelliğiyle ilgili özellikleri ve yöntemleri gösterecektir.
Artık bununla her türlü etkinliği gerçekleştirebiliriz.
Kod:
Sub With_Example2 () With Range ("A1"). Font .Bold = True 'Yazı Tipi Kalın olacak .Color = vbAlias' Yazı tipi rengi Alias olacak .Italic = True 'Yazı tipi italik olacak 20 olmalıdır. Underline = True 'Yazı tipinin altı çizili olacaktır End With End Sub
Bunun sonucu aşağıda gösterildiği gibi olacaktır.
Örnek 3
Aşağıdaki kod, yalnızca hücre sınırıyla ilgili özelliklere erişecektir.
Kod:
Sub With_Example3 () With Range ("B2"). Kenarlıklar .Color = vbRed 'Kenarlık rengi kırmızı olacaktır .LineStyle = xlContinuous' Full border .Weight = xlThick 'Thick border End With End Sub
Bu kodun sonucu aşağıdaki gibidir.
Hatırlanacak şeyler
- With ifadesi, kodu en aza indirmek için kullanılır.
- With ifadesi için önce nesne sağlamamız gerekir.
- Belirli bir nesne sağlandıktan sonra, yalnızca o nesnenin özelliklerine ve yöntemlerine erişebiliriz.
