Proč by v excelu měly být údaje v textovém poli a ne v buňkách? Jaké to má výhody?
@vovka.h
díky za upozornění.
Mám chvilku, tak si dovolím malý komentář
IFS
Přijde mi zbytečná a nepřehledná. Z důvodu kompatibility (a variability) stejně budu používat IF + AND (OR)
SWITCH
Stejně jako CHOOSE - pokud ty argumenty musím psát do té funkce, tak INDEX+MATCH - ve spojení s ExcelTable daleko praktičtější.
CONCAT
Naprosto zbytečná, pokud zavedli TEXTJOIN. První argument "" a druhý dle potřeby. TEXTJOIN naopak užitečná a velmi použitelná.
MAXIFS, MINIFS
Super.
Ve VBA nepotřebujete kolekci měsíců.
monthname(1)
Tohle by mohlo ale stejně pomoci:
Nedávno to řešil AL
http://wall.cz/index.php?m=topic&id=30273
Každopádne, riešenie som nakoniec našiel, bolo treba si v ovládacích paneloch trochu pohrať s jazykovým nastavením - nastaviť jazyk pre programy nepodporujúce sadu Unicode napr. na češtinu.
To není narážka na nic. Nenapsal jste, co jste zkoušel a já vím, že se tu už ares řešil. Tak jsem dal odkaz.
Protože jste nedal přílohu, tak nevíme co je v oblasti
Sheets(1).Cells(2 až Rows.Count, 1).End(xlUp).Row za hodnoty. Protože tu hodnotu pak vkládáte do importu jako argument firma, je to tedy pravděpodobně seznam firem.
Takže jediné co mohu poradit (bez přílohy) je vložit ten odkaz vytvořený v kroku 2 přímo do prohlížeče a zkusit, jestli je funkční. Neobsahuje název firmy diakritiku nebo nějaké neobvyklé znaky (i mezera může být problém)?
Není lepší použít ičo než název firmy?
http://wwwinfo.mfcr.cz/cgi-bin/ares/darv_std.cgi?ico=27074358
http://www.w3schools.com/tags/ref_urlencode.asp
Application.DisplayAlerts = FaTruelse!!!
https://www.google.cz/search?q=site%3Awall.cz+ares
@elninoslov
Je potřeba pomocných tabulek.
Sice jsem ta kritéria "nečetl", ale přesto vás upozorním na jednu věc. Pokud je situace, že stejný počet bodů má více než 2 týmů (hráčů) - použije se tabulka ze vzájemných zápasů těchto týmů. Musíte ale dávat pozor na to, že i v této redukované tabulce může nastat situace, kdy budou mít týmy stejný počet bodů - tedy musíte vytvořit tabulku vzájemných zápasů z tabulky vzájemných zápasů a i v té může nastat tato situace ;) .
Je to o myšlence a trpělivosti. Takže, pokud to chcete řešit - vyčleňte si na to hromadu času ;) .
@vovka.h
Při diskusi s váma si dávám pozor, abych se vyvaroval uštěpačných poznámek, protože máte ve zvyku brát to osobně. Tentokrát udělám výjimku a napíšu - vážně je s vámi někdy legrace.
Jsou kritéria, která lze pomocí vzorců zvládnout snadno, a jsou taková, na která jsou vzorce krátké
Nobelovu cenu nechci, ale zase je to jen věc názoru. Tu druhou část bych poupravil - které nelze zvládnout snadno.
Nemusíte mi věřit a dokazovat vám to nebudu - jen ocituji jeden z vašich starších příspěvků:
Zkušenost mne naučila, abych přestal říkat "líp to nejde", protože poctivější je říct "líp to neumím".
@vovka.h
Pokus o její řešení pomocí vzorců je podle mne předem odsouzený k neúspěchu
Není. Jeden z mých turnajů zde - včetně playoff - zcela bez VBA:
http://elcha-en.blogspot.com/p/downloads.html
Podle mne ´123,15 znamená, že tam je apostrof. Pak je to prostě text bez ohledu na cokoliv. Pokud jste si nic nezměnila, tak se vám v levém horním rohu objeví zelený trojúhelníček, po vybrání buňky se zobrazí vykřičník ve žlutém čtverečku - na něj kliknete a tam je volba převést na číslo.
Obecné řešení = nedá. Jsem si tím jistý, ale nejsem neomylný.
Pokud víte, že těch prvků je nějaké nevelké omezené množství, vzorec by vymysel šel.
Budu předpokládat, že obsah buňky A1 je={"eferF";"fwefw";"wfwe"}Protože jinak by to nebylo pole, ale textová hodnota. Pak je to podobný problém jako u poměrně častého - mám buňky a jejich hodnoty chci dát do jedné buňky. Je třeba UDF:Function CONCATENATE_VALUE(rCell As Range) As String
CONCATENATE_VALUE = Join(Evaluate(rCell.Formula), " ")
End FunctionPak do A2=CONCATENATE_VALUE(A1)
@elninoslov
Optimalizoval jsem ten kód. Protože je opravdu škoda přejíždět celý text znak po znaku, když ten znak můžu nahradit v celém textu najednou. Jestli chcete, vyzkoušejte. Rychlostí by to mělo být zhruba na úrovni ostatních.
Aktualizace funkce REMOVE_DIACRITICS
@AL
...že môj noťas nemá VBA výstup...
;))
můj taky ne.
Kdyby se ti chtělo, mohl bys vyzkoušet test od elninoslov, ale s tím původním nastavením? Tady mne nezajímá srovnání časů, ale výsledků. Dík.
Přiznám se, že jsem ty kódy zatím moc nestudoval. Kouknu.
Ale jen mne tak napadlo - výhoda textu je, že se dá snadno rozdělit a zase spojit...
Celý ten kód je divný, proto jsem jen napsal, co je špatně a nenavrhoval lepší cestu.
Výhodou Collection je, že každému prvku můžete přiřadit Key a podle Key pak volat. Takto to řeším já, když potřebuji "pole s pojmenovanými indexy".
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.