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.
2. Yn y Page Setup deialog, dan Ymylon tab, math 0 i mewn i Top, Pennawd, Gwaelod ac Troedyn blychau testun.
3. Cliciwch OK. Yna dewiswch y rhes gyntaf a chlicio Hafan > Uno a Chanolfan.
3. Ewch ymlaen i ddewis lliw ohono Llenwch color rhestr i ychwanegu lliw cefndir i'r celloedd unedig.
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.
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
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.
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
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
