Çalışma Sayfasında Görsel Biçimlendirmeler Yapmak

Çalışma Sayfasında Görsel Biçimlendirmeler Yapmak

Amaç

• Bir Excel çalışma sayfasının hücrelerinde yazı tipi, geri plan ve kenarlık görünümü gibi görsel özelliklerde değişiklikler yapmak.

Açıklamalar

• Bir bölgeyi temsil eden Range nesnesinin Borders bölgenin kenarlıklar koleksiyonunu temsil eder.

  • Bu kenarlıklardan belli birini seçmek için XlBordersIndex adlandırılmış değer seçeneklerinden birini kullanabilirsiniz:

    • xlEdgeLeft, xlEdgeRight bölgeyi çevreleyen sol ve sağ dış kenarlıklara,

    • xlEdgeTop, xlEdgeBottom bölgeyi çevreleyen üst ve alt dış kenarlıklara,

    • xlInsideHorizontal bölge satırlarını ayıran yatay iç kenarlıklara,

    • xlInsideVertical bölge sütunlarını ayıran dikey iç kenarlıklara erişmek içindir.

• Font özelliğiyle bölgedeki yazı tipini öğrenebilir veya belirleyebilirsiniz. Bu özellik değeri aslında bir Font nesnesidir. Bu nesnenin

  • Name özelliği yazı tipini adlandırmak içindir. “Times New Roman”, “Arial”, … gibi bilinen yazı tipi adlarından birini atarsınız.

  • Size özelliğiyle karakter boyutunu belirleyebilirsiniz. Tabi yine punto cinsi bir değer atamalısınız.

  • Bold, Italic ve Underline özellikleri de sırasıyla karakterlerin kalın, yatık ve altı çizili olup olmadıklarını belirleyen mantıksal belirteç (Boolean) türü özelliklerdir.

• Bir bölgeyi temsil eden Range nesnesinin Interior özelliği bu bölgenin iç görünümünü temsil eder. Bu özellik değeri de Interior türünden bir nesnedir. Bu nesne türünün işe yarayabilecek bazı özellikleri şunlardır:

  • Color özelliğiyle iç rengi RGB (kırr-mı-zı! yee-şil! maağ-vi!) karışımıyla belirleyebilirsiniz.

  • ColorIndex özelliğiyle iç rengi sayı koduyla belirleyebilirsiniz.

  • Pattern özelliği iç görünüm desenini belirlemek içindir. Bu özelliğe XlPattern adlandırılmış değerler grubundan bir seçenek atarsınız. Bunlardan bazıları şunlardır:

    • xlPatternSolid homojen renkli desen

    • xlPatternHorizontal yatay koyu çizgili desen

    • xlPatternVertical dikey boyu çizgili desen

    • xlPatternGrid kafes deseni

    • xlPatternCrissCross çapraz kafes deseni

    • xlPatternNone desensiz

• Belli bir kenarlığı temsil eden Border türü bir nesnenin

  • LineStyle özelliğiyle kenarlık tipini belirleyebilirsiniz. Bu özelliğe XlLineStyle adlandırılmış değerler grubundan birini atarsınız. Bazı önemli seçenekler şunlardır:

    • xlContinuous Sürekli kesiksiz çizgi

    • xlDash Kesikli çizgi

    • xlDashDot Kesikli noktalı çizgi

    • xlDot Noktalı çizgi

    • xlDouble çift çizgi

  • Weight özelliğine kenarlık kalınlığını belirlemek için XlBorderWeight adlandırılmış değer grubundan bir seçenek atarsınız. Bazı seçenekler şunlardır:

    • xlHairline Saç teli kadar ince (en ince) kenarlık

    • xlThin ince kenarlık

    • xlMedium orta-kalın kenarlık

    • xlThick kalın kenarlık

• Tek bir kenarlığı temsil eden Border türünün özelliklerini tüm kenarlıklar koleksiyonunu temsil eden Borders türü nesne üzerindede kullanabilirsiniz. O zaman yaptığımız biçimlendirmeyi bölgenin tüm kenarlıklarına uygulamış olursunuz.

Adımlar

• Hücrelerinde görsel biçimlendirmeler yapacağınız çalışma sayfasına ait VBA projesinde bir altyordam yaratın.

• İlgilendiğiniz hücre veya bölgelere referans yapmak için Range türü bir değişken tanımlayın:

• Dim bolge As Range

• Bu değişken aracılığıyla biçimlendirme yapacağınız bölgenin referansını alın:

• Set bolge = Me.Range("A1:A10")

• Bu bölge üzerinde biçimlendirme yapacak bir komut ekleyin.

  • Örneğin, tüm kenarlıkları orta-kalın yapacak bir komut ekleyin:

  • bolge.Borders.Weight = xlMedium

  • Ya da tek bir kenarlığın rengini değiştirecek bir komut ekleyin:

  • bolge.Borders(xlInsideHorizontal).Color = RGB(255, 0, 0)

  • Dilerseniz, yazı tipinde değişiklik yapan bir komut ekleyin:

  • bolge.Font.Bold = True

  • İç kısım (geriplan) rengiyle de oynayabilirsiniz:

  • bolge.Interior.ColorIndex = 15

• Biçimlendireceğiniz başka bölgeler varsa yukarıdaki işlemleri o bölge referanslarını alıp tekrarlayın.

Örnek Altyordam

Aşağıdaki altyordam önceki örnek altyordamın oluşturduğu veri tablosunun ikinci sütunu üzerinde biçimlendirmeler yapıyor. Tüm kenarlıkları orta kalınlığa getirdikten sonra iç yatay kenarlıkların rengini kırmızı yapıyor ve bölge geriplan rengini değiştiriyor.

Kaynak Dosya: “SayfadaBicimlendirmeYapmak.xlsm”

Unutmayın; kitap veya ekran satırına sığmayan komut satırları alta sarkmış olabilir. Siz onları tek satır olarak yazacaksınız!

Sub SayfadaBicimlendirmeYapmak()

    Dim bolge As Range

    Set bolge = Me.Range("B1:B10")

    bolge.Borders.Weight = xlMedium

    bolge.Borders(xlEdgeTop).Color = RGB(255, 0, 0)

    bolge.Borders(xlInsideHorizontal).Color = RGB(255, 0, 0)

    bolge.Borders(xlEdgeBottom).Color = RGB(255, 0, 0)

    bolge.Font.Bold = True

    bolge.Interior.ColorIndex = 15

End Sub