Kako večkrat natisniti vrstice na dnu vsake natisnjene strani v Excelu?

Excel privzeto ponuja funkcijo, ki uporabnikom omogoča večkratno tiskanje vrstic na vrhu. Toda v nekaterih primerih boste morda raje večkrat natisnili vrstice na dnu strani, razen na vrhu. Ta članek vam bo pokazal majhne trike.

Na dno večkrat natisnite vrstice s kodo VBA

Na dno večkrat natisnite vrstice s kodo VBA

Spodnjo kodo VBA lahko zaženete, da določeno vrstico vstavite v nogo vsake strani. Nato lahko to vrstico večkrat natisnete na dno vsake natisnjene strani v Excelu.

1. Pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za uporabo okno.

2. V Ljubljani Microsoft Visual Basic za uporabo okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite spodnjo kodo VBA v okno modula.

Koda VBA: določeno vrstico vstavite v noge vsake natisnjene strani

Sub MyFooter()
	Dim xTxt As String
	Dim xAddress As String
	Dim xRg As Range
	Dim xCell As Range
	On Error Resume Next
	xAddress = ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
	If xRg Is Nothing Then Exit Sub
		For Each xCell In xRg
			xTxt = xTxt & xCell.Value & " "
		Next
		ActiveSheet.PageSetup.LeftFooter = xTxt
	End Sub

3. Pritisnite F5 tipko za zagon kode. Nato se prikaže pogovorno okno Kutools za Excel, izberite vrstico, ki jo želite večkrat natisniti na dnu vsake natisnjene strani, in nato kliknite OK gumb.

Zdaj je določena vsebina vrstic dodana v nogo vsake natisnjene strani na trenutnem delovnem listu. Lahko začnete tiskati delovni list.

Opombe: Če želite izbrano vsebino večkrat natisniti na dnu vsake strani v celotnem delovnem zvezku, lahko uporabite nogo, da vsebino vstavite v nogo vseh listov.