Note: The other languages of the website are Google-translated. Back to English

Cum se pune valoarea celulei în antet / subsol în Excel?

Putem insera cu ușurință antetul sau subsolul care conține calea fișierului, numele fișierului, data curentă sau alte informații cu caracteristica Excel, dar, uneori, dorim să folosim o valoare a celulei ca antet sau subsol în Excel. Cum putem pune conținutul unei celule în antet sau subsol în registrul de lucru?

Puneți valoarea celulei în antetul sau subsolul unei foi de lucru cu cod VBA

Puneți valoarea celulei în antetul sau subsolul tuturor foilor de lucru cu cod VBA

Introduceți informații despre fișier în antet / subsol cu ​​Kutools pentru Excel idee bună3


Dacă doriți să plasați un conținut de celulă în antetul sau subsolul foii de lucru curente, următorul cod VBA vă poate ajuta. Vă rugăm să efectuați următorii pași:

1. Activați-vă foaia de lucru pe care doriți să o inserați cu ajutorul unei valori de celulă, apoi țineți apăsat butonul ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

2.Clic Insera > Moduleși lipiți următorul cod în fereastra modulului.

Cod VBA: puneți o valoare specificată a celulei în antetul unei foi de lucru

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. Apoi apăsați F5 pentru a rula acest cod, va apărea o casetă de dialog pentru a vă reaminti să selectați o celulă pe care doriți să o introduceți în antet.doc-insert-cell-value-to-header1

4. Apoi faceți clic pe OK, această valoare specificată a celulei a fost inserată în antetul stânga al foii de lucru curente. Puteți vizualiza antetul făcând clic pe Fișier > . Vedeți captura de ecran:doc-insert-cell-value-to-header1

note:

1. Dacă doriți să utilizați conținutul celulei ca subsol al foii de lucru active, puteți aplica acest cod:

Cod VBA: puneți o valoare specificată a celulei în subsolul unei foi de lucru

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. De asemenea, puteți aplica codurile de mai sus pentru inserarea valorii celulei în antetul / subsolul din dreapta sau antetul / subsolul din centru, doar înlocuiți Antet stânga / LeftFooter cu RightHeader / Subsolul din dreapta or CenterHeader / CenterFooter în coduri.


Uneori, doriți să inserați antet sau subsol cu ​​conținutul unei celule selectate în toate foile de lucru din registrul de lucru de deschidere, cu codul de mai sus, trebuie să le repetați de nenumărate ori. În acest caz, următorul cod VBA poate adăuga simultan conținutul celulei la păstorul sau subsolul întregului registru de lucru.

1. Activați-vă registrul de lucru pe care doriți să îl inserați cu ajutorul unei valori de celulă, apoi țineți apăsat butonul ALT + F11 tastele și deschide fișierul Fereastra Microsoft Visual Basic pentru aplicații.

2. Clic Insera > Moduleși lipiți următorul cod în Fereastra modulului.

Cod VBA: puneți o valoare specificată a celulei în subsolul tuturor foilor de lucru

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. Apoi apăsați F5 tasta pentru a executa acest cod, va apărea un dialog pentru a vă reaminti să selectați o celulă pe care doriți să o introduceți în subsolul întregului registru de lucru.

doc-insert-cell-value-to-header1

4. Apoi faceți clic pe OK, această valoare selectată a celulei a fost adăugată la toate subsolurile din stânga fișelor de lucru. Puteți vizualiza subsolul făcând clic pe Fișier > . Vedeți captura de ecran:

doc-insert-cell-value-to-header1

note:

1. Dacă doriți să utilizați conținutul celulei ca antet al întregului registru de lucru, puteți aplica acest cod:

Cod VBA: puneți o valoare specificată a celulei în antetul tuturor foilor de lucru

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. Înlocuitor RightHeader / Footer or CenterHeader / Footer pentru LeftHeader / Footer în codurile de mai sus dacă doriți ca antetul sau subsolul dvs. să fie poziționate diferit.


Dacă doriți să inserați informații despre filer în antet sau subsol, cum ar fi numele foii de lucru / registrului de lucru, calea registrului de lucru etc., puteți utiliza Kutools pentru Excel'S Introduceți informații despre registrul de lucru utilitar dacă ați instalat Kutools pentru Excel.

Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. 

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. clic Kutools Plus > Workbook > Introduceți informații despre registrul de lucru. Vedeți captura de ecran:
documentul 1

2. În Introduceți informații despre registrul de lucru caseta de dialog, verificați informațiile pe care trebuie să le introduceți în Informații secțiune și verificați Antet or Subsol cum doriți.

Sfat: puteți introduce informațiile în trei locații ale antetului sau subsolului: centru, stânga sau dreapta.
doc inserați calea registrului de lucru 1

3. clic Ok. Apoi puteți merge la Vizualizare > Pagina Aspect pentru a vizualiza antetul.
documentul 3

Cu Insert Insert Workbook Information, puteți, de asemenea, să inserați informații despre fișier într-o celulă sau într-o gamă de celule. Faceți clic aici pentru a afla mai multe despre acest utilitar.



Bacsis.Dacă doriți să împărțiți rapid un registru de lucru în mai multe cărți de lucru / fișiere pdf sau fișiere CSV separat, vă rugăm să încercați să utilizați Kutools pentru Excel Carnet de lucru divizat așa cum se arată în următoarea captură de ecran. Este o funcție completă, fără limitări în 30 zile, vă rugăm să descărcați și să aveți o încercare gratuită acum.

documentul de lucru divizat

Legate de articole:

Cum se introduce numele fișierului sau calea în celulă / antet sau subsol în Excel?

Cum se introduce și se șterge antetul, subsolul și imaginea antetului în Excel?


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (9)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Trebuia să inserez un interval de date de salarizare activ în mai multe foi. Utilizatorul deschide foaia Data salariilor, introduce intervalul de date și înainte de a imprima, actualizează toate foile din registrul de lucru. Iată cum pot să inserez mai multe celule în interval cu un cod mai puțin compatibil cu 2010: Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim WorkRng As Range On Error Resume Next For Each ws În Application.ActiveWorkbook.Worksheets ws.PageSetup. RightHeader = Interval ("'Data salarizare'!A1").Valoare & vbCr & Interval ("'Data salarizare'!A2").Valoare Next End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vreau să inserez patru celule în antet. Acest VB este doar pentru o celulă. Cum pot să o fac. Mulțumiri
Acest comentariu a fost redus la minimum de moderatorul de pe site
Puteți încerca să concatenați valoarea a patru celule rht într-o singură celulă și apoi să utilizați o singură celulă ca antet.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună ziua, Există vreo modalitate prin care puteți adăuga o valoare a celulei care ține cont de filtrele aplicate? De exemplu... A1 = luni A2 = marți A3 = miercuri. Folosirea codului VBA pentru a afișa celula A1 va funcționa inițial, dar odată ce aplic un filtru în zilele săptămânii, valoarea celulei „de sus” nu mai este A1. Există vreo modalitate de a prelua variabila? Mulţumesc mult,
Acest comentariu a fost redus la minimum de moderatorul de pe site
Când folosiți „Codul VBA: puneți o valoare a celulei specificate în antetul tuturor foilor de lucru”, aș dori ca valoarea plasată să fie formatată: Tahoma, bold, cu dimensiunea fontului 12.
Cum se poate adăuga acest lucru la codul tău?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună,

Acest lucru pare să funcționeze o singură dată.
Ce se întâmplă dacă valoarea celulei se modifică?
Există o modalitate de a lega celula astfel încât antetul să se schimbe atunci când valoarea celulei se schimbă?

Am un registru de lucru în care am trei foi.

Fișa 1 etichetată „Foaie de ștergere” - Fișa pe care o trimitem la depozit cu informații despre ce să palatalizam pentru comandă
Fișa 2 etichetată „OA” - Confirmarea comenzii mele către client, care extrage majoritatea datelor din prima foaie, inclusiv numărul comenzii pe care trebuie să-l am în antet. Așa că încerc să conectez antetul la celula din această pagină cu numărul comenzii (F5), care își primește valoarea de la (C7) în prima foaie de lucru („Foaie de ștergere”)
Foaia 3 etichetată „Factură - Factură care extrage, de asemenea, majoritatea aceleași informații din prima foaie, care ar avea nevoie și de antet pentru a include valoarea (F5) a acestei foi luate din (C7) în „Foaie de ștergere”
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru nu pare să creeze o legătură dinamică, adică valoarea introdusă în antet nu se schimbă atunci când se schimbă valoarea celulei. Deci, care este scopul codului VBA, când un copy/paste va face același lucru?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Neil,
Dacă doriți să legați dinamic valoarea celulei la antet sau subsol, aplicați următorul cod VBA:

notițe: Ar trebui să introduceți codul în codul foii, nu în modulul normal.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRng As Range
Dim xStR As String
On Error Resume Next
xStR = "A1" '
Set WorkRng = Intersect(Application.ActiveSheet.Range("A1"), Target)
If WorkRng Is Nothing Then Exit Sub
Application.ActiveSheet.PageSetup.RightHeader = WorkRng.Range("A1").Value
End Sub


Vă rugăm să încercați, sper că vă poate ajuta
Acest comentariu a fost redus la minimum de moderatorul de pe site
maksudnya bagaimana?
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL