Yazdırırken Excel sayfasındaki üstbilgi veya altbilgilere arka plan rengi nasıl eklenir?
Bildiğimiz gibi, baskı sırasında görüntülenecek bir sayfanın üst veya alt bilgisine içerik veya resim ekleyebiliriz. Ancak, başlıklara veya alt bilgilere arka plan rengi eklemeyi hiç denediniz mi? Aslında, bunun üstesinden gelebilecek yerleşik bir işlev yoktur, ancak burada operasyonu başarmak için bazı dolambaçlı yollar sunacağım.
Dolgu rengine göre üst bilgi veya alt bilgiye arka plan rengi ekleyin
VBA ile üstbilgi ve altbilgiye arka plan rengi ekleyin
Dolgu rengine göre üst bilgi veya alt bilgiye arka plan rengi ekleyin
1. tık Sayfa Düzeni > Sayfa Yapısı.
2. içinde Sayfa Yapısı diyalog, altında Kenar Boşlukları sekme, yazın 0 içine Iyi, üstbilgi, Alt ve Altbilgi Metin kutuları.
3. tık OK. Ardından ilk satırı seçin ve tıklayın Ana Sayfa > Birleştir ve Ortala.
3. İçinden bir renk seçmek için devam edin Colo doldurunBirleştirilmiş hücrelere arka plan rengi eklemek için r listesi.
4. İstediğiniz altbilgi satırına arka plan rengi eklemek için 2. ve 3. adımları tekrarlayın.
Artık sayfa, üstbilgi ve altbilgiye arka plan rengi ekliyor gibi görünüyor.
VBA ile üstbilgi ve altbilgiye arka plan rengi ekleyin
İşte bir VBA kodu, aynı anda üstbilgi ve altbilgiye hızlı bir şekilde arka plan rengi ekleyebilir.
1. Basın Alt + F11 etkinleştirmek için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modül, aşağıdaki kodu kopyalayıp yeni modüle yapıştırın.
VBA: Üstbilgi ve altbilgiye arka plan rengi ekleyin
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. Basın F5 kodu çalıştırmak için tuşuna basın, ardından sahte üstbilgi ve altbilgi olarak gösterilecek her sayfanın ilk satırına ve 47. satırına belirli bir arka plan rengi eklendi.
Not: kodda, ihtiyacınızı karşılamak için aşağıdaki komut dosyalarını değiştirebilirsiniz.
1. Dizide ihtiyaç duyduğunuz şekilde üstbilgi ve altbilgi içeriğini değiştirin:
xTopArr = Dizi ("Sol Üst", "", "", "Üst Orta", "", "", "", "")
xButtArr = Dizi ("Alt Sol", "", "", "Alt Orta", "", "", "", "")
2. Bu sokmada arka plan renk indeksini değiştirin:
Hücreler (I, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
Hücreler (I + PageSize1, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
