Příspěvky uživatele
< návrat zpět
Já bych to udělal celé makrem bez vzorců, když už chcete skrývat a neskrývat.
Při otevření zkontroluje datum, není-li, tak ho dopíše a zbytek skryje.
PrintScreen je asi málo. Myslím, že se nikomu nechce vytvářet podobnou tabulku.
A dál by bylo asi dobré, abyste vložil i výsledek konkrétní tabulky. Pak se jistě někdo najde, kdo ty vzorce nebo VBA napíše.
Já jsem tu kdysi nalezl toto. Mírně poupravené pro moje potřeby. Třeba se to může hodit. Mě doplněk také nevyhovoval.
Do stejného souboru jsem dopsal makro.
List může být pojmenován jak chcete. Pojmenoval jsem ho funkce, jako že na tom listu je to pomocí funkce a to vlastní.
KAM je název vlastní funkce a tedy i výsledný seznam kamer.
Function kam(kamera As Range, popis As Range, volba As Range)
v té fci zadáváte <kamera> = oblast seznamu kamer, <popis> = oblast popisů a <volba> je ta kamera, jejiž popisy hledáte.
Aby to nepřepočítávalo, tak by to šlo napsat makro, které si samo zjistí počty kamer, tedy velikost oblasti a vyplivne popisy. Je pravda, že jako vlastní funkce to zbytečně a pořád dokola přepočítává. Tedy něco "mezi" jak píše eLHa.
Když to uděláte fcí dosadit, tak to nuly neodstraní.
edit:
jen doplním, že tam nemáte čísla ve formátu, ale pouhý text, protože kdyby tam byla skutečně čísla formátována vlastním formátem 0"-"000"-"00"-"000"-"0, tak situace jiná, ale zase by se jednalo pouze o nuly před číslem a ty lze doplnit fcí opakovat, ale jak píše eLCHa, co dál s tím číslem - textem ???
vzorec oddělí text od čísel a převrátí levou a pravou stranu u lomítka. na délce textu nezáleží, text musí obsahovat lomítko.
=ČÁST(A1;NAJÍT("/";A1;1)+1;DÉLKA(A1)-NAJÍT("/";A1;1))&"/"&ČÁST(ZPRAVA(A1;DÉLKA(A1)-MIN(NAJÍT({0;1;2;3;4;5;6;7;8;9};A1&{0;1;2;3;4;5;6;7;8;9}))+1);1;NAJÍT("/";ZPRAVA(A1;DÉLKA(A1)-MIN(NAJÍT({0;1;2;3;4;5;6;7;8;9};A1&{0;1;2;3;4;5;6;7;8;9}))+1))-1)
možná takto
No asi těžko, když nevíme ani jaký to jsou čísla.
Tak to udělejte tak, že nelze zmačknout podruhý. viz příloha
Tak a teď tu píšeš " bude mi dokonce vyhovovat, že obsluha programu neovlivní datum" . Tímto směrem se možná mělo všechno ubírat od začátku a neřešit čárky. Datum prostě natvrdo a fertig. Ale přesto jsem upravil to co jsi poslal tak, jak bych to řešil já. Datum natvrdo, ale s možností změny.
a co takhle ?
nevím kdo je autorem UFormu, je jen nepatrně doplněný.
datum do sloupce B je možné zapsat, když je "odfajfknut" CheckBox
s tím tlačítkem by to mohlo být třeba tak a nebo to moje makro upravit podle marjankaj, ale ponechat tlačítko.
edit:
a nejlepší by bylo (a bylo by po starosti) praštit všechny co píšou datum s čárkou přes prsty 
Teď by asi bylo důležité vědět posloupnost dění v tabulce.
1. pokud se ty špatný datumy do tabulky nahrají nebo nějak jinak dostanou a už se nic nemění, jen je třeba datumy opravit a pak s tabulkou pracovat, řešil bych to makrem zavolaným prostřednictvím tlačítka. Pak se v tabulce při pohybu kurzoru nic nepřepočítává a poběží to rychleji.
2. jestli se s tabulkou něco dělá a nakonec se doplní špatné datumy, udělal bych start makra přes Thisworkbook BeforeClose.
Mě to běhá i s tím mým makrem docela rychle, s marjankovým makrem samozřejmě líp, protože je lepší (dospělejší 
), ale hlavní problém v pomalosti bude tvůj počítač. Mě kurzor urazí za ty tři vteřiny víc než sto řádků i s přepočtem datumů.
to je tím, že to při každém pohybu projíždí celý makro. Nevím, jestli by nebylo lepší udělat jednorázovou kontrolu datumu a opravit.
Tady jsem to vyřešil tak, že to makro se spustí pouze je-li kurzor ve sloupci 2 nebo 8. Takže v těchto sloupcích je pomalé, ale v ostatních je pohyb rychlejší.
Jestli stačí kontrola jednorázová, tak z listu4 vyhoď makro Private Sub Worksheet_SelectionChange.. a na Sub kontrolaDatumu udělej jen tlačítko.
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články