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

jé to slyším rád. Nejjednoduší způsob prodeje bych si představoval tak, že bych tomu kupujícímu vypálil CD(nebo poslal na mail link) s OO zdarma + soubor.ods který jsem vytvořil, za který bych chtěl ty peníze.
Aby nevznikla nějaká pochybnost o tom, že neprodávám OO:
Pokud by se našel člověk, který by chtěl dělat problémy, mohl by např. říct, že  chci peníze za soubor.ods ve kterém jsou mé makra atd., ale i kódy OO, které jsem já nevymyslel a za tyto OO kody bych asi peníze neměl chtít...myslíte si někdo, že by toto mohlo nastat, nebo je má představa, že prodám soubor.ods v pořádku?
diky

wow,funguje to,ted to zkusim pouzit v tech slozitejsich pripadech...diky!

wow...tak jsem to zkusil,ale nepochopitelně nešla najít ta apostrofa ' a proto taky nemohla být nahrazena a z textu se nemohlo stát číslo. Pak jsem tady na foru ale nasel podobny pripad, kdy ale z textu cislo udelali tak ze našli tečku "."  a nahradili tečkou "."  . Pro mě nepochopitelné, ale fungovalo to! Sice mám makro nahrané stále rekordérem, ale už tam nefiguruje vzorec VALUE a jeho kopírování zpět do zdrojového sloupce a místo toho je to omezeno na operaci nahrazení symbolů - pomocí makra. Takže s tímhle jsem spokojen. Díky za navedení na správnou kolej!

diky,ok, tak ted si myslim ze jsem naadresoval proměnné a snažím se použít funkci MAX v makru:

sub makro2
list = ThisComponent.getSheets().getByName("List1")

A1 = list.getcellrangebyname("A1").value
A2 = list.getcellrangebyname("A2").value
vzorec = MAX(A1;A2)    'v bunce A1 je č."5" a v A2 je č. "2"

list.getCellRangeByName("B1").setValue(vzorec) 'vysledek by měl být č. 5 v bunce B1

end sub

při provedení makra se objeví chyba: "...nesouhlasí uvozovky" a je označený řádek "vzorec = max..."
nebo

sub makro2
list = ThisComponent.getSheets().getByName("List1")
oblast = list.getcellrangebyname("A1:A3").getrangeaddress

vzorec=MAX(oblast)    'v bunce A1 je č."5" a v A2 je č. "2"

list.getCellRangeByName("B1").setValue(vzorec)

end sub

při provedení tohoto makra se objeví chyba: "podprocedura nebo funkční procedura není definována"
no nevím co už může být špatně

jo, presne! diky!

JO!
Našel jsem tohle makro, které pracuje ve skrytém listě a kopíruje oblast do daného cíle(žádné UNO)

sub main4
Dim Doc As Object
Dim Sheet As Object
Dim CellRangeAddress As New com.sun.star.table.CellRangeAddress
Dim CellAddress As New com.sun.star.table.CellAddress

Doc = ThisComponent
Sheet = Doc.Sheets(0)

CellRangeAddress.Sheet = 0
CellRangeAddress.StartColumn = 0
CellRangeAddress.StartRow = 0
CellRangeAddress.EndColumn = 10
CellRangeAddress.EndRow = 0

CellAddress.Sheet = 0
CellAddress.Column = 0
CellAddress.Row = 25

Sheet.copyRange(CellAddress, CellRangeAddress)
end sub

JEDINOU věcí kerá mi zbývá dořešit je jak naučit makro najít konec dat(bez UNO)-abych tuto proměnlivou(:-D proměnnou samozřejmě) mohl nastavit do "CellAddress. ..."

eh,no,tak asi vím co mám špatně-buď jen to "setString" nebo celé to "getCellByPosition(0,9).setString(zdroj)" , ale jak to má být správně,nevím. Už jsem prozkoumal celý širý internet, ale většinou ty makra byly s "UNO" nebo nějaká šílenost.

no mám s KT další menší problém,který bych řekl půjde těžko vyřešit,ale tak musím to zkusit: Mám takovouhle malou vzorovou databázičku.
KT běžně "sdružují" stejné řádky do jednoho - prostě tímto způsobem:

namísto toho aby se slovo "pozemní" zobrazilo 6x tak se zobrazí 1x,"auto" namísto 3x jen 1x - To je OK.
Problém nastává v momentě, kdy se člověk podívá jen na KT bez znalosti zdrojových dat a mohl by si říct, že aut by mohlo být buď 2 bílé a 2 červené a 3 modré NEBO by si někdo mohl tuto tabulku vyložit i tak, že aut mohlo být 1x bílé,1x červené a 3x modré. To samé s vlakem. A proto bych potřeboval buď:
A)aby se v sloupci "počet" nesdružoval text -aby byl rozepsán na každém řádku - asi takto, s tím,že je třeba aby ten sloupec "počet" byl před sloupcem "barva":

nebo B) aby se v tom sloupci "počet" ty čísla sčítaly.

Je mi jasné, že to není chyba KT, a že to vyplývá z logiky KT,ale kdyby někdo věděl jak to provést...diky.