With…End With

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

Paylaş: