Hogyan lehet különféle fejléceket vagy lábléceket alkalmazni az Excel-táblázatok minden oldalára?
Alapértelmezés szerint, amikor fejlécet vagy láblécet helyez be egy munkalapba, a fejléc vagy a lábléc tartalma minden oldalra vonatkozik. Sok ember számára a különböző oldalak tartalma eltérő lehet a munkalapokon. És hajlamosak megkülönböztetni ezeket az oldalakat a fejléc vagy a lábléc tartalmával, miután kinyomtatták a munkalapot. Hogyan alkalmazzunk különböző fejléceket vagy lábléceket a munkalap egyes oldalain? Ebben a cikkben szereplő módszer segíthet.
VBA kóddal minden oldalon alkalmazzon különböző fejléceket vagy lábléceket
VBA kóddal minden oldalon alkalmazzon különböző fejléceket vagy lábléceket
A következő VBA-kód segíthet különböző fejlécek vagy láblécek alkalmazásában a munkalap minden oldalán. Kérjük, tegye a következőket.
1. megnyomni a más + F11 gombok egyszerre a Microsoft Visual Basic alkalmazásokhozs ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot a Kód ablak. Lásd a képernyőképet:
VBA-kód: Különböző fejléceket alkalmazzon az Excel minden oldalán
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
Megjegyzések:
3. megnyomni a F5 gombot a kód futtatásához. Aztán a Preview megjelenik az ablak, kattintson a gombra gombra kattintva elkezdi nyomtatni az oldalakat különböző fejlécekkel vagy láblécekkel.
Megjegyzések: Ha 4 megadott nyomtatott oldal van a munkalapon, akkor kattintson a gombra gombot négyszer a teljes nyomtatás befejezéséhez.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!