Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս տեղադրել Excel- ում էջի համարը բջջի / վերնագրի / տողատակի մեջ:

Excel ֆայլ տպելիս ձեզ հարկավոր է էջերի համարները ներդնել էջերի մեջ ՝ տպագիր ֆայլը կոկիկ և ընթեռնելի դարձնելու համար: Այս հոդվածում ես կներկայացնեմ մի քանի արագ հնարքներ ՝ էջի համարները ձեր համար բջիջում, վերնագրում կամ տողատակում տեղադրելու համար:

Տեղադրեք էջի համարը վերնագրում / էջատակում մեկ աշխատանքային թերթում

Տեղադրեք էջի համարը վերնագրում / էջատակում բազմաթիվ աշխատանքային թերթերի միջև

Տեղադրեք էջի համարը VBA կոդով բջիջ

Excel- ում միանգամից հեռացրեք բոլոր էջերի համարները


նետ կապույտ աջ պղպջակ Տեղադրեք էջի համարը վերնագրում / էջատակում մեկ աշխատանքային թերթում

Սովորաբար, մենք կարող ենք էջի համարները արագ ներդնել վերնագրի կամ տողատակի մեջ ՝ օգտագործելով Վերնագիր և էջատակ գործառույթը, խնդրում ենք կատարել հետևյալը.

1, Անցեք աշխատանքային թերթիկ, որը ցանկանում եք էջի համարները տեղադրել վերնագրի կամ տողատակերի մեջ:

2. Այնուհետեւ կտտացրեք Տեղադրել > Վերնագիր և էջատակ, և ձեր աշխատաթերթը կլինի Page Layout դիտել, տես նկարի նկարը.

փաստաթուղթ տեղադրեք էջի համարները 1

3, Կտտացրեք վերնագրին կամ էջատակին, որտեղ ցանկանում եք տեղադրել էջի համարը, այնուհետև a Դիզայն ներդիրով հետ Header & Footer գործիքներ ցուցադրվում է ժապավենի մեջ, ապա կտտացրեք Դիզայն > Էջի համարը, տես նկարի նկարը.

փաստաթուղթ տեղադրեք էջի համարները 2

4, Եվ դուք կարող եք տեսնել տեղապահին & [Էջ] հայտնվեք ընտրված բաժնում, ապա կտտացրեք որևէ տեղ վերնագրի կամ ստորոտի հատվածից դուրս `էջի համարները ցուցադրելու համար: Տեսեք,

փաստաթուղթ տեղադրեք էջի համարները 3

5, Այժմ, սեղմելով, կարող եք վերադառնալ սովորական տեսքին Դիտել > սովորական, և երբ տպեք այս աշխատանքային թերթը, կտեսնեք, որ էջի համարները տեղադրված են ձեր ընտրած վերնագրի կամ տողատակերի մեջ:

ՆշումԵթե ​​ուզում եք, որ էջի համարները ցուցադրվեն որպես 1-ից 15-ը, 2-ից 15-ը, պարզապես անհրաժեշտ է ուղղակիորեն մուտքագրել սա & [Էջ] -ը և [Էջերը] վերնագրի կամ ստորոտի դաշտի տուփի մեջ, տես նկարի նկարը.

փաստաթուղթ տեղադրեք էջի համարները 4


նետ կապույտ աջ պղպջակ Տեղադրեք էջի համարը վերնագրում / էջատակում բազմաթիվ աշխատանքային թերթերի միջև

Վերը նշված մեթոդը կարող է օգնել էջերի համարները տեղադրել մեկ աշխատանքային թերթի մեջ, եթե ուզում եք էջի համարները ներդնել աշխատանքային գրքի բոլոր աշխատաթերթերի մեջ, որպեսզի բոլոր էջերը համարակալվեն հաջորդական կարգով, խնդրում ենք արեք հետևյալ կերպ.

1. Ընտրեք թերթի բոլոր ներդիրները, ապա անցեք այստեղ Page Layout էջանիշը և կտտացրեք Երկխոսության տուփի գործարկման կոճակ պատկերասրահում Page Setup խումբ, տե՛ս սքրինշոթը.

փաստաթուղթ տեղադրեք էջի համարները 5

2, Մեջ Page Setup երկխոսության տուփ, սեղմեք Վերնագիր / էջատակ էջանշանը, ապա սեղմեք Պատվերով վերնագիր or Պատվերով ստորագիր գնալու համար ցանկալի վերնագիր կամ տողատակ դնելու համար տես նկարի նկարը.

փաստաթուղթ տեղադրեք էջի համարները 6

3. Եվ է Գլխավայր ցատկ or Google Խմբերի սկզբնական էջ երկխոսության տուփ, խնդրում ենք սահմանել այն վայրը, որտեղ տեղադրվում են էջերի համարները ՝ կտտացնելով ներսից Ձախ հատված:, Կենտրոնի բաժին.Կամ Աջ բաժին. վանդակը, որքան անհրաժեշտ է, ապա կտտացրեք Տեղադրեք էջի համարը պատկերակ և տեղապահ & [Էջ] հայտնվում է. Տեսեք,

փաստաթուղթ տեղադրեք էջի համարները 7

Նշում: Մուտքագրեք սա & [Էջ] -ը և [Էջերը] վերնագրի կամ ստորոտի դաշտի տուփի մեջ, եթե ցանկանում եք էջի համարները, որոնք ցուցադրվում են 1-ից 45-ը, 2-ից 45-ը…

4. Այնուհետեւ կտտացրեք OK > OK երկխոսության տուփերը փակելու համար, երբ այս աշխատանքային գիրքը տպում ես, տպման նախադիտում կտեսնես, որ էջի բոլոր համարները հաջորդականությամբ տեղադրվում են վերնագրի կամ տողատակի մեջ:


նետ կապույտ աջ պղպջակ Տեղադրեք էջի համարը VBA կոդով բջիջ

Ձեզ համար հեշտ է էջի համարները ներդիրի վերնագիր կամ տողատակ դնել, բայց, եթե անհրաժեշտ է էջի համարները ներդնել աշխատաթերթի բջիջի մեջ, դա անելու համար ուղղակի միջոց չկա: Հաջորդ VBA կոդը կարող է օգնել ձեզ լուծել այս խնդիրը:

1, Կտտացրեք այն բջիջին, որտեղ ցանկանում եք ցուցադրել այս բջիջի էջի համարը:

2, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

3: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Տեղադրեք ընթացիկ էջի համարը բջիջում.

Sub pagenumber()
'updateby Extendoffice 20160506
    Dim xVPC As Integer
    Dim xHPC As Integer
    Dim xVPB As VPageBreak
    Dim xHPB As HPageBreak
    Dim xNumPage As Integer
    xHPC = 1
    xVPC = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        xHPC = ActiveSheet.HPageBreaks.Count + 1
    Else
        xVPC = ActiveSheet.VPageBreaks.Count + 1
    End If
    xNumPage = 1
    For Each xVPB In ActiveSheet.VPageBreaks
        If xVPB.Location.Column > ActiveCell.Column Then Exit For
        xNumPage = xNumPage + xHPC
    Next
    For Each xHPB In ActiveSheet.HPageBreaks
        If xHPB.Location.Row > ActiveCell.Row Then Exit For
        xNumPage = xNumPage + xVPC
    Next
    ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

4, Դրանից հետո սեղմեք F5 այս կոդը գործարկելու համար ստեղնը, և այս բջիջի էջի համարը ցուցադրվում է ընտրված խցում, տես նկարի նկարը.

փաստաթուղթ տեղադրեք էջի համարները 8


նետ կապույտ աջ պղպջակ Excel- ում միանգամից հեռացրեք բոլոր էջերի համարները

Էջի բոլոր համարները հեռացնելու համար կարող եք կիրառել հետևյալ քայլերը.

1, Ընտրեք թերթի բոլոր ներդիրները և անցեք այն Page Layout էջանիշը ժապավենի վրա, ապա կտտացրեք Երկխոսության տուփի գործարկման կոճակ պատկերասրահում Page Setup խումբ, տե՛ս սքրինշոթը.

փաստաթուղթ տեղադրեք էջի համարները 9

2, Մեջ Page Setup երկխոսության վանդակում, սեղմեք Վերնագիր / էջատակ էջանիշը, ապա ընտրեք (None) - ից Գլխավայր ցատկ or Google Խմբերի սկզբնական էջ բացվող ցուցակ, տես նկարի նկարը.

փաստաթուղթ տեղադրեք էջի համարները 10

3. Այնուհետեւ կտտացրեք OK կոճակը, էջի բոլոր համարները միանգամից հանվում են աշխատանքային գրքից:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:

 

Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hay forma de convertir esta sub en una función?
This comment was minimized by the moderator on the site
Hola,el codigo si me funciono, sin embargo al momento de imprimir, siempre me sale 1 de 5 y es que mi encabezado lo tengo como área de impresión en todas mis paginas, ¿hay alguna forma de lograr que al momento de imprimir, se pueda cambiar la pagina, en la misma pestaña?
This comment was minimized by the moderator on the site
May I know how I should modify above VBA that allows me to execute this to range of cells on a workbook and with 1 short cut key to apply all selected cells?
This comment was minimized by the moderator on the site
May I know if I have range of cells that I want to put in page numbers, what should I change? The current VBA only allows me to change one by one.
This comment was minimized by the moderator on the site
terima kasih, kawan
This comment was minimized by the moderator on the site
Hola, hay un error en la formula porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. Solo hace el conteo de páginas el segundo valor. Podrian revisar... Gracias
This comment was minimized by the moderator on the site
I tried the VBA macro, but I'm getting a subscript out of range error... Did I do something wrong?
This comment was minimized by the moderator on the site
Hello I used the Insert page number into cell with VBA code above and it works a charm. My sheet could be either 2 pages long (2 down and 1 across), 4 pages long (2 down and 2 across) or 6 pages long (2 down and 3 across). I have inserted the code in each cell of the 6 that require page number to be printed (by selecting the cells each in turn and running the VBA), cell addresses are H1, H35, T1, T35, AF1, AF35. Now I would like to add a button to refresh these page numbers without affecting whichever cell may be active when the relevant user may choose to run it, currently I have to select each cell in turn again and run the VBA :( Assistance would be hugely appreciated! Antoinette
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations