Conas ceanntásca nó buntásca éagsúla a chur i bhfeidhm ar gach leathanach ar scarbhileog Excel?
De réir réamhshocraithe, nuair a chuirtear ceanntásc nó buntásc isteach i mbileog oibre, cuirfear an t-ábhar ceanntásca nó buntásc i bhfeidhm ar gach leathanach. I gcás go leor daoine, d’fhéadfadh go mbeadh ábhar difriúil ar a mbileoga oibre ar leathanaigh éagsúla. Agus is gnách go ndéanann siad idirdhealú idir na leathanaigh seo agus an t-ábhar ceanntásca nó buntásc tar éis dóibh an bhileog oibre a phriontáil. Conas ceanntásca nó buntásca éagsúla a chur i bhfeidhm ar gach leathanach ar an mbileog oibre? Is féidir le modh san alt seo cabhrú leat.
Cuir ceanntásca nó buntásca éagsúla ar gach leathanach le cód VBA
Cuir ceanntásca nó buntásca éagsúla ar gach leathanach le cód VBA
Is féidir leis an gcód VBA seo a leanas cabhrú leat ceanntásca nó buntásca éagsúla a chur i bhfeidhm ar gach leathanach de bhileog oibre. Déan mar a leanas le do thoil.
1. Brúigh an Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic le haghaidh Feidhmchláirs fuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil agus greamaigh an cód VBA thíos sa cód fuinneog. Féach an pictiúr:
Cód VBA: Cuir ceanntásca éagsúla ar gach leathanach in Excel
Sub DifferentHeaderFooter()
Dim ws As Worksheet
Dim vLeft As Variant, vRight As Variant, xRg As Variant
Set ws = ActiveSheet
On Error Resume Next
vLeft = Array("First page", "Second page", "Third page", "fourth page")
xRg = Array("A1:C50", "A51:C100", "A101:C150", "A151:C200")
Application.ScreenUpdating = False
For i = 0 To UBound(vLeft)
With ws.PageSetup
.PrintArea = xRg(i)
.LeftHeader = vLeft(i)
End With
ws.PrintPreview
Next i
Application.ScreenUpdating = True
ws.PageSetup.PrintArea = ""
End Sub
nótaí:
3. Brúigh an F5 eochair chun an cód a rith. Ansin an réamhamharc fuinneog aníos, cliceáil le do thoil an Print cnaipe chun tús a chur leis na leathanaigh a phriontáil le ceanntásca nó buntásca éagsúla.
nótaí: Má tá 4 leathanach clóite sonraithe sa bhileog oibre, ní mór duit cliceáil ar an Print cnaipe ceithre huaire chun an priontáil iomlán a chríochnú.
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á!