Ինչպե՞ս Excel- ի աղյուսակի յուրաքանչյուր էջում կիրառել տարբեր վերնագրեր կամ տողատակեր:
Լռելյայնորեն, վերնագիր կամ էջատակ աշխատանքային էջի մեջ մտցնելիս վերնագրի կամ էջատակի բովանդակությունը կկիրառվի բոլոր էջերի վրա: Շատ մարդկանց համար տարբեր էջեր կարող են ունենալ տարբեր բովանդակություն իրենց աշխատաթերթերում: Եվ նրանք հակված են տարբերակել այս էջերը վերնագրի կամ տողատակի պարունակությամբ ՝ աշխատանքային թերթը տպելուց հետո: Ինչպե՞ս կիրառել աշխատաթերթի յուրաքանչյուր էջի վրա տարբեր վերնագրեր կամ տողատակեր: Այս հոդվածի մեթոդը կարող է օգնել ձեզ:
VBA կոդով յուրաքանչյուր էջում կիրառեք տարբեր վերնագրեր կամ էջատակ
VBA կոդով յուրաքանչյուր էջում կիրառեք տարբեր վերնագրեր կամ էջատակ
Հաջորդ VBA կոդը կարող է օգնել ձեզ աշխատանքային էջի յուրաքանչյուր էջում կիրառել տարբեր վերնագրեր կամ տողատակեր: Խնդրում եմ արեք հետևյալ կերպ.
1. Սեղմեք ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic կիրառման համարs պատուհանը:
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Դրանից հետո պատճենեք և տեղադրեք ներքևում նշված VBA կոդը ՝ Կոդ պատուհան Տեսեք,
VBA կոդ. 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
Notes:
3. Սեղմեք F5 ծածկագիրը գործելու համար: Հետո Preview պատուհանը հայտնվում է, խնդրում ենք սեղմել տպել կոճակը ՝ էջերը տարբեր վերնագրերով կամ ստորագիրներով տպելու համար:
ՆշումԵթե աշխատաթերթում կա 4 նշված տպագիր էջ, ապա հարկավոր է սեղմել այն տպել չորս անգամ կոճակ ՝ ամբողջ տպումն ավարտելու համար:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: