Salt la conținutul principal

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ă. 
Descărcare gratuită
gratuit cu funcții complete în 30 de zile

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. Funcționează complet fără limitare în 30 de 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 de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii  |   VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar   |  Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule   |  Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente:  12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere

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!
Comments (9)
No ratings yet. Be the first to rate!
Neil
Neil
This comment was minimized by the moderator on the site
This doesn't appear to make a dynamic link, i.e., the value entered into the header doesn't change when the value of the cell does. So what is the purpose of the VBA code, when a copy/paste will do the same?
Reply
0
0
skyyang
skyyang     Neil
This comment was minimized by the moderator on the site
Hello, Neil,
If you want to link the cell value to the header or footer dynamically, please apply the following VBA code:

Note: You should insert the code into the sheet code not the normal Module.
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


Please have a try, hope it can help you
Reply
Report
0
0
DJ
DJ     skyyang
This comment was minimized by the moderator on the site
maksudnya bagaimana?
Reply
0
0
Dani
Dani
This comment was minimized by the moderator on the site
Hi,

This appears to only work once.
What if the value of the cell changes?
Is there a way to link the cell so the header changes when the cell value changes?

I have a workbook where I have three sheets.

Sheet 1 labeled "Deletion Sheet" - Sheet we send to the warehouse with info what to palatalize for the order
Sheet 2 labeled "OA" - My order acknowledgement to the customer which pulls most of the data from the first sheet including the Order number which I need to have in my header. So I am trying to link the Header to the cell in this page with the order number (F5) which gets it's value from (C7) in the first work sheet ("Deletion Sheet")
Sheet 3 labeled "Invoice - Invoice which also pulls most of the same information from the first sheet which would also need the header to include the value (F5) of this sheet taken from (C7) in "Deletion Sheet"
Reply
0
0
Mickey
Mickey
This comment was minimized by the moderator on the site
When using your "VBA code: put a specified cell value in header of all worksheets", I would like the value placed to be formatted: Tahoma, bold, in font size 12.
How can this be added to your code?
Reply
0
0
Claire
Claire
This comment was minimized by the moderator on the site
Hi There, Is there a way that you can add a cell value which takes account of applied filters? For example... A1 = Monday A2 = Tuesday A3 = Wednesday. Using the VBA code to display cell A1 will work initially, but once I apply a filter on days of the week, the "top" cell value is no longer A1. Is there a way to pick up the variable? Many thanks,
Reply
0
0
saeid mohammadi
saeid mohammadi
This comment was minimized by the moderator on the site
I want to insert four cells in header.This VB is only for one cell. How can I do it. Thanks
Reply
0
0
Ridhwan
Ridhwan     saeid mohammadi
This comment was minimized by the moderator on the site
You can try Concatenating the value of rht four cells into a single cell and then use the single cell as the header.
Reply
0
0
Jeffrey Hulbert
Jeffrey Hulbert
This comment was minimized by the moderator on the site
I needed to insert an active payroll date range into multiple sheets. The user opens the Payroll Date sheet, enters the date range and before she prints it updates all the sheets in the workbook. Here is how I am able to insert multiple cells into the range with a bit less code 2010 compatible: Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim WorkRng As Range On Error Resume Next For Each ws In Application.ActiveWorkbook.Worksheets ws.PageSetup.RightHeader = Range("'Payroll Date'!A1").Value & vbCr & Range("'Payroll Date'!A2").Value Next End Sub
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations