::.. Makro ile HÜCRELERİ BİÇİMLENDİRME .::

[Ömer BARAN]

::.. Makro ile HÜCRELERİ BİÇİMLENDİRME ..::

Herkese merhabalar !..

Kullandığım excel belgesinin bir sayfasının ilk iki satırının mevcut biçimlendirmesini bir makro kod ile yapmak istiyorum.

Biçimlendirmeye ilişkin detaylar, ekteki belgede yazılıdır.

Mevcut biçimlendirmeler temizlendiğinde, bilgisi olan arkadaşların yazacağı kod ile hücre birleştirmeleri, dolgu, yazı tipi, font, kenarlık gibi bahsettiğim biçimlendirmelerin tümünün uygulanmasını sağlamak istiyorum.

İlgilenenlere teşekkürler.

 

[Ömer BARAN]

Kod kullanmadan, biçimlendirilmiş bir sayfa hazırlanarak, o sayfadan Kopyala->Yapıştır yöntemiyle sorun giderilmiştir.

 

[Korhan Ayhan]

Merhaba,

Makro kaydet yöntemini kullanarak yaptığınız biçimlendirmeleri kayıt edip kullanabilirsiniz. Aşağıdaki gibi oluşan kodlar düzenlenerek sadeleştirilebilir.

Sub Bicimlendir()
    Rem 1. satır biçilendiriliyor...
    
    Range("E1:F1").Merge
    Range("K1:L1").Merge
    Range("P1:Q1").Merge
    Range("T1:W1").Merge
    Range("B1:W1").Borders.LineStyle = xlContinuous
    Range("B1:W1").Borders.Weight = xlHairline
    Range("B1:W1").Font.Bold = True
    Range("B1:W1").Font.Name = "Calibri"
    Range("D1:W1").Font.ColorIndex = 0
    Range("B1:C1").Font.ColorIndex = 2
    Range("B1:D1").Font.Size = 8
    Range("G1:I1").Font.Size = 8
    Range("M1").Font.Size = 8
    Range("O1").Font.Size = 8
    Range("S1").Font.Size = 8
    Range("E1").Font.Size = 18
    Range("J1").Font.Size = 12
    Range("N1").Font.Size = 12
    Range("R1").Font.Size = 12
    Range("E1:W1").NumberFormat = "General"
    Range("E1:W1").NumberFormat = "General"
    Range("B1:C1").NumberFormat = "h:mm:ss"
    Range("D1").NumberFormat = "mm:ss"
    Range("B1:C1").Interior.ColorIndex = 1
    Range("D1").Interior.ColorIndex = 3
    Range("E1:J1").Interior.ColorIndex = 48
    Range("K1:O1").Interior.ColorIndex = 45
    Range("P1:S1").Interior.ColorIndex = 55
    Range("T1:W1").Interior.ColorIndex = xlNone
    Range("B1:W1").HorizontalAlignment = xlCenter
    Range("B1:W1").VerticalAlignment = xlCenter

    Rem 15. satır biçilendiriliyor...

    Range("B15:W15").Borders.LineStyle = xlContinuous
    Range("B15:W15").Borders.Weight = xlHairline
    Range("B15:W15").Font.Bold = True
    Range("B15:W15").Font.Name = "Calibri"
    Range("B15:W15").Font.ColorIndex = 0
    Range("B15:W15").Font.Size = 8
    Range("B15:W15").NumberFormat = "General"
    Range("B15:D15").Interior.ColorIndex = 2
    Range("E15:J15").Interior.ColorIndex = 15
    Range("K15:O15").Interior.ColorIndex = 44
    Range("P15:S15").Interior.ColorIndex = 24
    Range("T15:W15").Interior.ColorIndex = 2
    Range("B15:W15").HorizontalAlignment = xlLeft
    Range("B15:W15").VerticalAlignment = xlTop
End Sub