Komentáře Cykly v makrech

user avatar Franta
Odpovědět
Cykly v makrech
14. 03. 2015, 18:04:54
Dobrý den
Mám takový problém že příkaz Do until "" ....Loop v libreOffice nefunguje.
Cyklus se má ukončit jakmile skočí na prázdnou buňku ale neukončí cyklus.
Vlastně dojde k zacyklení.
netuším čím to je?

předem děkuji za radu Franta
user avatar j-pastierik
Odpovědět
Cykly v makrech
15. 03. 2015, 19:57:30
Musíte ukázať, ako to máte naprogramované, z krištáľovej gule sa ťažko veští príčina…
user avatar lp.
Odpovědět
Cykly v makrech
15. 03. 2015, 23:53:07
Je to jasné.

Není splněna podmínka ukončení cyklu. Opravte ji a bude to fungovat.
user avatar Franta
Odpovědět
Cykly v makrech
19. 03. 2015, 12:22:48
Dobrý den

tady je ten můj problém.

Do Until Selection = ""
Select Case Selection
End Select
dim args2(1) as new com.sun.star.beans.PropertyValue
args2(0).Name = "By"
args2(0).Value = 1
args2(1).Name = "Sel"
args2(1).Value = false
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args2())
Loop

Ve ¨VBA to fungovalo dobře ale v LibreOffice to nefunguje.
Teprve začínam s Libre Office.
Děkuji Franta
user avatar j-pastierik
Odpovědět
Re:Cykly v makrech
24. 03. 2015, 19:13:10
Neaktualizovani ste premennú Selection, zápis nezodpovedá makrám v OpenOffice. Toto funguje:

dim vyber, bunka, document, dispatcher as object
vyber=ThisComponent.getCurrentSelection()
bunka=vyber.getCellByPosition(0,0)
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(1) as new com.sun.star.beans.PropertyValue
args1(0).Name = "By"
args1(0).Value = 1
args1(1).Name = "Sel"
args1(1).Value = false
Do Until bunka.getstring()=""
dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args1())
vyber=ThisComponent.getCurrentSelection()
bunka=vyber.getCellByPosition(0,0)
Loop
 
 
woo jaw demo hz