Ինչպե՞ս կրկնել տողերը յուրաքանչյուր տպման վերևում, բացառությամբ Excel- ի վերջին էջի:
Շատ դեպքերում կարող է անհրաժեշտ լինել կրկնել վերնագրի տողը Excel- ի յուրաքանչյուր տպագիր էջի վերևում: Բայց ինչպե՞ս կրկնել տողերը յուրաքանչյուր տպման վերևում, բացի վերջին էջից: Այս հոդվածը ցույց կտա ձեզ դրան հասնելու մեթոդը:
Կրկնեք շարքերը յուրաքանչյուր տպագրության վերևում, բացառությամբ VBA կոդով վերջին էջի
Կրկնեք շարքերը յուրաքանչյուր տպագրության վերևում, բացառությամբ VBA կոդով վերջին էջի
Կարող եք գործարկել ստորև ներկայացված VBA կոդը ՝ վերևում կրկնվող շարքերով բոլոր էջերը տպելու համար ՝ բացառությամբ վերջին էջի: Խնդրում եմ, արեք հետևյալ կերպ.
1. Բացեք աշխատանքային թերթիկը, որը անհրաժեշտ է վերևում շարքերը կրկնել, բացառությամբ վերջին էջի, ապա սեղմեք ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևի VBA կոդը Մոդուլի պատուհանում:
VBA. Կրկնեք շարքերը յուրաքանչյուր տպման վերևում, բացառությամբ Excel- ի վերջին էջի
Sub RepeatRowsExceptLastPage()
Dim xPages As Long, I As Integer, xRg As Range
On Error Resume Next
xPages = ActiveSheet.PageSetup.Pages.Count
Set xRg = Application.InputBox("Please select a row you need to repeat:", "Kutools for Excel", , , , , , Type:=8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
If xPages > 0 Then
With ActiveSheet.PageSetup
.PrintTitleRows = xRg.AddressLocal
ActiveSheet.PrintOut from:=1, To:=xPages - 1
.PrintTitleRows = ""
ActiveSheet.PrintOut from:=xPages, To:=xPages
End With
End If
End Sub
3. Սեղմեք F5 կոդը գործարկելու բանալին, ապա ա Kutool Excel- ի համար երկխոսության պատուհանը հայտնվում է, խնդրում ենք ընտրել տողի տիրույթը, որը դուք պետք է կրկնել յուրաքանչյուր տպման վերևում, բացառությամբ վերջին էջի, և այնուհետև կտտացրեք OK կոճակ Տեսեք,
Հետո այս աշխատաթերթի բոլոր էջերը տպվում են վերևում կրկնվող որոշակի շարքով, բացառությամբ վերջին էջի:
Առնչվող հոդվածներ:
- Ինչպե՞ս կրկնել բջիջի արժեքը, մինչև Excel- ում նոր արժեք տեսնեն կամ հասնեն:
- Ինչպե՞ս կրկնել նիշը Excel- ում բջիջում n անգամ:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: