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

Stává se mi to, je to dost nepříjemné, bohužel řešení nemám.

to kabi: jj, s volbou "USA" to opravdu funguje jak pro apostrofy tak pro desetinné tečky - ale na to člověk fakt sám nepřijde. Díky.

A ještě tedy jeden dotaz: píšete, že je volba stejná jako při vkládání pomocí Ctrl-Shift-Alt-V. Tohle mi žádný příkaz nespouští, možná jste měl namysli Ctrl+Shift+V, což ale stejnou volbu neumožňuje, resp. nepodařilo se mi takto převést ani desetinné tečky ani apostrofy na standardní čísla. Nějaký návod?

Už tomu asi rozumím - jde zřejmě o import (vložení) neformátovaného textu, sice ta klávesová zkratka mi fakt nefunguje, spouštím to přes "roletku" pod tlačítkem "vložit" na toolbaru a tady je nabídka stejná to je jasné, je to vlastně stejná funkce. Takže ano, jsou minimálně dvě cesty jak se k této funkci dostat. Asi jste měl namysli toto.

to imcon: možná byste měl přečíst pár příspěvků v této dikuzi opravdu pořádně než učiníte takový definitivní závěr.

já jsem teď měl čísla většinou celá nebo zakrouhlena na 0,5. Omylem jsem načetl data z csv se zaškrtnutým "pole v uvozovkách jako text", což není úplně dobré při importu čísel :-). Takže v buňce bylo to co říkáte - neviditelný apostrof a číslo třeba 5 nebo 128 nebo 2,5 apod. (zarovnáno vlevo). Označil jsem celý sloupec (asi 2000 řádků), dal jsem ctrl+H, do pole vyhledat napíšu čárku "," a do pole nahradit taky ",". No a výsledek je, že i číslo 5 i číslo 2,5 se přeformátují na číslo (zarovnáno vpravo). Hotovo. Vy jste se ale ptal původně na datum, to jsem nezkoušel.

EDIT: pardon, teď se koukám do zdroje a já tam měl vždy 5,0; 128,0 atd. takže čárka fungovala. Pokud tam čárka vůbec není např.: '5 tak je potřeba použít regulární výraz např. vyhledat [:digit:] a nahradit za &

vzorec je: =INDEX($B$2:$H$1000;ROUND(ROW(I1)-ROUNDDOWN(ROW(I1)/(COUNTA($B$2:$B$1000)+0,1))*COUNTA($B$2:$B$1000));ROUNDUP(ROW(I1)/COUNTA($B$2:$B$1000))), roztáhnout ve sloupci.

Tohle je jednoznačně úloha pro kontingenční tabulku. Data je potřeba mít v jedné tabulce, pak už je to celkem jednoduché. Datumy mohou být libovolně přeházené, kontingenční tabulka to pěkně srovná a řádky se stejnými daty umístí pod sebou. Řešení výkazů nebo výpisů dat pomocí vzorců je obtížné a někdy až nemožné.

problém je že zadání filtru v KT žádné závorky nemá. To je smysl dotazu. Jak nastavit pořadí priorit (jakoby modelovat závorku), když mohu jen řadit za sebe kritéria a vždy následující je spojeno s předchozím pomocí logické funkce (AND, OR).

Výdaj1 i výdaj2 jsou vždy buď rovné nula nebo kladné, tzn. Výdaj1+výdaj2=0 nastane pouze tehdy pokud jsou obě hodnoty nulové. S tím problém není. Problém je, že pro tuhle operaci musím zřejmě zřídit pomocný sloupec, čemuž jsem se chtěl vyhnout.

To neutr: bohužel jsem to asi vysvětlil špatně. Jde o filtr v kontingenční tabulce, tedy nikoli vzorce a ani nechci pokud možno zasahovat do mateční databáze. Jednotlivá kritéria filtru v KT se skládají pomocí logického AND nebo OR. Já potřebuji aby výsledkem byly všechny řádky které splňují:

výdaj1 <> 0 NEBO výdaj2 <> 0 (musí platit alespoň jedna z podmínek)

a současně ID = zadané číslo (musí platit vždy)

Tedy mám tři kritéria z nichž dvě jsou spojeny logickým OR a výsledek je se třetím kritériem spojen logickým AND.

Pokud dám všude OR tak budou výsledekm i řádky kde ID = číslo, ale výdaj1 = 0 a také výdaj2 = 0 a také všechny řádky kde výdaj1 nebo výdaj2 jsou nenulové ale ID <> zadané číslo. To je nežádoucí výsledek.

Zadání
ID / výdaj1 / výdaj2
2 / 0 / 0
3 / 1 / 0
2 / 0 / 1
2 / 1 / 1
3 / 1 / 1
2 / 1 / 0

zadám ID = 2 a výsledek musí být (bez požadavku na pořadí):
ID / výdaj1 / výdaj2
2 / 0 / 1
2 / 1 / 1
2 / 1 / 0

Já si v podstatě myslím, že to nejde, spíš se ptám jestli na to není nějaký fígl, který neznám.

možná by pomohlo povolit makra v novém souboru:
dim argum(0) as new com.sun.star.beans.PropertyValue
argum(0).Name = "MacroExecutionMode"
argum(0).Value = 4
secondDoc = StarDesktop.loadComponentFromUrl("private:factory/scalc","_blank",0,argum())

zkuste místo "součet" nastavit "počet". Dvojklik na položku v oblasti Datová pole.

mě připadne že v tom fóru je to pěkně popsané, co přesně máte za problém? Zjištění počtu prvků matice se provádí příkaze lbound() a ubound(), tím eleiminujete případné "přetečení" pole.

sub test
   dim s1()
   s1 = SpaceSplit("ab      cd   ef       jkl")'řetězec může mít libovolný počet slov odělený libovolným počtem mezer, výsledek budou vždy jednotlivá slova v proměnné s1()
   for i = 0 to ubound(s1)
   	print s1(i)
   next i   
end sub


Function SpaceSplit(p1 as String) as Array
  Dim i as Integer, j as Integer, a1()
  a1=Split(Trim(p1)," ")
  Dim a2(Ubound(a1))
  For i = 0 to Ubound(a1)
    If a1(i)<>"" Then
       a2(j)=a1(i)
       j = j+1
    End If
  Next
  Redim Preserve a2(j-1)
  SpaceSplit = a2
End Function

nebo pomocný sloupec =value(A1), poté sloupec vložit jinak zpět na originální pozici jako hodnoty. S hledáním apostrofu je trochu potíž.