Hücre içerisine yazdığımız bir textin rengi, boyutu, konumu ve benzeri özelliklerini düzenleyebileceğimiz kodları bu konuda açıklamaya çalışalım.
Sub deneme()
Range("C5").Select
With Selection
.ColumnWidth = 33 'sütun genişliği
.RowHeight = 44 'satır genişliği
.Value = "Bugün Günlerden CUMA"
.HorizontalAlignment = xlCenter 'yatay hizalama
.VerticalAlignment = xlCenter 'dikey hizalama
.WrapText = False 'metni kaydır
.ShrinkToFit = False 'hücre içine yazıyı sığdırmak için font u küçült
.Font.Bold = True 'yazı kalın olsun
.Font.Color = vbWhite 'yazı rengi
End With
With Selection.Interior
.Color = RGB(142, 169, 219) 'hücre içi rengi
End With
End Sub
With Selection …. End With kullanımı :
Belirli bir seçim için birden fazla işlem yaptıracağımız zaman her seferinde seçim.yapılacak işlem şeklinde kodu yazmak yerine seçimi with selection… end with blokları içine alarak sadece .yapılacak işlem şeklinde daha kolay yazabiliriz.
Yani:
.
.
.
Range(“C5”).Value = “Bugün günlerden cuma”
Range(“C5”).HorizontalAlignment = xlCenter
Range(“C5”).VerticalAlignment = xlCenter
.
.
.
Yukarıdaki kodu bu şekilde yazarsak yine aynı sonucu verecektir. Range(“C5”) kısmını sürekli tekrarlamak yerine matematikteki ortak paranteze alma mantığı ile aynı şekilde with selection.. end with bloğu arasına alıp işlemleri sıralamak mümkündür.
Excel Yardım 