Nesne ve özellikleri tekrar tekrar kullanmaktansa With…End With yapısı içinde kullanmak çeşitli avantajlar sağlar.
With…End With yapısının faydaları:
1. Daha hızlı kod yazılır
2. Daha kolay kod bakımı yapılır
3. Kodlar daha hızlı çalışır
Öncesi:
Set aralik = Range("A4", "A" & Cells(Rows.Count, 1).End(xlUp).Row) aralik.Font.Name = “Arial” aralik.Font.Size = 14 aralik.Font.Bold = True
Sonrası:
Set aralik = Range("A4", "A" & Cells(Rows.Count, 1).End(xlUp).Row) With aralik.Font .Name = “Arial” .Size = 14 .Bold = True End With