Excel sayfasını yazdırırken başlık veya altbilgilere arka plan rengi nasıl eklenir?

Bildiğimiz gibi, yazdırma sırasında görünecek şekilde bir sayfanın başlığına veya altbilgisine içerik veya resim ekleyebiliriz. Ancak başlık veya altbilgilere arka plan rengi eklemeyi denediniz mi? Aslında, bunu gerçekleştirebilecek yerleşik bir fonksiyon yoktur, ancak burada bu işlemi gerçekleştirmek için bazı dolaylı yöntemlerden bahsedeceğim.

Başlık veya altbilgiye Doldurma Rengi ile arka plan rengi ekleme

VBA ile başlık ve altbilgiye arka plan rengi ekleme

Başlık veya altbilgiye Doldurma Rengi ile arka plan rengi ekleme

1. Tıklayın Sayfa Düzeni > Sayfa Yapısı.

2. Sayfa Yapısı diyalog kutusunda, Kenar Boşlukları sekmesinde, 0 metin kutularına şunları yazın: Üst, Başlık, Alt ve Altbilgi metin kutuları.

3. Tıklayın Tamam. Ardından ilk satırı seçin ve tıklayın Ana Sayfa > Birleştir ve Ortala.

3. Devam edin ve bir renk seçin Doldurma Rengi listesinden birleştirilmiş hücrelere arka plan rengi eklemek için.

4. Adım 2 ve 3’ü tekrarlayarak istediğiniz altbilgi satırına arka plan rengi ekleyin.

Şimdi sayfa, başlık ve altbilgiye arka plan rengi eklenmiş gibi görünüyor.

VBA ile başlık ve altbilgiye arka plan rengi ekleme

Burada hem başlığa hem de altbilgiye aynı anda hızlıca arka plan rengi ekleyebilecek bir VBA kodu bulunmaktadır.

1. Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.

2. Ekle > Modül’e tıklayın, aşağıdaki kodu kopyalayıp yeni modüle yapıştırın.

VBA: Başlık ve altbilgiye arka plan rengi ekleme

Sub FakeHeaderFooter()
'UpdatebyExtendoffice20180628
    Dim I, J As Long
   Dim xRg As Range
    Dim xRow, xCol As Long
    Dim xRows, xCols As Long
    Dim xDivRow, xDivCol As Long
    Dim xTopArr, xButtArr As Variant
    Dim PageSize1, PageSize2 As Integer
    On Error Resume Next
    xTopArr = Array("Top Left", "", "", "Top Center", "", "", "", "")
    xButtArr = Array("Bottom Left", "", "", "Bottom Center", "", "", "", "")
    PageSize1 = 46
    PageSize2 = 8
    With ActiveSheet.PageSetup
        .TopMargin = Application.InchesToPoints(0)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .BlackAndWhite = False
    End With
    Set xRg = ActiveSheet.UsedRange
    If xRg Is Nothing Then Exit Sub
    xRows = xRg(xRg.Count).Row
    xCols = xRg(xRg.Count).Column
    If xRows < 46 Then xRows = 46
    If xCol < 8 Then xCol = 8
    xDivRow = Int(xRows / PageSize1)
    xDivCol = Int(xCols / PageSize2)
    If ((xRows Mod PageSize1) > 0) And (xDivRow <> 0) Then xDivRow = xDivRow + 1
    If ((xCols Mod PageSize2) > 0) And (xDivCol <> 0) Then xDivCol = xDivCol + 1
    If xDivRow = 0 Then xDivRow = 1
    If xDivCol = 0 Then xDivCol = 1
    Set xRg = Range("A1").Resize(xDivRow * PageSize1, xDivCol * PageSize2)
    xRow = 1
    xCol = 1
    Cells.PageBreak = xlPageBreakNone
    For I = 1 To xDivRow * PageSize1 Step PageSize1 + 1
        For J = 1 To xDivCol * PageSize2 Step PageSize2
            Cells(I, J).Resize(1, PageSize2) = xTopArr
            Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex = 34
            Cells(I + PageSize1, J).Resize(1, PageSize2) = xButtArr
            Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex = 34
            Rows(I + PageSize1 + 1).PageBreak = xlManual
            Columns(J + PageSize2).PageBreak = xlManual
        Next
    Next
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın, ardından sahte başlık ve altbilgi olarak görünecek her sayfanın ilk satırına ve 47. satırına belirli bir arka plan rengi eklenmiş olacaktır.

Not: Koddaki aşağıdaki betikleri ihtiyaçlarınıza göre değiştirebilirsiniz.

1. Aşağıdaki dizedeki başlık ve altbilgi içeriklerini değiştirin:

xTopArr = Array("Üst Sol", "", "", "Üst Orta", "", "", "", "")

xButtArr = Array("Alt Sol", "", "", "Alt Orta", "", "", "", "")

2. Bu dizedeki arka plan rengi kodunu değiştirin:

Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex = 34

Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex = 34