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
Szúrja be a fájlinformációkat a fejlécbe/láblécbe a Kutools for Excel segítségével
Helyezze a cellaértéket egy VBA kóddal ellátott munkalap fejlécébe vagy láblécébe
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.
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:
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.
Helyezze a cellaértéket az összes VBA kóddal ellátott munkalap fejlécébe vagy láblécébe
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.
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:
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.
Szúrja be a fájlinformációkat a fejlécbe/láblécbe a Kutools for Excel segítségével
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 a következőket:
1. kettyenés Kutools Plus > Munkafüzet > Helyezze be a munkafüzet adatait. Lásd a képernyőképet:
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.
3. kettyenés Ok. Akkor mehet Megnézem > Page Layout a fejléc megtekintéséhez.
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.
Helyezze be a munkafüzet adatait a cellába / fejlécbe / láblécbe
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 hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz 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!