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ť.

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

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.

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ť.

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

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ť.