Příspěvky uživatele
< návrat zpět
Mame pravdu oba :-)
ALuv proces nastane tehdy, když je šablona ulozena v adresari sablon MS Office.
Pokud ale sablonu uložíte jinam (napr. na plochu nebo tam, kde si ukladate souboru konkretniho projektu), bude fungovat postup, který jsem popsal, a tedy jde o (podle me) nejlepší variantu pro zadany problém.
Diky ALe, toto jsem si předtím nikdy neuvedomil 
Naopak, uzivatel prave muze klidne rovnou otevrit sablonu, sablonu totiz nelze zmenit stisknutim "ulozit" - to vzdy povede k zobrazeni nabidky "ulozit jako".
K jeji zmene musi pouzit "ulozit jako" typ souboru sablona.
No a presne na toto existuji šablony!
Takze si "vzorovy" sesit ulozte jako sablonu a po jeho upravach se vam vzdy po stisknuti tlacitka "ulozit" zobrazit moznost ulozit jako. Nemuze tedy dojit k prepsani puvodniho "vzoroveho" souboru.
Jde temer vsechno.
V tomto pripade bude jen nutne specifikovat, kdy se maji stopky zapnout, jestli se maji nekdy nulovat (kdy?)
...pak pomoci VBA nebude problem tento pozadavek vyresit
Mozna nejsem jenom dneska v nejlepsi forme, ale...v tomto pripade je zrejme potreba nejak zakomponovat bunku C2 primo do vzorcu - tezko ale poradit, kdyz neni k dispozici ukazka.
Prosim, prectete si pravidla fora pokuste se dle nich postupovat, usetrite cas vsem
ja bych k tomu pridal jeste NEPŘÍMÝ.ODKAZ, aby se dal vzorec protahnout pro vsechny listy
=SVYHLEDAT($A4;NEPŘÍMÝ.ODKAZ("'" & B$2 & "'!$A:$B");2;0)
pokud nechcete zobrazovat chybove hodnoty pri nenalezeni polozky, lze pouzit IFERROR
Jen doplnim, ze funkce IFERROR (i v české verzi Excelu takto nazvaná) je dostupna az od verze 2007 (pro nizsi verze je nutne jeji neexistenci obejit funkci KDYZ)
ta funkce je JE.CHYBHODN a celkove tam chybi jeste KDYZ (aby to bylo platne i pro Excel 2003)
=KDYŽ(JE.CHYBHODN(SVYHLEDAT($A1;List1!$A$1:$C$7;SLOUPEC(B$2);0));"error";SVYHLEDAT($A1;List1!$A$1:$C$7;SLOUPEC(B$2);0))
Zvlastni - sam jsem pred nejakou dobou delal podobny test, kdyz jsem zapisoval nejakou hodnotu a vsechny cykly (For Next, For Each Next, Do Loop) vysly vice mene stejne (na cca milionu zaznamu se hodnoty lisily asi o vterinu a navic pri vice spustenich se vysledky pohybovaly v rozmezi asi 5 vterin)
Podle me si holt nekdy system vezme vic prostredku a nekdy min...ale vysledky od eLCHa vypadaji, ze For Each je systematicky lepsi, nez For Next, coz zase nezapada do vysledku testu, co jsem kdysi delal ja - tak nevim...
a timto koncim tento dlooouhy offtopic
No, no, je to trosku offtopic, ale snad nam Statik89 odpusti.
Ja uz jen odpovim na eLCHovu reakci.
1) souhlasim, vracet do puvodniho stavu je dobre (nejenom u screenupdating, ale i u ostatnich) - takze beru COUNTIF je lepsi
2) obecne UsedRange (dle mych zkusenosti) daleko rizikovejsi nez .end(xlup)
3) rozhodne nesouhlasim - pri pouziti For Next se zjistuje jen jedna vlastnost (a to tak, o kterou ci v kodu reknete), u For Each se zjistuji vsechny pro kazdem Stepu v cyklu. Nicmene spojeni bunek do oblasti a pouze jedno skryti ma svuj puvab...
Díky všem, rekl bych, ze jsem opet o trosku chytrejsi 
Dovolim si taky jeden komentar k prispevku eLCHa.
Treba se pri vzajemne vymene nazoru oba neco priucime (nebo aspon ja 
)
1) hodnota "SKRYŤ!!!" neni pouze ve sloupci G (ale i v tomto kratkem prikladu take ve sloupci I - a kdo vi, kde vsude muze byt...), takze vlozeny kod nebude fungovat spravne a je nutne pouzit nejake vyhledani vyskytu na kokretnim radku (jestli countif nebo .find - to je spis otazka osobnich preferenci, rekl bych - ale jestli existuji nejake konkretni duvody, proc je lepsi COUNTIF, rad se poucim)
2) pouziti UsedRange - toto velmi nerad pouzivam, protoze to rozhodne nezarucuje, ze se bude pracovat jen opravdu pouzitou oblasti (pokud se hodnot tyce) - muze existovat nejake formatovani na konci listu a zbytecne budete prochazet vsechny radky listu (UsedRange), coz bude ve finale neuveritelne pomale...
3) pouziti For Each v tomto pripade pracuje s objektovou promennou typu Range a tedy do pameti ukladani spoustu vlastnosti pri kazdem novem cyklu (teoreticky by to melo byt pomalejsi, ikdyz v tomto pripade se to samozrejme neprojevi...)
Rozhodne souhlasim s tim, ze eLCHuv kod je napsany lepe pro nekoho, kdo je hodne zbehly.
Nicmene jako odpoved na dotaz bych radeji volil kod, ktery bude pro tazatele jednodussi a snadno pochopitelnejsi - protoze nejde jen o to, aby to spravne fungovalo, ale aby se tazatel taky neco naucil - obecne je pro me osobne prehlednejsi kod lepsi nez ten nejkratsi nebo nejvyladenejsi (uz i kvuli udrzbe, kterou muze za par let/mesicu delat nekdo jiny, nez autor kodu.
Ted par otazek na eLCHu:
1) Má vase preference COUNTIF mist .Find nejaky realny zaklad nebo jde spis jen o to, co se vam zda lepsi?
2) Ma vase mirna averze k pouziti Exit Sub nejaky realny zaklad nebo to jen proste nemate rad?
3) Vidite v pouziti On Error... nejake uskali, nebo proc ho povazujete za zbytecne (ted se nebavim o tomto konrektnim pripade, ale obecne)
Diky za pripadne pouceni me osoby, ci vyvraceni mych domnenek...
co takto?
a co takhle dat nastaveni Min a Max v grafu automaticky, a ne stanovit na prvno?
Prilozte soubor!!!
jak se ma ten, kdo vam bude chtit pomoci, jinak dozvedet, jak ma reseni vypadat, nebo dokonce, jake dalsi skryte problemy, ktere jste nezminil (a ze jich byva hodne), mohou vzniknout...???
Protoze jinak vam odpovim takto:
1) Pouzijte metodu .Find
2) kde naleznete, pouzijte rows(i).Hidden = True
Nebudu se do toho moc michat, jen na zamysleni:
Proc prochazet vsechny polozky v oblasti a hledat duplicitu, pri velkem poctu bunek by to mohlo byt velice pomale.
Radeji bych pouzil:
1) Metodu .Find
2) funkci Match
...na zaklade vyskytu chyby pri vyhledani pak lze rozhodnout o tom, ze v oblasti zadna stejna hodnota neni...a bude to mnohem rychlejsi
Uživatelské menu
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články