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

Hogyan helyezzük el a cellák értékét az Excel fejlécében / láblécében?

Könnyen beilleszthetjük a fejlécet vagy a láblécet, amely tartalmazza a fájl elérési útját, a fájl nevét, az aktuális dátumot vagy más információkat az Excel szolgáltatásával, de néha egy cellaértéket szeretnénk használni fejlécként vagy láblécként az Excelben. Hogyan tehetjük egy cella tartalmát a munkafüzet fejlécébe vagy láblécébe?

Helyezze a cellaértéket egy VBA kóddal ellátott munkalap fejlécébe vagy láblécébe

Helyezze a cellaértéket az összes VBA kóddal ellátott munkalap fejlécébe vagy láblécébe

Helyezze be a fájl adatait a fejlécbe / láblécbe a Kutools for Excel alkalmazással jó ötlet3


Ha cellatartalmat szeretne elhelyezni az aktuális munkalap fejlécébe vagy láblécébe, a következő VBA-kód segíthet. Kérjük, tegye a következőket:

1. Aktiválja azt a munkalapot, amelybe cellatartalommal be akarja illeszteni a pókhálót vagy a láblécet, majd tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2.Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.

VBA-kód: tegyen egy megadott cellaértéket egy munkalap fejlécébe

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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, megjelenik egy párbeszédpanel, amely emlékeztet arra, hogy olyan cellát válasszon, amelynek tartalmát a fejlécbe kívánja helyezni.doc-insert-cell-value-to-header1

4. Kattintson a gombra OK, ez a megadott cellaérték beillesztésre került az aktuális munkalap bal fejlécébe. A fejlécre kattintva megtekintheti filé > . Lásd a képernyőképet:doc-insert-cell-value-to-header1

Megjegyzések:

1. Ha a cellatartalmat az aktív munkalap lábléceként szeretné használni, alkalmazhatja ezt a kódot:

VBA kód: tegyen egy megadott cellaértéket egy munkalap láblécébe

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. A fenti kódokat alkalmazhatja a cellaérték beszúrásához a jobb fejlécbe / láblécbe vagy a középső fejlécbe / láblécbe, csak cserélje ki a BalHeader / Left Footer val vel Jobb fej / RightFooter or CenterHeader / Center Footer a kódokban.


Előfordulhat, hogy a kiválasztott cellatartalommal rendelkező fejlécet vagy láblécet be akarja illeszteni a nyitó munkafüzet összes munkalapjába a fenti kóddal, ezeket újra és újra meg kell ismételnie. Ebben az esetben a következő VBA-kód adhatja hozzá a cellatartalmat a teljes munkafüzet pókhálójához vagy láblécéhez egyszerre.

1. Aktiválja azt a munkafüzetet, amelybe egy cellás értékkel be akarja illeszteni a pókert vagy a láblécet, majd tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA kód: adjon meg egy megadott cellaértéket az összes munkalap láblécébe

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. Ezután nyomja meg a gombot F5 kulcsa ennek a kódnak a végrehajtásához, megjelenik egy párbeszédpanel, amely emlékeztet arra, hogy kiválaszt egy cellát, amelyet annak tartalmával az egész munkafüzet láblécébe szeretne tenni.

doc-insert-cell-value-to-header1

4. Kattintson a gombra OK, ez a kiválasztott cellaérték hozzáadásra került a munkalapok összes bal láblécéhez. A láblécet kattintva megtekintheti filé > . Lásd a képernyőképet:

doc-insert-cell-value-to-header1

Megjegyzések:

1. Ha a cellatartalmat a teljes munkafüzet fejléceként szeretné használni, alkalmazhatja ezt a kódot:

VBA kód: adjon meg egy megadott cellaértéket az összes munkalap fejlécébe

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. Póttag Jobbfejléc / lábléc or CenterHeader / Footer mert LeftHeader / Footer a fenti kódokban, ha a fejlécet vagy a láblécet másképp szeretné elhelyezni.


Ha be szeretné illeszteni a reszelő információkat a fejlécbe vagy a láblécbe, például a munkalap / munkafüzet nevét, a munkafüzet elérési útját és így tovább, használhatja Kutools az Excel számára'S Helyezze be a munkafüzet adatait segédprogram, ha telepítette a Kutools for Excel programot.

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Után ingyenes telepítés Kutools for Excel, kérjük, tegye az alábbiak szerint:

1. kettyenés Kutools Plus > Munkafüzet > Helyezze be a munkafüzet adatait. Lásd a képernyőképet:
doki kte 1

2. Ban,-ben Helyezze be a munkafüzet adatait párbeszédpanelen ellenőrizze a beillesztendő információkat Információ szakaszban, és ellenőrizze Fejléc or Lábléc ahogy szeretnéd.

Tipp: az információkat a fejléc vagy a lábléc három helyére illesztheti be: középre, balra vagy jobbra.
doc beszúrja a munkafüzet elérési útját 1

3. kettyenés Ok. Akkor mehet Megnézem > Page Layout a fejléc megtekintéséhez.
doki kte 3

A Munkafüzet-információk beillesztésével fájlinformációkat is beilleszthet egy cellába vagy cellatartományba. Kattintson ide, ha többet szeretne megtudni erről a segédprogramról.



Tipp.Ha gyorsan el akarja osztani a munkafüzetet több munkafüzetre / pdf fájlra vagy csv fájlra külön, kérjük, próbálja meg használni a Kutools for Excel programot Felosztott munkafüzet a következő képernyőképen látható módon. Teljes funkciója korlátozás nélkül 30 nap, kérjük, töltse le és ingyenes próbaverzióval rendelkezzen most.

doc split munkafüzet

Kapcsolódó cikkek:

Hogyan illessze be a fájl nevét vagy elérési útját az Excel cellájába / fejlécébe vagy láblécébe?

Hogyan illessze be és törölje a fejlécet, a láblécet és a fejléc képet az Excel programban?


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (9)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Be kellett szúrnom egy aktív bérszámfejtési dátumtartományt több lapba. A felhasználó megnyitja a Bérszámfejtés dátuma lapot, beírja a dátumtartományt, és a nyomtatás előtt frissíti a munkafüzet összes lapot. Így tudok több cellát beszúrni a tartományba egy kicsit kevesebb, 2010-es kóddal kompatibilis kóddal: 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 = Tartomány("'Bérszámfejtés'!A1").Érték & vbCr & Tartomány("'Bérszámfejtés'!A2").Érték Következő End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Négy cellát szeretnék beszúrni a fejlécbe. Ez a VB csak egy cellához való. Hogy tudom megcsinálni. Kösz
A weboldal moderátora ezt a megjegyzést minimalizálta
Megpróbálhatja az rht four cella értékét egyetlen cellává összefűzni, majd az egyetlen cellát használhatja fejlécként.
A weboldal moderátora ezt a megjegyzést minimalizálta
Üdvözlöm! Van mód olyan cellaérték hozzáadására, amely figyelembe veszi az alkalmazott szűrőket? Például... A1 = hétfő A2 = kedd A3 = szerda. A VBA-kód használata az A1 cella megjelenítésére kezdetben működni fog, de ha a hét napjain alkalmazok egy szűrőt, a "felső" cellaérték már nem A1. Van mód a változó felvételére? Nagyon köszönöm,
A weboldal moderátora ezt a megjegyzést minimalizálta
A "VBA-kód: minden munkalap fejlécébe írjon be egy megadott cellaértéket" használatakor szeretném, ha az elhelyezett érték formátuma lenne: Tahoma, félkövér, 12-es betűmérettel.
Hogyan lehet ezt hozzáadni a kódhoz?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,

Úgy tűnik, ez csak egyszer működik.
Mi van, ha a cella értéke megváltozik?
Van mód a cella összekapcsolására, hogy a fejléc megváltozzon, amikor a cellaérték változik?

Van egy munkafüzetem, ahol három lapom van.

1. lap "Törlési lap" felirattal - A raktárba küldjük a rendelést, hogy mit kell beírni.
2. „OA” feliratú lap – Rendelési visszaigazolásom az ügyfélnek, amely a legtöbb adatot az első lapról veszi le, beleértve a rendelési számot is, amelyet a fejlécben kell feltüntetnem. Tehát megpróbálom összekapcsolni a fejlécet ezen az oldalon lévő cellához a rendelési számmal (F5), amely az első munkalap ("Törlési lap") (C7) értékéből kapja az értékét.
A 3. lap „Számla – Számla, amely az első lapról is lekéri ugyanazokat az információkat, amelyeknek a fejlécben is szerepelniük kell a „Törlési lap” (C5)-ből vett lap értékének (F7)
A weboldal moderátora ezt a megjegyzést minimalizálta
Úgy tűnik, hogy ez nem hoz létre dinamikus hivatkozást, azaz a fejlécben megadott érték nem változik, amikor a cella értéke változik. Tehát mi a célja a VBA kódnak, amikor a másolás/beillesztés ugyanezt teszi?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Neil,
Ha dinamikusan szeretné a cellaértéket a fejléchez vagy lábléchez kapcsolni, használja a következő VBA-kódot:

Megjegyzések: A kódot a lapkódba kell beilleszteni, nem a normál modulba.
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


Kérem, próbálja meg, remélem tud segíteni
A weboldal moderátora ezt a megjegyzést minimalizálta
maksudnya bagaimana?
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi