Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

#1 17. 1. 2011 09:21:02

dech
Člen
Registrace: 1. 10. 2008
Příspěvků: 150

více příkazů v makru po THEN ("funkce" IF)

Ahojte, nevím jak provést více úkonů v rámci "funkce" IF po slově THEN v jednom makru...příklad:

sub makro
list = ThisComponent.getSheets().getByName("list1")
bunka = list.getCellrangeByname("a1").string

if bunka = "auto" then list.getCellrangeByname("a2").setstring("modré") and
list.getCellrangeByname("a3").setstring("rychlé")

end sub

chci aby, když bude v A1 slovo "auto" aby se v A2 a A3 taky objevilo nějaké slovo. Funguje to jen s jedním úkonem, ale pokud dám úkonů víc tak stane se to že to napíše chybu: neočekávaný symbol and. Je jasné že to mám nějak blbě napsané(to s tím "and").  Vím že bych mohl udělat druhé makro a v něm napsat těchto více úkonů....ale kdybych to chtěl tak jak to mám v tom příkladu výše(=více úkonů za slovem THEN)....šlo by to nějak?
diky

Editoval dech (17. 1. 2011 09:22:57)


LO 6.1.2.1. (x64)  WIn 8 64bit  16GB RAM

Offline

#2 17. 1. 2011 13:18:00

Zvedavec
Člen
Registrace: 8. 11. 2004
Příspěvků: 480

Re: více příkazů v makru po THEN ("funkce" IF)

Ja teda makra neznam, ale to neni jako v Basicu ?
IF xxx Then
Prikaz1
Prikaz2
Prikaz3
END IF

edit: Tedy POD SEBOU + end if?

Editoval Zvedavec (17. 1. 2011 13:19:58)


LO většinou poslední verze, na W7 prof. 32b/64b

Offline

#3 17. 1. 2011 15:45:28

j-pastierik
Člen
Registrace: 15. 11. 2004
Příspěvků: 761

Re: více příkazů v makru po THEN ("funkce" IF)

Presne, ako to píše Zvedavec. P. dech, stiahnite si, prosím, moju knihu o programovaní makier v OO.o - http://www.openoffice.cz/doplnky/kniha- … office-org , tam sú príkazy jazyka Basic popísané s veľkým množstvom príkladov.

if podmienka then
 príkaz
 príkaz
 ...
else
 rem Vetva else nemusí byť využitá
 príkaz
 príkaz
 ...
endif

čiže vo Vašom príklade:

if bunka = "auto" then
 list.getCellrangeByname("a2").setstring("modré")
 list.getCellrangeByname("a3").setstring("rychlé")
endif

Offline

#4 17. 1. 2011 16:14:57

dech
Člen
Registrace: 1. 10. 2008
Příspěvků: 150

Re: více příkazů v makru po THEN ("funkce" IF)

bravo! ...tak jednoduché....diky pánové...příručku stahuju....


LO 6.1.2.1. (x64)  WIn 8 64bit  16GB RAM

Offline

#5 17. 1. 2011 22:31:00

sedlacekdan
Moderátor
Místo Nehvizdy
Registrace: 21. 6. 2010
Příspěvků: 617

Re: více příkazů v makru po THEN ("funkce" IF)

Je třeba rozlišovat funkce sešitu a funkce Basicu přestože mají shodné názvy a plní stejnou funkci, jejich syntaxe je naprosto rozdílná.


Linux Mint 16 Petra - Apache OpenOffice 4.0.1
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte tak orientaci na fóru při vyhledávání řešení problémů
JAK OZNAČIT TÉMA ZA VYŘEŠENÉ

Offline

Zápatí