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

#1 3. 3. 2014 09:14:09

csert
Člen
Registrace: 27. 2. 2014
Příspěvků: 28

ukončit makro pokud není splněna podmínka - VYŘESENO

Dobrý den, potřebuji hned po spuštění ukončit běh makra pokud není v otevřeném listě v buňce B3 hodnota_číslo 100.
Zkoušel jsem si pohrát s příkazem IF, ale nevím jak definovat buňku B3.
děkuji

sub uprava_xls
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$A$2:$J$2"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Flags"
args2(0).Value = "U"

dispatcher.executeDispatch(document, ".uno:DeleteCell", "", 0, args2())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "ToPoint"
args3(0).Value = "$A$3:$J$3"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args3())

rem ----------------------------------------------------------------------

Editoval csert (3. 3. 2014 12:33:01)

Offline

#2 3. 3. 2014 09:38:14

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

Re: ukončit makro pokud není splněna podmínka - VYŘESENO

Práci s listy najdete zde:
Práce s listy
Práci s buňkami najdete zde:
Buňky - definice a vkládání obsahu
Promazávání oblastí podle druhu obsahu najdete zde:
Základní práce s buňkami
- prozkoumejte metodu ClearContents


Musíte do proměnné přiřadit hodnotu buňky (obsah).

b3 = thisComponent.sheets.getByName("Název vašeho listu").getCellRangeByName("B3").value
if b3 = 100 then ' pokud je v b3 hodnota 100 tak 
 ' vložte kód který se má spustit
else ' jinak ukončíme makro
exit sub
endif

;o)


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

#3 3. 3. 2014 12:29:13

csert
Člen
Registrace: 27. 2. 2014
Příspěvků: 28

Re: ukončit makro pokud není splněna podmínka - VYŘESENO

Omlouvám se, ale jsem " nechápavý Tomáš". Nevím jaký kod mám vložit abych ukončil běh.

Offline

#4 3. 3. 2014 12:32:39

csert
Člen
Registrace: 27. 2. 2014
Příspěvků: 28

Re: ukončit makro pokud není splněna podmínka - VYŘESENO

A už to běží jak potřebuji. Asi mě tam chyběl jeden REM. No prostě to funguje
díky

Offline

Zápatí