Note: The other languages of the website are Google-translated. Back to English

Sut i ychwanegu lliw cefndir at benawdau neu droedynnau yn nhaflen Excel wrth argraffu?

Fel y gwyddom, gallwn ychwanegu cynnwys neu lun at bennawd neu droedyn dalen, a fydd yn arddangos wrth argraffu. Ond a ydych erioed wedi ceisio ychwanegu lliw cefndir at y penawdau neu'r troedynnau? Mewn gwirionedd, nid oes unrhyw swyddogaeth adeiledig yn gallu ei drin, ond yma rwy'n cyflwyno rhai ffyrdd cylchfan i gyflawni'r llawdriniaeth.

Ychwanegwch liw cefndir at y pennawd neu'r troedyn yn ôl Llenwch liw

Ychwanegwch liw cefndir at y pennawd a'r troedyn gan VBA


Ychwanegwch liw cefndir at y pennawd neu'r troedyn yn ôl Llenwch liw

1. Cliciwch Layout Tudalen > Page Setup.
doc ychwanegu cefndir i bennawd 1

2. Yn y Page Setup deialog, dan Ymylon tab, math 0 i mewn i Top, Pennawd, Gwaelod ac Troedyn blychau testun.
doc ychwanegu cefndir i bennawd 2

3. Cliciwch OK. Yna dewiswch y rhes gyntaf a chlicio Hafan > Uno a Chanolfan.
doc ychwanegu cefndir i bennawd 3

3. Ewch ymlaen i ddewis lliw ohono Llenwch color rhestr i ychwanegu lliw cefndir i'r celloedd unedig.
doc ychwanegu cefndir i bennawd 4

4. Ailadroddwch gam 2 a 3 i ychwanegu lliw cefndir i'r rhes troedyn rydych chi ei eisiau.

Nawr mae'n ymddangos bod y dudalen yn ychwanegu lliw cefndir at y pennawd a'r troedyn.
doc ychwanegu cefndir i bennawd 5


Ychwanegwch liw cefndir at y pennawd a'r troedyn gan VBA

Dyma god VBA gall ychwanegu lliw cefndir yn gyflym at y pennawd a'r troedyn ar yr un pryd.

1. Gwasgwch Alt + F11 allweddi i alluogi Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, copïo a gludo islaw'r cod i'r modiwl newydd.

VBA: Ychwanegu lliw cefndir i'r pennawd a'r troedyn

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 ychwanegu cefndir i bennawd 6

3. Gwasgwch F5 allwedd i redeg y cod, yna mae lliw cefndir penodol wedi'i ychwanegu at y rhes gyntaf a 47ain rhes pob dalen a fydd yn cael ei dangos fel pennawd a throedyn ffug.
doc ychwanegu cefndir i bennawd 7

Nodyn: yn y cod, gallwch newid islaw sgriptiau i ddiwallu'ch angen.

1. Newid cynnwys y pennawd a'r troedyn yn ôl yr angen yn y llinyn:

xTopArr = Array ("Chwith Uchaf", "", "", "Canolfan Uchaf", "", "", "", "")

xButtArr = Array ("Gwaelod Chwith", "", "", "Canolfan Waelod", "", "", "", "")

2. Newid y mynegai lliw cefndir yn y pigiad hwn:

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

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



Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir