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

#1 22. 12. 2009 11:54:57

Libor8
Člen
Registrace: 22. 12. 2009
Příspěvků: 2

Problem s programovavi v basicu

Dobrý den,
potřeboval bych pomoci s kouskem programu. Nejsem v programovani v open office vasicu moc zběhlý tak to asi pro většinu bude triviální věc.
Tento kousek programu by měl zjištovat kolik je v dokumentu popsaných řádků.Tento kod jsem předělával z visual basicu.

pom = 6
document = ThisComponent
Sheet = document.Sheets("List1")
Cell = Sheet.getCellByPosition(2, pom)
While Cell <> ""
Cell = Sheet.getCellByPosition(2, pom + 1)
Wend

pom = pom - 1

Porovnávám zde z listu1 hodnoty z buněk ve kterých jsou nadafinované hodnoty které poté chci porovnat a zjistit zda není prázdný řádek("").

Předem děkuji za pomoc

S pozdravem Libor

Offline

#2 22. 12. 2009 12:59:30

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

Re: Problem s programovavi v basicu

V cykle Vám chýba zvyšovanie premennej "pom", iba tým, že napíšete +1 do adresy bunky sa automaticky premenná nezvýši v každom kroku cyklu. Ďalej premenná "Cell" nemôže ukázať výsledok "", pretože je to objekt - obsah získate cez "getString()":
while Cell.getString()<>""
pom=pom+1
Cell = Sheet.getCellByPosition(2, pom)
Wend

Offline

#3 22. 12. 2009 13:24:33

Libor8
Člen
Registrace: 22. 12. 2009
Příspěvků: 2

Re: Problem s programovavi v basicu

Děkuji mnohokrát za radu funguje na jedničku.

S pozdravem Libor

Offline

Zápatí