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

csert

Člen

Registrace: 27. 2. 2014

Příspěvků: 30

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)

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É

csert

Člen

Registrace: 27. 2. 2014

Příspěvků: 30

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.

csert

Člen

Registrace: 27. 2. 2014

Příspěvků: 30

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