提示:其他語言是Google翻譯的。 你可以訪問 English 版本。
登入
x
or
x
x
註冊
x

or

如何在打印時在Excel工作表中為頁眉或頁腳添加背景顏色?

我們知道,我們可以將內容或圖片添加到工作表的頁眉或頁腳中,這將在打印時顯示。 但是你有沒有試過在頁眉或頁腳中添加背景顏色? 實際上,沒有內置函數可以處理它,但在這裡我介紹一些實現操作的迂迴方式。

通過填充顏色向頁眉或頁腳添加背景顏色

通過VBA向頁眉和頁腳添加背景顏色

將工作簿信息插入Excel中的頁眉或頁腳

如果你有 Kutools for Excel 安裝後,你可以申請 插入工作簿信息 用於快速將工作表名稱,工作簿名稱,工作簿路徑和名稱或其他信息插入頁眉或頁腳或單元格的實用程序。 點擊60天免費試用!
doc將標題添加到標題8
Kutools for Excel:擁有超過200便利的Excel加載項,可以在60天免費試用,不受限制。

通過填充顏色向頁眉或頁腳添加背景顏色

1。 點擊 頁面佈局 > 頁面設置.
doc將標題添加到標題1

2。 在裡面 頁面設置 對話框下 保證金 標籤,鍵入 0頂部, , 底部 - 頁腳 文本框。
doc將標題添加到標題2

3。 點擊 OK。 然後選擇第一行並單擊 主頁 > 合併與中心.
doc將標題添加到標題3

3。 繼續從中選擇顏色 填充color list為合併的單元格添加背景顏色。
doc將標題添加到標題4

4。 重複步驟2和3,將背景顏色添加到所需的頁腳行。

現在頁面似乎為頁眉和頁腳添加了背景顏色。
doc將標題添加到標題5


通過VBA向頁眉和頁腳添加背景顏色

這是一個VBA代碼,可以同時快速添加頁眉和頁腳的背景顏色。

1。 按 Alt + F11鍵 鍵啟用 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,將代碼複製並粘貼到新模塊中。

VBA:為頁眉和頁腳添加背景顏色

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

doc將標題添加到標題6

3。 按 F5 運行代碼的鍵,然後某些背景顏色已添加到第一行和每個工作表的47th行,將顯示為假頁眉和頁腳。
doc將標題添加到標題7

請注意: 在代碼中,您可以更改以下腳本以滿足您的需要。

1。 根據需要在字符串中更改頁眉和頁腳內容:

xTopArr = Array(“Top Left”,“”,“”,“Top Center”,“”,“”,“”,“”)

xButtArr = Array(“Bottom Left”,“”,“”,“Bottom Center”,“”,“”,“”,“”)

2。 在這個sting中更改背景顏色索引:

單元格(I,J).Resize(1,PageSize2).Interior.ColorIndex = 34

單元格(I + PageSize1,J).Resize(1,PageSize2).Interior.ColorIndex = 34


在工作表的每第n行快速插入分頁符。

在某些情況下,我們需要手動將分頁符插入到每一行或第n行,以便將它們打印為單頁,這將是浪費時間。 這裡 Kutools for Excel's 插入分頁符每行 函數可以通過2步驟快速輕鬆地在每第n行插入分頁符。 點擊60天免費試用!
doc插入分頁符每一行
Kutools for Excel:擁有超過200便利的Excel加載項,可以在60天免費試用,不受限制。

Kutools for Excel解決了您的大多數問題,並使您的生產率提高了80%

  • 重用: 快速插入 複雜的公式,圖表 以及你以前用過的任何東西; 加密單元格 密碼; 創建郵件列表 並發送電子郵件...
  • 超級方程式酒吧 (輕鬆編輯多行文字和公式); 閱讀佈局 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不丟失數據; 分裂細胞含量; 組合重複的行/列...防止重複的細胞; 比較範圍...
  • 選擇複製或唯一 行; 選擇空行 (所有細胞都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇......
  • 精確複製 多個單元格而不更改公式參考; 自動創建參考 多張表; 插入項目符號,複選框等等......
  • 提取文本,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級過濾器 (將過濾方案保存並應用到其他工作表); 高級排序 按月/週/日,頻率等; 特殊過濾器 用粗體,斜體......
  • 結合工作簿和工作表; 根據鍵列合併表; 將數據拆分為多個表格; 批量轉換xls,xlsx和PDF...
  • 超過300強大的功能。 支持Office / Excel 2007-2019和365。 支持所有語言。 在您的企業或組織中輕鬆部署。 全功能30天免費試用。
kte tab 201905

Office選項卡為Office提供選項卡式界面,使您的工作更輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,Publisher,Access,Visio和Project。
  • 在同一窗口的新選項卡中打開並創建多個文檔,而不是在新窗口中。
  • 通過50%提高您的工作效率,每天為您減少數百次鼠標點擊!
官方底部
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.