İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Yazdırarkən Excel səhifəsində başlıq və ya altbilgiyə fon rəngini əlavə etmək üçün necə?

Bildiyimiz kimi, çap olunduqda görünən bir hesabatın üst və ya altbilgisinə məzmun və ya şəkil əlavə edə bilərsiniz. Amma üstbilgilere və ya altbilgilere fon rəngini əlavə etməyə çalışırdınızmı? Əslində, heç bir daxili funksiyanı idarə edə bilmərik, amma burada əməliyyata nail olmaq üçün bəzi döner yolları təqdim edirəm.

Rəngin doldurulması ilə başlıq və ya altbilgiyə fon rəngini əlavə edin

Başlıq və altbilgiyə VBA tərəfindən fon rəngini əlavə edin

Excel-də başlıq və ya altbilgiye İş Kitabı məlumatını daxil edin

Əgər Excel üçün Kutools yüklənmişsə, müraciət edə bilərsiniz İş dəftəri məlumatını daxil edin iş yeri adı, iş kitabının adı, iş kitabının yolu və adını və ya başlıq və ya altbilgiyə və ya hüceyrəyə digər məlumatları tez bir zamanda daxil etmək üçün yardım proqramı. 60 gün pulsuz sınaq üçün tıklayın!
dos 8 başlığına fon əlavə edin
Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan cəhd etmək üçün 60-dən çox lazımlı Excel eklentisi ilə.

Rəngin doldurulması ilə başlıq və ya altbilgiyə fon rəngini əlavə edin

1. klik Page Layout > Page Setup.
dos 1 başlığına fon əlavə edin

2. İçində Page Setup dialoq altında Qaydalarından seksiyə yazın 0 daxil yuxarı, Mövzu, Altfooter mətn qutuları.
dos 2 başlığına fon əlavə edin

3. klik OK. Sonra ilk sıra seçin və vurun ev > Merge & Center.
dos 3 başlığına fon əlavə edin

3. Bir rəng seçmək üçün davam edin Colo doldurunr siyahı birləşdirilmiş hüceyrələrə fon rəngini əlavə etmək üçün.
dos 4 başlığına fon əlavə edin

4. 2 və 3 addımını istədikləri altlıq satırına fon rəngini əlavə etmək üçün təkrarlayın.

İndi səhifə başlıq və altbilgiye fon rəngini əlavə edir.
dos 5 başlığına fon əlavə edin


Başlıq və altbilgiyə VBA tərəfindən fon rəngini əlavə edin

Burada VBA kodu eyni zamanda başlıq və altbilgiyə fon rəngini əlavə edə bilər.

1. Basın Alt + F11 düymələri aktivləşdirmək Proqramlar üçün Microsoft Visual Basic pəncərə.

2. klik Taxmaq > Modules, kodu aşağıda yeni modula kopyalayıb yapışdırın.

VBA: başlıq və altbilgiyə fon rəngini əlavə edin

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

dos 6 başlığına fon əlavə edin

3. Basın F5 kodu çalıştırmak üçün əsas, sonra müəyyən arka plan rengi ilk satıra və saxta üstbilgi və altbilgi kimi göstəriləcək hər bir hesabatın 47th satırına əlavə edildi.
dos 7 başlığına fon əlavə edin

Qeyd: kodunuzda, ehtiyaclarınızı qarşılamaq üçün skriptlər aşağıda dəyişə bilərsiniz.

1. Stolda lazım olan mövzu və altlıq məzmununu dəyişdirin:

xTopArr = Array ("Üst Sol", "", "", "Top Mərkəz", "", "", "", "")

xButtArr = Array ("Aşağı Sol", "", "", "Altlıq Mərkəzi", "", "", "", "")

2. Bu stingdə fon rənginin indeksini dəyişdirin:

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

Hüceyrələr (I + PageSize1, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34


tez iş səhifəsinin hər bir n-satırında səhifə breakunu daxil edin.

Bəzi hallarda, hər dəfə və ya ntern satırına səhifə breaklarını əl ilə bir səhifə olaraq yazdırmaq üçün əllərarası əlavə etməliyik. Burada Excel üçün Kutools's Səhifəni hər satıra daxil edin funksiyası 2 addımları ilə hər n-ci sətirdə səhifə breaklarını tez və asanlıqla daxil edə bilər. 60 gün pulsuz sınaq üçün tıklayın!
doc insert səhifə hər sətirdən qırılır
Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan cəhd etmək üçün 60-dən çox lazımlı Excel eklentisi ilə.


Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.