Conas dath cúlra a chur le ceanntásca nó buntásca i mbileog Excel agus tú ag priontáil?
Mar is eol dúinn, is féidir linn ábhar nó pictiúr a chur le ceanntásc nó buntásc bileog, a thaispeánfar agus muid á phriontáil. Ach an ndearna tú iarracht riamh dath cúlra a chur leis na ceanntásca nó na buntásca? I ndáiríre, níl aon fheidhm ionsuite ann ar féidir í a láimhseáil, ach anseo tugaim isteach roinnt bealaí timpealláin chun an oibríocht a bhaint amach.
Cuir dath cúlra leis an gceanntásc nó an buntásc de réir dath Líon
Cuir dath cúlra leis an gceanntásc agus an buntásc le VBA
Cuir dath cúlra leis an gceanntásc nó an buntásc de réir dath Líon
1. cliceáil Leagan Amach Page > Socrú Leathanaigh.
2. Sa Socrú Leathanaigh dialóg, faoi imill cluaisín, cineál 0 i barr, ceanntásc, Bun agus Buntásc boscaí téacs.
3. cliceáil OK. Ansin roghnaigh an chéad tsraith agus cliceáil Baile > Cumaisc & Ionad.
3. Téigh ar aghaidh chun dath a roghnú as Líon color liosta chun dath cúlra a chur leis na cealla cumaiscthe.
4. Déan céim 2 agus 3 arís chun dath cúlra a chur leis an tsraith buntásc atá uait.
Anois is cosúil go gcuireann an leathanach dath cúlra le ceanntásc agus buntásc.
Cuir dath cúlra leis an gceanntásc agus an buntásc le VBA
Seo cód VBA is féidir dath cúlra a chur go tapa le ceanntásc agus buntásc ag an am céanna.
1. Brúigh Alt + F11 eochracha le cumasú Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. cliceáil Ionsáigh > Modúil, cóipeáil agus greamaigh thíos an cód leis an modúl nua.
VBA: Cuir dath cúlra leis an gceanntásc agus an buntásc
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. Brúigh F5 eochair chun an cód a rith, ansin tá dath cúlra áirithe curtha leis an gcéad shraith agus leis an 47ú sraith de gach bileog a thaispeánfar mar cheanntásc bréige agus buntásc.
Nóta: sa chód, is féidir leat athrú faoi bhun scripteanna chun freastal ar do riachtanas.
1. Athraigh an t-ábhar ceanntásca agus buntásc de réir mar a theastaíonn uait sa téad:
xTopArr = Eagar ("Barr ar chlé", "", "", "Lárionad Barr", "", "", "", "")
xButtArr = Eagar ("Bun ar chlé", "", "", "Ionad Bun", "", "", "", "")
2. Athraigh an t-innéacs dathanna cúlra sa ghreim seo:
Cealla (I, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
Cealla (I + PageSize1, J) .Resize (1, PageSize2) .Interior.ColorIndex = 34
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!