Hücre İçi Düzenlemeler – With selection… End With kullanımı


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.

WITHENDWITH

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



WITHENDWITH

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.

Reklamlar

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Connecting to %s