Převod VBA do Calcu - VYŘEŠENO

jilke · 15. 3. 2012 17:19:32

Byl by tu někdo schopný, kdo by byl ochotný přepsat makro z excelu, aby fungovalo v Open Office? Moc děkuji...

ActiveSheet.Copy After:=ActiveSheet
     ActiveSheet.Select
  pčr = Range("z3") + 1
              Range("z3") = pčr
     ActiveSheet.Name = pčr

sedlacekdan · 15. 3. 2012 18:39:08

Vítejte na fóru,

převod by neměl být tak složitý, ale nejsem v VBA vůbec zběhlý. Bude lepší, když napíšete co makro má provést. Takto jen odhaduji, že se má nakopírovat aktivní list a vložit jej za něj, pak jej pojmenovat podle hodnoty v buňce Z3 zvýšenou o 1?

Je to tak?

;o)

jilke · 15. 3. 2012 18:45:41

Ano,
buňka z3 se zvětší o 1, vytvoří se list (stejný), ale s názvem co je v z3.
Díky

sedlacekdan · 15. 3. 2012 19:46:33

Šlo by to takto:

sub zkopirovat_list
list = thisComponent.CurrentController.ActiveSheet
listy = thisComponent.sheets
z3 = list.getCellrangeByName("Z3")
z3.value = z3.value + 1
listy.CopyByName(list.name,z3.value,sheet+1)
end sub

Má to jednu nevýhodu, vkládá zkopírovaný list na pevnou pozici (zde druhou). Má se kopírovat z aktivního listu - má takto pracovat v kterémkoli listu sešitu?

Po pravdě nevím jakým způsobem se dá zjistit pořadí listu (jakou metodou) jinak než cyklem, proto jsem to zatím napsal s vkládáním napevno, třeba někdo ví a poradí.

Makro si ozkoušejte

;o)

jilke · 15. 3. 2012 19:51:34

Má to fungovat tak, že to vytvoří nový list (fakturu). A z té nové se také bude dělat další. Ale jestli nevíš, nevadí, tohle je super

sedlacekdan · 15. 3. 2012 21:05:05

Předpokládám, že se nový list tvoří z jedné "šablony". Pokud má tato šablona stálé - nepohyblivé umístění, stačí zjistit její pořadí a může se nový list adresovat přímo. Například tato šablona je v sešitu jako třetí list (i včetně skrytých listů) pak si upravte makro:

listy.CopyByName(list.name,z3.value,3)

Tato úprava vloží nový list jako 4 (číslování začíná 0)

Pokud má být nový list umístěn na poslední pozici pak stačí úprava takto

listy.CopyByName(list.name,z3.value,listy.count)

Je možné i pevné pořadí odzadu

listy.CopyByName(list.name,z3.value,listy.count - 1)

takto bude vkládáno jako předposlední atd.

;o)

jilke · 15. 3. 2012 21:25:20

Každý nový list se vždy vytvoří s předešlého, který se uložil na konci. Eště se v tom pohrabu : ))

sedlacekdan · 16. 3. 2012 09:37:23

sedlacekdan napsal(a)

Pokud má být nový list umístěn na poslední pozici pak stačí úprava takto
listy.CopyByName(list.name,z3.value,listy.count)

tak tato změna.

;o)

jilke · 18. 3. 2012 14:41:48

Funguje to skvěle! Ešte pokud bych mohl se zeptat, pokud si vytvořím nový list, tak se změní buňka z3 + 1, ale změní se i v ostatních listech, což je už nežádoucí. Nelze toto také opravit?

sedlacekdan · 18. 3. 2012 15:30:47

jilke napsal(a)

pokud si vytvořím nový list, tak se změní buňka z3 + 1, ale změní se i v ostatních listech, což je už nežádoucí. Nelze toto také opravit?

Tak tomu nerozumím, při testování se mi mění hodnota Z3 pouze v aktuálním listu, v ostatních zůstává původní hodnota, tedy pokud začnu číslem 1, tak se mi postupně přidají další listy se stejným názvem jako je v jejich buňce Z3.

Mění se pouze jedna jediná buňka v sešitu.

;o)

jilke · 18. 3. 2012 16:39:22

Tak to je zvláštní, opravdu se mi zvětšuje buňka Z3 i v neaktivních listech. Nemůžete mi pro kontrolu zaslat kód makra?

sedlacekdan · 18. 3. 2012 17:51:37

sub zkopirovat_list
list = thisComponent.CurrentController.ActiveSheet
listy = thisComponent.sheets
z3 = list.getCellrangeByName("Z3")
z3.value = z3.value + 1
listy.CopyByName(list.name,z3.value,listy.count)
end sub

Toto makro navýší hodnotu buňky Z3 o 1 a poté zkopíruje list. To je možná to nežádoucí chování, Z3 se navýší v původním listu (faktuře) vždy při vytváření nové.
Zkuste následující úpravu:

sub zkopirovat_list
list = thisComponent.CurrentController.ActiveSheet
listy = thisComponent.sheets
z3 = list.getCellrangeByName("Z3")
listy.CopyByName(list.name,z3.value+1,listy.count)
ThisComponent.CurrentController.setActiveSheet(listy.GetByName(Z3.value+1)
list = thisComponent.CurrentController.ActiveSheet
z3 = list.getCellrangeByName("Z3")
z3.value = z3.value + 1
end sub

Po této úpravě se zkopíruje aktuální list a pojmenuje podle buňky Z3 + 1 aniž by se hodnota buňky změnila. K navýšení buňky Z3 se provede teprve v nově vytvořené buňce.

;o)

Editoval sedlacekdan (18. 3. 2012 18:16:18)

jilke · 18. 3. 2012 19:43:41

Tak to je naprosto super! Díky za pomoc )

_______________________________________________________

Značím jako vyřešené

;o)

Editoval sedlacekdan (18. 3. 2012 20:01:54)

jilke · 9. 4. 2012 18:40:01

Eště jeden malý dotaz - v tom dokumentu mám nějaké vzorečky a makra. A když ten list zamknu, tak mi to hodí chybu " zamknuté buňky nelze měnit". Ovšem buňky, ve kterých je nějaký vzoreček nebo se mění, či je používají makra(při tom to hodí chybu)jsou odemknuté. Tak jsem z toho jelen. Kde může být chyba?

-Vyřešeno

Editoval jilke (9. 4. 2012 19:48:07)

OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

#1 15. 3. 2012 17:19:32

Převod VBA do Calcu - VYŘEŠENO

#2 15. 3. 2012 18:39:08

Re: Převod VBA do Calcu - VYŘEŠENO

#3 15. 3. 2012 18:45:41

Re: Převod VBA do Calcu - VYŘEŠENO

#4 15. 3. 2012 19:46:33

Re: Převod VBA do Calcu - VYŘEŠENO

#5 15. 3. 2012 19:51:34

Re: Převod VBA do Calcu - VYŘEŠENO

#6 15. 3. 2012 21:05:05

Re: Převod VBA do Calcu - VYŘEŠENO

#7 15. 3. 2012 21:25:20

Re: Převod VBA do Calcu - VYŘEŠENO

#8 16. 3. 2012 09:37:23

Re: Převod VBA do Calcu - VYŘEŠENO

#9 18. 3. 2012 14:41:48

Re: Převod VBA do Calcu - VYŘEŠENO

#10 18. 3. 2012 15:30:47

Re: Převod VBA do Calcu - VYŘEŠENO

#11 18. 3. 2012 16:39:22

Re: Převod VBA do Calcu - VYŘEŠENO

#12 18. 3. 2012 17:51:37

Re: Převod VBA do Calcu - VYŘEŠENO

#13 18. 3. 2012 19:43:41

Re: Převod VBA do Calcu - VYŘEŠENO

#14 9. 4. 2012 18:40:01

Re: Převod VBA do Calcu - VYŘEŠENO

Zápatí