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

Sut i roi gwerth celloedd mewn pennawd / troedyn yn Excel?

Gallwn fewnosod pennawd neu droedyn sy'n cynnwys llwybr ffeil, enw ffeil, dyddiad cyfredol neu wybodaeth arall gyda nodwedd Excel yn hawdd, ond, weithiau, rydym am ddefnyddio gwerth cell fel y pennawd neu'r troedyn yn Excel. Sut allwn ni roi cynnwys cell mewn pennawd neu droedyn yn y llyfr gwaith?

Rhowch werth celloedd ym mhennyn neu droedyn taflen waith gyda chod VBA

Rhowch werth celloedd ym mhennyn neu droedyn yr holl daflenni gwaith gyda chod VBA

Mewnosod gwybodaeth ffeil yn y pennawd / troedyn gyda Kutools ar gyfer Excel syniad da3


Os ydych chi am roi cynnwys cell ym mhennyn neu droedyn y daflen waith gyfredol, gall y cod VBA canlynol eich helpu chi. Gwnewch fel y camau canlynol:

1. Gweithredwch eich taflen waith yr ydych am fewnosod herder neu droedyn â gwerth cell, yna daliwch y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

2. Clic Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: rhowch werth cell penodedig ym mhennyn taflen waith

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. Yna pwyswch F5 yn allweddol i redeg y cod hwn, bydd deialog yn popio allan i'ch atgoffa o ddewis cell rydych chi am roi ei chynnwys yn y pennawd.doc-insert-cell-gwerth-i-bennawd1

4. Ac yna cliciwch OK, mae'r gwerth cell penodedig hwn wedi'i fewnosod ym mhennyn chwith cyfredol y daflen waith. Gallwch weld y pennawd trwy glicio ffeil > print. Gweler y screenshot:doc-insert-cell-gwerth-i-bennawd1

Nodiadau:

1. Os ydych chi am ddefnyddio cynnwys y gell fel troedyn y daflen waith weithredol, gallwch gymhwyso'r cod hwn:

Cod VBA: rhowch werth cell penodol yn nhroedyn taflen waith

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. Gallwch hefyd gymhwyso'r codau uchod ar gyfer mewnosod gwerth celloedd i'r pennawd / troedyn cywir neu bennawd / troedyn y ganolfan, dim ond disodli'r ChwithHeader / ChwithFooter gyda CywirHeader / Troedyn Dde or Pennaeth y Ganolfan / CenterFooter yn y codau.


Weithiau, rydych chi am fewnosod pennawd neu droedyn gyda chynnwys cell ddethol i holl daflenni gwaith eich llyfr gwaith agoriadol, gyda'r cod uchod, mae angen i chi eu hailadrodd dro ar ôl tro. Yn yr achos hwn, gall y cod VBA canlynol ychwanegu cynnwys y gell at herder neu droedyn y llyfr gwaith cyfan ar unwaith.

1. Gweithredwch eich llyfr gwaith yr ydych am ei fewnosod herder neu droedyn gyda gwerth cell, yna daliwch y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: rhowch werth celloedd penodol yn nhroedyn yr holl daflenni gwaith

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. Yna pwyswch F5 yn allweddol i weithredu'r cod hwn, bydd deialog yn popio allan i'ch atgoffa o ddewis cell rydych chi am roi ei chynnwys yn nhroedyn y llyfr gwaith cyfan.

doc-insert-cell-gwerth-i-bennawd1

4. Ac yna cliciwch OK, mae'r gwerth celloedd dethol hwn wedi'i ychwanegu at droedyn chwith pob un o'r taflenni gwaith. Gallwch weld y troedyn trwy glicio ffeil > print. Gweler y screenshot:

doc-insert-cell-gwerth-i-bennawd1

Nodiadau:

1. Os ydych chi am ddefnyddio'r cynnwys celloedd fel pennawd y llyfr gwaith cyfan, gallwch gymhwyso'r cod hwn:

Cod VBA: rhowch werth cell penodedig ym mhennyn yr holl daflenni gwaith

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. Amnewid RightHeader / Troedyn or CenterHeader / Troedyn ar gyfer LeftHeader / Troedyn yn y codau uchod os ydych chi am i'ch pennawd neu'ch troedyn fod mewn sefyllfa wahanol.


Os ydych chi am fewnosod gwybodaeth ffeiliwr i bennawd neu droedyn, fel enw taflen waith / llyfr gwaith, llwybr llyfr gwaith ac ati, gallwch ei ddefnyddio Kutools ar gyfer Excel'S Mewnosod Gwybodaeth Llyfr Gwaith cyfleustodau os ydych wedi gosod Kutools ar gyfer Excel.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel y nodir isod:

1. Cliciwch Kutools Byd Gwaith > Llyfr Gwaith > Mewnosod Gwybodaeth Llyfr Gwaith. Gweler y screenshot:
doc kte 1

2. Yn y Mewnosod Gwybodaeth Llyfr Gwaith deialog, gwiriwch y wybodaeth y mae angen i chi ei mewnosod o dan gwybodaeth adran, a gwirio Pennawd or Troedyn fel y dymunwch.

Tip: gallwch fewnosod y wybodaeth mewn tri lleoliad pennawd neu droedyn: canol, chwith neu dde.
mewnosoder llwybr llyfr gwaith 1

3. Cliciwch Ok. Yna gallwch chi fynd i Gweld > Layout Tudalen i weld y pennawd.
doc kte 3

Gyda Mewnosod Gwybodaeth Llyfr Gwaith, gallwch hefyd fewnosod gwybodaeth ffeil mewn cell neu ystod o gelloedd. Cliciwch yma i wybod mwy am y cyfleustodau hwn.



Awgrym.Os ydych chi eisiau rhannu llyfr gwaith yn gyflym yn nifer o lyfrau gwaith / ffeiliau pdf neu ffeiliau csv ar wahân, ceisiwch ddefnyddio'r Kutools ar gyfer Excel's Llyfr Gwaith Hollti fel y dangosir yn y sgrin ganlynol. Mae'n swyddogaeth lawn heb gyfyngiad mewn 30 diwrnod, lawrlwythwch a chael treial am ddim nawr.

llyfr gwaith rhaniad doc

Erthyglau cysylltiedig:

Sut i fewnosod enw neu lwybr ffeil yng nghell / pennawd neu droedyn yn Excel?

Sut i fewnosod a dileu pennawd, troedyn, a llun pennawd yn Excel?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (8)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Roedd angen i mi fewnosod amrediad dyddiadau cyflogres gweithredol mewn dalennau lluosog. Mae'r defnyddiwr yn agor y daflen Dyddiad Cyflogres, yn nodi'r ystod dyddiadau a chyn iddi ei hargraffu mae'n diweddaru'r holl daflenni yn y llyfr gwaith. Dyma sut ydw i'n gallu mewnosod celloedd lluosog yn yr ystod gyda chod ychydig yn llai 2010 gydnaws: Is-Preifat Workbook_BeforePrint(Canslo Fel Boolean) Dim WorkRng Fel Ystod Ar Gwall Ail-ddechrau Nesaf Ar gyfer Pob ws Yn Application.ActiveWorkbook.Worksheets ws.PageSetup. RightHeader = Ystod ("'Dyddiad Cyflogres'!A1").Gwerth & vbCr & Ystod ("'Dyddiad Cyflogau'!A2"). Gwerth Nesaf Diwedd Is
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am fewnosod pedair cell yn header.This VB ar gyfer un gell yn unig. Sut alla i ei wneud. Diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gallwch geisio Cydgatenu gwerth rht pedwar cell yn un gell ac yna defnyddio'r gell sengl fel y pennawd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Yno, A oes unrhyw ffordd y gallwch ychwanegu gwerth cell sy'n ystyried hidlwyr cymhwysol? Er enghraifft... A1 = Dydd Llun A2 = Dydd Mawrth A3 = Dydd Mercher. Bydd defnyddio'r cod VBA i arddangos cell A1 yn gweithio i ddechrau, ond ar ôl i mi gymhwyso hidlydd ar ddiwrnodau'r wythnos, nid yw'r gwerth celloedd "uchaf" bellach yn A1. A oes ffordd i godi'r newidyn? Diolch yn fawr,
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Wrth ddefnyddio'ch "Cod VBA: rhowch werth cell penodedig ym mhennyn pob taflen waith", hoffwn i'r gwerth a osodwyd gael ei fformatio: Tahoma, print trwm, mewn maint ffont 12.
Sut y gellir ychwanegu hyn at eich cod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,

Ymddengys mai dim ond unwaith y bydd hyn yn gweithio.
Beth os bydd gwerth y gell yn newid?
A oes ffordd i gysylltu'r gell fel bod y pennawd yn newid pan fydd gwerth y gell yn newid?

Mae gen i lyfr gwaith lle mae gen i dair tudalen.

Dalen 1 wedi'i labelu "Taflen Dileu" - Dalen rydyn ni'n ei hanfon i'r warws gyda gwybodaeth beth i'w flasu ar gyfer yr archeb
Taflen 2 wedi'i labelu "OA" - Fy nghydnabyddiaeth archeb i'r cwsmer sy'n tynnu'r rhan fwyaf o'r data o'r ddalen gyntaf gan gynnwys y rhif Archeb y mae angen i mi ei gael yn fy mhennawd. Felly rwy'n ceisio cysylltu'r Pennawd i'r gell yn y dudalen hon gyda'r rhif archeb (F5) sy'n cael ei werth o (C7) yn y daflen waith gyntaf ("Taflen Ddileu")
Dalen 3 wedi'i labelu "Anfoneb - Anfoneb sydd hefyd yn tynnu'r rhan fwyaf o'r un wybodaeth o'r ddalen gyntaf a fyddai hefyd angen y pennawd i gynnwys gwerth (F5) y ddalen hon a gymerwyd o (C7) yn "Taflen Ddileu"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'n ymddangos bod hyn yn gwneud cyswllt deinamig, hy, nid yw'r gwerth a roddir yn y pennawd yn newid pan fydd gwerth y gell yn newid. Felly beth yw pwrpas y cod VBA, pan fydd copi / past yn gwneud yr un peth?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Neil,
Os ydych chi am gysylltu gwerth y gell â'r pennawd neu'r troedyn yn ddeinamig, cymhwyswch y cod VBA canlynol:

Nodyn: Dylech fewnosod y cod yn y cod dalen nid y Modiwl arferol.
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


Rhowch gynnig arni, gobeithio y gall eich helpu
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir