Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 
Nepodařilo se připojit k serveru.

#1 8. 7. 2009 18:41:39

Kvido
Člen
Registrace: 8. 7. 2009
Příspěvků: 2

Mazání oblasti buněk makrem

Pro vymazání oblasti dat používám následující makro

Sub VymazatPohyby
On Error GoTo Err_VymazatPohyby
    Dim ListySesitu As Object, List As Object
        ListySesitu = ThisComponent.getSheets
        List = ListySesitu.getByName("Pohyby zboží")
        List.getCellRangeByName("A4:R8003").ClearContents(1+2+4+8+16)
        JdiNaBunku("A4")   
Konec:
    Exit Sub
Err_VymazatPohyby:
    MsgBox "Chyba číslo: " & Err & Chr(13) & "Popis Chyby: " & Error & Chr(13) & "V řádku číslo: " & Erl, 0 + 64, "Vymazat"
    Resume Konec   
End Sub

Ve verzích OOo 2.4 - 3.0 vše naprosto bez problémů, ve verzi OOo 3.1 calc vytuhne a přestane jakkoli komunikovat.
Proto prosím poraďte kde je chyba.

Offline

#2 9. 7. 2009 20:45:58

hanus
Člen
Místo Olomouc
Registrace: 29. 11. 2006
Příspěvků: 573
Web

Re: Mazání oblasti buněk makrem

Což takhle se obrátit na autora makra?

Co to makro JdiNaBunku("A4") - to je definováno kde?

Offline

#3 10. 7. 2009 08:03:31

Kvido
Člen
Registrace: 8. 7. 2009
Příspěvků: 2

Re: Mazání oblasti buněk makrem

Makro JdiNaBunku s problémem vytuhnutí Calcu nesouvisí. Pouze přesune aktivitu na buňku danou v argumentu.

Offline

#4 12. 7. 2009 10:58:51

hanus
Člen
Místo Olomouc
Registrace: 29. 11. 2006
Příspěvků: 573
Web

Re: Mazání oblasti buněk makrem

Win 2000 Profi, OpenOffice ver 3.1.0 EN :
Tak jsem makro vložil do nového sešitu, zakomentoval řádek JdiNaBunku("A4"), v sešitu jsem vyrobil list "Pohyby zboží", naplnil ho daty a makro spustil z jiného listu: smazalo se, co mělo, žádný problém. Pak jsem vymazal list "Pohyby zboží" a znovu spustil makro - vypsal chybu, ale nevytuhnul.

Instaluju OpenOffice 3.1.0 CZ...
stejné, naprosto bez problémů.

Nemůže být problém v tom, že ten sešit byl vyroben ve starší verzi OpenOffice? Pokud ho nemáme k dispozici, není k tomu dále co dodat.

Editoval hanus (12. 7. 2009 11:15:23)

Offline

Zápatí