With ve End With Özellikleri

Bu derste With ... End With özelliğini VBA'de nasıl kullanabileceğimizi öğreneceğiz.

İlk olarak 12nci derste kaydettiğimiz ilkMakroKaydimiz (Son) adlı makro içerebilen Excel çalışma kitabını masaüstünüze kaydediniz ve çalıştırınız.

    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent6
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
                

With ... End With özelliğini kullandığımızda kodlarımız yukarıdaki gibi görüntülenecektir.

    Selection.Interior.Pattern = xlSolid
    Selection.Interior.PatternColorIndex = xlAutomatic
    Selection.Interior.ThemeColor = xlThemeColorAccent6
    Selection.Interior.TintAndShade = 0.399975585192419
    Selection.Interior.PatternTintAndShade = 0
                

Eğer With ... End With özelliğini kullanmasaydık Selection.Interior kodlarını her seferinde yazmak zorunda kalırdık.

Bir sonraki dersimizde Debug Hata Ayıklayıcısı konusuna değineceğiz.