[VBA]Excel:ako na trochu specialne zaokruhlovanie?-Vyriesene

ziadam o radu pri zaokrulneni cisiel... (napr. z cisla 1347 na 1350, z 1321 na 1300) rozmyslal som urobit to cez nejaku excelovsku funkciu ale nepodarilo sa mi takze to asi bude treba cez VBA a aj tam mam teraz z chorou rozbolenou prasinou problem nad niecim rozmyslat.
cisla su od 500 po 3050 a stupaju po 50. za kazdu dobru radu diky

P.S:jedine co ma napadlo je urobit dlhu IFovsku funkciu do excelu ale dufam ze existuje elegantnejsie a rozumnejsie riesenie

P.S.: pokial som to napisal nezrozumitelne tak tiez napiste a pokusim sa to formulovat inak

Sice som v tomto "prostredi" v zivote neprogramoval, predpokladam ze tam ale bude zahrnuta standardna funkcia - "modulo delenie". Teda ak chces x zaokruhlit na 50ky, spravis operaciu x - (x MOD 50)...

EDIT: Pozeram ze to nie je presne to co chces... budes musiet do toho vsunut este jeden if - nieco na sposob IF (x MOD 50) < 25 THEN result = x - (x MOD 50) ELSE result = x + 50 - (x MOD 50).

EDIT 2: Kratsi zapis bez if... x + 25 - (x + 25 MOD 50).

Citace:

---

Původně odeslal aragorn

ziadam o radu pri zaokrulneni cisiel... (napr. z cisla 1347 na 1350, z 1321 na 1300) rozmyslal som urobit to cez nejaku excelovsku funkciu ale nepodarilo sa mi takze to asi bude treba cez VBA a aj tam mam teraz z chorou rozbolenou prasinou problem nad niecim rozmyslat.
cisla su od 500 po 3050 a stupaju po 50. za kazdu dobru radu diky

P.S:jedine co ma napadlo je urobit dlhu IFovsku funkciu do excelu ale dufam ze existuje elegantnejsie a rozumnejsie riesenie

P.S.: pokial som to napisal nezrozumitelne tak tiez napiste a pokusim sa to formulovat inak

---

Jestli to dobre chapu, tak potrebujes udelat to, ze ti to bude zaokrouhlovat po padesati, ne? Tedy 317 na 300, 328 na 350, je to tak?

No ja se tedy moc nevenuju programovani v Excelu, na druhou stranu, co to vyresit MOD, ktery ti vrati zbytek po deleni cisla jinym cislem (tedy MOD(A1, 50), treba?)... Podle toho, jestli tohle bude mensi nez 25, tak proste tenhle kousek od puv. cisla odectes, jinak k nemu prictes doplnek do 50? Na nejakej extra dlouhej IF mi to nevychazi :wink:

Citace:

---

Původně odeslal sisi

Sice som v tomto "prostredi" v zivote neprogramoval, predpokladam ze tam ale bude zahrnuta standardna funkcia - "modulo delenie". Teda ak chces x zaokruhlit na 50ky, spravis operaciu x - (x MOD 50)...

EDIT: Pozeram ze to nie je presne to co chces... budes musiet do toho vsunut este jeden if - nieco na sposob IF (x MOD 50) < 25 THEN result = x - (x MOD 50) ELSE result = x + 50 - (x MOD 50).

---

Aaaa kua nekdo byl rychlejsi :wink:

Stačí použít funkci MROUND! :idea:

Kód:

---

=MROUND(číslo, 50)

---

Citace:

---

Původně odeslal Dawn

Stačí použít funkci MROUND! :idea:

Kód:

---

=MROUND(číslo, 50)

---

---

toto nejak mi to nechce fungovat

to sisi & D_a_v_i_d : vyzera to dobre len ked sa snazim vlozit funkciu

Kód:

---

=KDYŽ&#40;MOD&#40;A1,50&#41;<25;B6-MOD&#40;A1,50&#41;;B6+50-MOD&#40;A1,50&#41;&#41;

---

do bunky tak mi ju nechce zobrat a tvrdi mi ze napsany vzorec obsahuje chybu (ked stlacim pomoc pre chybu tak mi to vysvieti hned ten prvy MOD(A1,50))... poprosil by som este vyriesit tento maly problem

Tak jsem to ted zkusil, takhle

Kód:

---

=KDYŽ&#40;MOD&#40;A2, 50&#41;<25,A2-MOD&#40;A2,50&#41;,A2+&#40;50-MOD&#40;A2,50&#41;&#41;&#41;

---

To funguje OKI... Tohle budes mit v policku, kam chces aby ti to pumpovalo ty zaokrouhleny hodnoty...

Citace:

---

Původně odeslal aragorn

Citace:

---

Původně odeslal Dawn

Stačí použít funkci MROUND! :idea:

Kód:

---

=MROUND(číslo, 50)

---

---

toto nejak mi to nechce fungovat

---

Musíš mít zapnutý doplněk „Analytické nástroje“, viz Nástroje -> Doplňky.

Citace:

---

Původně odeslal Dawn

Musíš mít zapnutý doplněk „Analytické nástroje“, viz Nástroje -> Doplňky.

---

diky,len teraz neviem ktore mam pouzit ... ak pouzijem to Dawn-ove nebude to treba na druhom pc kde ten subor pouzijem tiez zapnut?

asi bude istejsie to druhe takze este raz vdaka vsetkym trom

Citace:

---

Původně odeslal aragorn

Citace:

---

Původně odeslal Dawn

Musíš mít zapnutý doplněk „Analytické nástroje“, viz Nástroje -> Doplňky.

---

diky,len teraz neviem ktore mam pouzit ... ak pouzijem to Dawn-ove nebude to treba na druhom pc kde ten subor pouzijem tiez zapnut?

asi bude istejsie to druhe takze este raz vdaka vsetkym trom

---

Tak to nevim jiste... Je mozny, ze pokud to nebude zapnuty v Excelu, kam to hodis,tak to nemusi fungovat. Nicmene to druhy reseni s tim MOD by melo chodit vsude, bo MOD je uuuuppplne bezna funkce :wink:

ja som z toho blazon ale stale mi to vyhadzuje "Napsany vzorec obsahuje chybu." :?:

Citace:

---

Původně odeslal aragorn

ja som z toho blazon ale stale mi to vyhadzuje "Napsany vzorec obsahuje chybu." :?:

---

Tak to tam zkus normalne pres Vlozit funkci, vyber si KDYZ a tam to napumpuj... Ale melo by to chodit... Jinak davas za A2 souradnice tveho prislusneho policka, ze?:)

No teraz rozmyslam...chces upravit tvar cisla, alebo to spravit cez funkciu?? daloo by sa to aj inak a jednoduchsie, ale neviem presne co chces spravit:|

Citace:

---

Původně odeslal Secret

No teraz rozmyslam...chces upravit tvar cisla, alebo to spravit cez funkciu?? daloo by sa to aj inak a jednoduchsie, ale neviem presne co chces spravit:|

---

aky tvar cisla ?.. no nevadi ako hovorim som chory a neviem ako inak to este vysvetlit

D_a_v_i_d musim este vela studovat aby sa nado mnou bozsky Microsoft zlutoval a dovoli mi pochopit jeho podstatu.. inak povedane ked som to tam namiesto skopirovania a zmenenia na svoje potreby proste iba jednoducho po kuskok vkladal tak to uz FUNGUJE .. diiky

K tomu jen dodam, ze nektere M$ produkty proste vlozeni textu chapou jako "vlozeni textu" a to preci LOGICKY (podle M$) nemuze byt vzorec :? :-) .

Citace:

---

Původně odeslal Jezevec

K tomu jen dodam, ze nektere M$ produkty proste vlozeni textu chapou jako "vlozeni textu" a to preci LOGICKY (podle M$) nemuze byt vzorec :? :-) .

---

Ahaaameeeen ;D