Zavrieť

Porady

Upraviť

Hlavné

Ďalšie rubriky

makro - format harka

Zdravim ,



Protrebujem pomoc, prosim. Vypracovat makro, ktore naformatuje harok podla prilozenej predlohy – ( orientacia, format textu, velkosti buniek, okraje. )
Pokusil som sa vytvorit makro zaznamom, avsak neuspesne.
Dakujem.

Prikladam nahrane makro. ale nefunkcne.
Naposledy upravil Foxymus : 21.10.10 at 19:18
Pravidlá a tipy
  • Každý móže napísať len 1 odpoveď. Neskor mozete svoju odpoveď vylepšiť.
  • Odpoveď má priniesť riešenie na otázku, vyvarujte sa hodnotenia otázky.
  • Odpoveď má byť viac o faktoch ako o názoroch.
Dalšie pravidla a tipy
Neregistrovaný
    Ak potrebujete v otázke niečo upresniť, najskôr sa spýtajte na podrobnosti.
    Koncept slúži na uloženie rozpracovanej odpovede, koncept sa zobrazuje len Vám, až kým ho nezverejníte.
    Ak máte podobnú otázku, založte Novú otázku alebo Súvisiacu otázku.
    ❤ Buďte priateľskí ❤
    Sme súčasťou jednej komunity, ktorá si chce vzájomne pomáhať, rozdieľnosť je vítaná ak neubližuje!
    Usporiadať podľa času

    marjankaj je offline (nepripojený) marjankaj

    I am a man marjankaj
    Foxymus Pozri príspevok
    Potrebujem upravit harky v 370 zositoch po inom uzivatelovi. Preto som chcel makro, ktore to zvladne pri najblizsom zapise kl. skratkov.
    Na danom hárku si zapni záznam makra. Urob všetky zmeny(šírky stĺpcov,orámovanie, formáty....). Potom zastav záznam.

    Na inom hárku to môžeš spustiť ALT+F8.


    Na inom zošite to tiež spustíš, ak máš otvorený aj ten zošit s makrom.
    Naposledy upravil marjankaj : 21.10.10 at 19:00

    Hlasovalo 1 pouzivatelov

    Užitočné (1)
    Stefan2005
    1

    marjankaj je offline (nepripojený) marjankaj

    I am a man marjankaj
    Foxymus Pozri príspevok
    Zdravim ,



    Protrebujem pomoc, prosim. Vypracovat makro, ktore naformatuje harok podla prilozenej predlohy – ( orientacia, format textu, velkosti buniek, okraje. )
    Pokusil som sa vytvorit makro zaznamom, avsak neuspesne.
    Dakujem.

    V exceli 2003
    Upravy -> premiestniť alebo skopírovať hárok -> zaškrtni kópia a umiestni, kde ho chceš zaradiť.
    0

    Foxymus je offline (nepripojený) Foxymus

    Foxymus
    Potrebujem upravit harky v 370 zositoch po inom uzivatelovi. Preto som chcel makro, ktore to zvladne pri najblizsom zapise kl. skratkov.
    0

    marjankaj je offline (nepripojený) marjankaj

    I am a man marjankaj
    Trochu som to makro upravil. Všetko tam asi nemusí byť. Ak by chýbalo tak si to doplň.
    Asi tam vadia tie zlúčené bunky. Posunul som to na 40. ty riadok a už by to malo ísť.
    0

    Foxymus je offline (nepripojený) Foxymus

    Foxymus
    Tebou upravene makro je ok. Doplnenie - ok.
    Mam ale otazku - makro na rozlozenie strany, orientacia, okraje, zvacsenie - zaznamenane nahravanim a potom pouzite spustenim trva jeho aplikacia dost dlho. Je mozne ho spravit ... povedzme sofistikovanejsie t.j. priamo prikazmi a potom by to slo rýchlejsie?

    Sub Makro2()
    '
    ' Makro2 Makro
    ' Rozlozenie strany záznamom
    '
    ' Klávesová skratka: Ctrl+o
    '
    With ActiveSheet.PageSetup
    .PrintTitleRows = ""
    .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = ""
    .LeftFooter = ""
    .CenterFooter = ""
    .RightFooter = ""
    .LeftMargin = Application.InchesToPoints(0.354330708661417)
    .RightMargin = Application.InchesToPoints(0.31496062992126)
    .TopMargin = Application.InchesToPoints(0.708661417322835)
    .BottomMargin = Application.InchesToPoints(0.31496062992126)
    .HeaderMargin = Application.InchesToPoints(0)
    .FooterMargin = Application.InchesToPoints(0)
    .PrintHeadings = False
    .PrintGridlines = False
    .PrintComments = xlPrintNoComments
    .PrintQuality = 600
    .CenterHorizontally = False
    .CenterVertically = False
    .Orientation = xlLandscape
    .Draft = False
    .PaperSize = xlPaperA4
    .FirstPageNumber = xlAutomatic
    .Order = xlDownThenOver
    .BlackAndWhite = False
    .Zoom = 100
    .PrintErrors = xlPrintErrorsDisplayed
    .OddAndEvenPagesHeaderFooter = False
    .DifferentFirstPageHeaderFooter = False
    .ScaleWithDocHeaderFooter = True
    .AlignMarginsHeaderFooter = True
    .EvenPage.LeftHeader.Text = ""
    .EvenPage.CenterHeader.Text = ""
    .EvenPage.RightHeader.Text = ""
    .EvenPage.LeftFooter.Text = ""
    .EvenPage.CenterFooter.Text = ""
    .EvenPage.RightFooter.Text = ""
    .FirstPage.LeftHeader.Text = ""
    .FirstPage.CenterHeader.Text = ""
    .FirstPage.RightHeader.Text = ""
    .FirstPage.LeftFooter.Text = ""
    .FirstPage.CenterFooter.Text = ""
    .FirstPage.RightFooter.Text = ""
    End With
    ActiveWindow.SmallScroll Down:=-9
    End Sub
    Naposledy upravil Foxymus : 22.10.10 at 20:41
    0

    marjankaj je offline (nepripojený) marjankaj

    I am a man marjankaj
    Foxymus Pozri príspevok
    Tebou upravene makro je ok. Doplnenie - ok.
    Mam ale otazku - makro na rozlozenie strany, orientacia, okraje, zvacsenie - zaznamenane nahravanim a potom pouzite spustenim trva jeho aplikacia dost dlho. Je mozne ho spravit ... povedzme sofistikovanejsie t.j. priamo prikazmi a potom by to slo rýchlejsie?

    Sub Makro2()
    '
    ' Makro2 Makro
    ' Rozlozenie strany záznamom
    '
    ' Klávesová skratka: Ctrl+o
    '
    With ActiveSheet.PageSetup
    .PrintTitleRows = ""
    .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
    .LeftHeader = ""
    .CenterHeader = ""
    .RightHeader = ""
    .LeftFooter = ""
    .CenterFooter = ""
    .RightFooter = ""
    .LeftMargin = Application.InchesToPoints(0.354330708661417)
    .RightMargin = Application.InchesToPoints(0.31496062992126)
    .TopMargin = Application.InchesToPoints(0.708661417322835)
    .BottomMargin = Application.InchesToPoints(0.31496062992126)
    .HeaderMargin = Application.InchesToPoints(0)
    .FooterMargin = Application.InchesToPoints(0)
    .PrintHeadings = False
    .PrintGridlines = False
    .PrintComments = xlPrintNoComments
    .PrintQuality = 600
    .CenterHorizontally = False
    .CenterVertically = False
    .Orientation = xlLandscape
    .Draft = False
    .PaperSize = xlPaperA4
    .FirstPageNumber = xlAutomatic
    .Order = xlDownThenOver
    .BlackAndWhite = False
    .Zoom = 100
    .PrintErrors = xlPrintErrorsDisplayed
    .OddAndEvenPagesHeaderFooter = False
    .DifferentFirstPageHeaderFooter = False
    .ScaleWithDocHeaderFooter = True
    .AlignMarginsHeaderFooter = True
    .EvenPage.LeftHeader.Text = ""
    .EvenPage.CenterHeader.Text = ""
    .EvenPage.RightHeader.Text = ""
    .EvenPage.LeftFooter.Text = ""
    .EvenPage.CenterFooter.Text = ""
    .EvenPage.RightFooter.Text = ""
    .FirstPage.LeftHeader.Text = ""
    .FirstPage.CenterHeader.Text = ""
    .FirstPage.RightHeader.Text = ""
    .FirstPage.LeftFooter.Text = ""
    .FirstPage.CenterFooter.Text = ""
    .FirstPage.RightFooter.Text = ""
    End With
    ActiveWindow.SmallScroll Down:=-9
    End Sub
    Takto je to najjednoduchšie.
    Vyhoď si riadky, ktoré nepotrebuješ. Napríklad červené.

    Prípadne vyskúšaj aj iné. Neviem, čo všetko chceš nastaviť.
    0

    makro - format harka

    Vieš, kto pozná odpoveď?
    Zdieľaj, možno sa nájde odborník Pozvi odborníka, firmu, inštitúciu atď.

    Porady, ktoré by vás mohli zaujímať

    Prihláste sa a sledujte len tie Porady, ktoré Vás zaujímajú.

    Pridať pochvalu

    Ďakujem Dobre píšes Super rada
    Vtipné Si cool Milé
    Poznámočka