Ինչպե՞ս տեղադրել Excel- ի վերնագրի / էջատակի բջիջների արժեքը:
Մենք կարող ենք հեշտությամբ տեղադրել Excel- ի առանձնահատկության հետ ֆայլի ուղին, ֆայլի անունը, ընթացիկ ամսաթիվը կամ այլ տեղեկություններ պարունակող վերնագիր կամ տողատակ, բայց, երբեմն, մենք ցանկանում ենք օգտագործել Excel- ի վերնագիր կամ տողատակ `բջջային արժեք: Ինչպե՞ս կարող ենք աշխատանքային գրքում բջիջի պարունակությունը դնել վերնագրի կամ տողատակի մեջ:
Տեղադրեք բջջային արժեք VBA կոդով աշխատաթերթի վերնագրում կամ էջատակում
Տեղադրեք բջջային արժեքը VBA կոդով բոլոր աշխատաթերթերի վերնագրում կամ էջատակում
Տեղադրեք ֆայլի տեղեկատվությունը վերնագիր / էջատակ մեջ Kutools- ի համար Excel- ի համար
Տեղադրեք բջջային արժեք VBA կոդով աշխատաթերթի վերնագրում կամ էջատակում
Եթե ցանկանում եք բջջային բովանդակություն տեղադրել ընթացիկ աշխատանքային թերթի վերնագրում կամ էջատակում, հետևյալ VBA կոդը կարող է օգնել ձեզ: Խնդրում ենք արեք հետևյալ քայլերը.
1, Ակտիվացրեք ձեր աշխատաթերթը, որը ցանկանում եք տեղադրել բջջային արժեք ունեցող հերդեր կամ տողատակ, այնուհետև պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.
2.Սեղմել Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը Մոդուլի պատուհանում:
VBA կոդ. Աշխատանքային էջի վերնագրում դրեք նշված բջիջի արժեքը
Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub
3, Դրանից հետո սեղմեք F5 Այս կոդն աշխատեցնելու համար ստեղնաշար է, որից դուրս կգա երկխոսություն ՝ հիշեցնելով, որ ընտրելով այն բջիջը, որը ցանկանում եք դրա բովանդակությունը դնել վերնագրի մեջ:
4. Եվ այնուհետեւ կտտացրեք OK, այս նշված բջիջի արժեքը տեղադրվել է ընթացիկ աշխատանքային թերթի ձախ վերնագրի մեջ: Դուք կարող եք դիտել վերնագիրը կտտացնելով Ֆայլ > տպել, Տեսեք,
Նշումներ:
1. Եթե ցանկանում եք բջջային պարունակությունն օգտագործել որպես ակտիվ աշխատաթերթի տողատակ, կարող եք կիրառել այս կոդը.
VBA կոդ. Աշխատանքային էջի տողատակում տեղադրիր նշված բջիջի արժեքը
Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub
2. Կարող եք նաև կիրառել վերը նշված կոդերը `բջջային արժեքը աջ վերնագիր / էջատակ կամ կենտրոնական վերնագիր / էջատակ տեղադրելու համար, պարզապես փոխարինեք Ձախ ղեկավար / LeftFooter հետ RightHeader / RightFoter or Կենտրոնի ղեկավար / CenterFooter ծածկագրերում:
Տեղադրեք բջջային արժեքը VBA կոդով բոլոր աշխատաթերթերի վերնագրում կամ էջատակում
Երբեմն ուզում եք ձեր բացման աշխատանքային գրքի բոլոր աշխատաթերթերին վերնագիր կամ տողատակ մտցնել ընտրված բջիջի պարունակությամբ, վերը նշված կոդով, անհրաժեշտ է դրանք կրկնել անգամ ու կրկին: Այս դեպքում հետևյալ VBA կոդը կարող է բջջային պարունակությունը միանգամից ավելացնել ամբողջ աշխատանքային գրքի հովիվին կամ տողատակերին:
1, Ակտիվացրեք ձեր աշխատանքային գրքույկը, որը ցանկանում եք տեղադրել բջջային արժեք ունեցող հերդեր կամ տողատակ, ապա պահեք այն ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.
VBA կոդ. Բոլոր աշխատաթերթերի տողատակում տեղադրեք նշված բջիջի արժեքը
Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub
3, Դրանից հետո սեղմեք F5 Այս ծածկագիրը կատարելու համար բանալին դուրս կգա երկխոսություն ՝ հիշեցնելու համար այն բջիջը ընտրելու մասին, որը ցանկանում եք տեղադրել դրա բովանդակությունը ամբողջ աշխատանքային գրքի տողատակում:
4. Եվ այնուհետեւ կտտացրեք OK, այս ընտրված բջիջի արժեքը ավելացվել է բոլոր թերթերի ձախ տողատակին: Դուք կարող եք դիտել տողատակը ՝ կտտացնելով Ֆայլ > տպել, Տեսեք,
Նշումներ:
1. Եթե ցանկանում եք բջջային պարունակությունն օգտագործել որպես ամբողջ աշխատանքային գրքի վերնագիր, կարող եք կիրառել այս կոդը.
VBA կոդ. Բոլոր աշխատաթերթերի վերնագրում դրեք նշված բջիջի արժեքը
Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub
2. Փոխարինող RightHeader / Footer or CenterHeader / Footer համար LeftHeader / Footer վերոհիշյալ կոդերում, եթե ցանկանում եք ձեր վերնագիր կամ էջատակ այլ կերպ տեղակայված լինի:
Տեղադրեք ֆայլի տեղեկատվությունը վերնագիր / էջատակ մեջ Kutools- ի համար Excel- ի համար
Եթե ցանկանում եք վերնագրի կամ տողատակի մեջ տեղադրել ֆայլերի վերաբերյալ տեղեկություններ, ինչպիսիք են աշխատանքային թերթը / աշխատանքային գրքի անունը, աշխատանքային գրքի ուղին և այլն, կարող եք օգտագործել Excel- ի համար նախատեսված գործիքներ'S Տեղադրեք աշխատանքային գրքի տեղեկատվությունը օգտակար, եթե դուք տեղադրել եք Kutools Excel- ի համար:
Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: | ||
Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝
1: սեղմեք Kutools Plus > Աշխատանքային տետր > Տեղադրեք աշխատանքային գրքի տեղեկատվությունը, Տեսեք,
2. Մեջ Տեղադրեք աշխատանքային գրքի տեղեկատվությունը երկխոսություն, ստուգեք այն տեղեկատվությունը, որի տակ պետք է տեղադրեք Տեղեկատվություն բաժինը և ստուգել Գլխավայր ցատկ or Google Խմբերի սկզբնական էջ Ինչպես կամենաս.
Ձեր պատասխանը ուղարկված չէ: Դուք կարող եք տեղեկատվությունը զետեղել վերնագրի կամ էջատակի երեք վայրում `կենտրոնում, ձախում կամ աջում:
3: սեղմեք Ok, Հետո կարող ես գնալ Դիտել > Page Layout վերնագիրը դիտելու համար:
Տեղադրեք աշխատանքային գրքի տեղեկատվությունը, կարող եք նաև ֆայլի մասին տեղեկատվություն տեղադրել բջիջ կամ բջիջների շարք: Սեղմեք այստեղ ՝ այս օգտակար ծառայության մասին ավելին իմանալու համար:
Տեղադրեք աշխատանքային գրքի տեղեկությունները բջիջում / վերնագիր / էջատակ
Առնչվող հոդվածներ քանակը:
Ինչպե՞ս տեղադրել Excel- ում ֆայլի անունը կամ ուղին բջջի / վերնագրի կամ տողատակի մեջ:
Ինչպե՞ս տեղադրել և ջնջել վերնագրի, էջատակի և վերնագրի նկարը Excel- ում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: