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

#1 2. 3. 2011 20:55:10

mausr
Člen
Registrace: 2. 3. 2011
Příspěvků: 5

Výpis hodnot

Potřeboval bych poradit se vzorcem. Po zadání hodnoty např. 3 potřebuji do jedné buňky vypsat: 1,2,3 nebo po zadání 5 vypsat hodnoty: 1,2,3,4,5. Tento princip. Děkuji za radu.

Offline

#2 2. 3. 2011 22:08:46

Ondra.kl
Člen
Registrace: 30. 9. 2008
Příspěvků: 933

Re: Výpis hodnot

pro jak velká čísla to chcete? Pokud pro dost malé tak třeba:
IF(A1=1;"1";IF(A1=2;"1,2";IF(A1=3;"1,2,3";IF(A1=4;"1,2,3,4";"vetsi nez 4"))))

Offline

#3 2. 3. 2011 22:24:17

lp.
Člen
Registrace: 24. 9. 2009
Příspěvků: 769

Re: Výpis hodnot

Jedním vzorcem to jde zřejmě jen pomocí vlastní funkce.

Pokud předpokládám, že rozvoj má nějakou omezenou délku, lze použít třeba:

Do A1: číslo

Do H1: Řetězec s maximálním rozvojem zvětšeným o 1 a ukončený čárkou

"1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,"

Do B1: =IF(OR(A1<1;A1>35);"Číslo mimo rozsah";LEFT(H1;FIND(","&INT(A1)+1&",";H1)-1))

(Řetězec v H1 lze vložit i do vzorce, ale takto je jednodušší údržba pokud bude více vzorců bude potřeba řetězec prodloužit.)

Offline

#4 3. 3. 2011 07:50:37

Ondra.kl
Člen
Registrace: 30. 9. 2008
Příspěvků: 933

Re: Výpis hodnot

hezké řešení s délkou řeťezce, pro použití bez pomocné buňky by to šlo upravit:

=IF(OR(A1<1;A1>35);"Číslo mimo rozsah";IF(A1<10;LEFT("1,2,3,4,5,6,7,8,9,";(A1*2)-1);"1,2,3,4,5,6,7,8,9,"&LEFT("10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,";((A1-9)*3)-1)))

Offline

#5 3. 3. 2011 12:38:15

j-pastierik
Člen
Registrace: 15. 11. 2004
Příspěvků: 761

Re: Výpis hodnot

Alebo neobmedzene makrom:

function Postupnost(Cislo)
 dim pom$
 for i=1 to Cislo
  pom=pom+trim(str(cislo))
  if i<Cislo then pom=pom+","
 next i
 Postupnost=pom
end function

Do bunky potom vložíte napr. =Postupnost(A1)

Offline

#6 3. 3. 2011 14:05:56

mausr
Člen
Registrace: 2. 3. 2011
Příspěvků: 5

Re: Výpis hodnot

Děkuji za mnoho odpovědí, vyřešil jsem to podle Ondry, hned prvním vzorcem. Ještě jednou díky za tak rychlou reakci. Díky, Díky. Díky.

Offline

Zápatí