Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

Új hozzászólás Aktív témák

  • #9855 Delila_1 veterán Mr.Csizmás #9854
    Új Válasz #9855
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    Delila_1

    veterán

    válasz Mr.Csizmás #9854 üzenetére

    Van most a füzetedben 1 lap, amiben jó az élőfej.
    Indítasz egy makrórögzítést.
    A jó lapon állva átkapcsolsz a nyomtatási képbe, ott is a beállításokba, az élőfejbe.
    OK. Belépsz (ha van) az élőlábba, OK. Rögzítés vége.

    Szép hosszú makrót kapsz, amiből csak néhány sort hagysz meg:

    With ActiveSheet.PageSetup
    .LeftHeader = "Valami1"
    .CenterHeader = "Valami2"
    .RightHeader = "Valami3"
    .LeftFooter = "Valami4"
    .CenterFooter = "Valami5"
    .RightFooter = "Valami6"
    End With

    Természetesen a Valamik helyett a saját adataid lesznek az egyenlőségjel után.
    Ha élőláb nincs, a Footer-es sorokat is kihagyhatod.
    Most beviszel egy új makrót:

    Sub Élőfejek()
    For lap = 1 To Worksheets.Count
    Sheets(lap).Select
    '***ide másolod be az előbb rögzített sorokat ***
    With ActiveSheet.PageSetup
    .LeftHeader = "Valami1"
    .CenterHeader = "Valami2"
    .RightHeader = "Valami3"
    .LeftFooter = "Valami4"
    .CenterFooter = "Valami5"
    .RightFooter = "Valami6"
    End With
    '*******************************************************
    Next
    End Sub

    Ahol jelöltem, beviszed a rögzített makró rövidített részét, és futtatod az újat. Minden lapra bemásolja az élőfejet, és ha van, az élőlábat is.

Új hozzászólás Aktív témák