< návrat zpět

MS Excel

Téma: datum s čárkami rss

Zaslal/a jaks.dalibor 25.4.2014 19:23

zdravím opět odborníky, řeším malý úkol. Do deníku mi lidé píší datum, problém nastává, že někteří jsou zvyklí psát datum na numerické klávesnici a tudíž s čárkami. jednoduchým makrem jsem schopen čárky nahradit tečkami, s obtížemi jsem schopen změnit poté i formát z obecného na datum. Ale když si rozkliknu automatický filtr, tak se mi takové datum "nazařadí do daného roku", dokud ho ručně nepřepíši s tečkami. Napadá vás něco? V přiloženém dokumentu jsem makro nedával. Některé lidi bohužel nenaučím to zadávat správně. 7

Příloha: rar19109_datum_s_carkami.rar (6kB, staženo 28x)
Zaslat odpověď >
Strana:  « předchozí  1 2 3 4   další »
jaks.dalibor(25.4.2014 23:52)#019124
avatar
nikde jsem to nenašel, ale jestli to chápu dobře, tak "dx" je nastavení proměnné, která říká, že mám buňku ve sloupci "A" rozdělit, kde rozdělovačem je ",". Poté zpátky vyplním buňky ve sloupci "A" těmi rozdělenými částmi, tentokrát oddělenými "/", takže se to bude chovat jako datum. Je to tak? Jestli ano, klobouk dolů a díky.citovat
Opičák(25.4.2014 23:57)#019125
Opičák
příkaz Split rozdělí to "datum" (nebo jiný text)s čárkama na tři texty a to v místech, kde je čárka (nebo něco jiného, co určíš jako oddělovač) (tzv.delimiter) dx(0) dx(1) a dx(2) . DX je jen název, může tam být cokoli, třeba DDD.citovat
marjankaj(26.4.2014 1:29)#019126
avatar
vzorec
=HODNOTA(NAHRADIT(A2;",";"."))

makro

for each x in selection
x.value=cdate(replace(x, ",", "/"))
next xcitovat
jaks.dalibor(26.4.2014 7:19)#019127
avatar
to Opičák: tak to vypadalo fajn, ale když sem to dal do souboru, kde potřeubju, tak se šipkama v souboru pohybuju pomalu (viz. příloha)

To Marjankaj: díky, vypadá to zajímavě, ale nějak se mi to nepodařilo rozchodit (jsem začátečník ve VBA)
Příloha: rar19127_datum_s_carkami.rar (158kB, staženo 24x)
citovat
Opičák(26.4.2014 11:25)#019128
Opičák
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.
Příloha: zip19128_kopie-datum_s_carkami2.zip (180kB, staženo 24x)
citovat
marjankaj(26.4.2014 11:45)#019129
avatar
Vyhodil som podľa mňa zbytočné veci. Ak tam niečo z toho potrebuješ, tak si doplň.
Příloha: zip19129_datum_s_carkami.zip (198kB, staženo 24x)
citovat
jaks.dalibor(26.4.2014 15:43)#019131
avatar
díky oběma, stále tápu, protože předpokladem je, aby to uživatele neotravovalo a zrovna ti "moji" uživatelé jsou hrozně netrpěliví, protože v našem hlavním softwaru co chvila vidí přesýpací hodiny. Kladu si otázku, nelze spustit to makro třeba při změně právě té konkrétní buňky - tj. aby neplatilo pro ostatní buňky? Když ne, tak druhou variantou by bylo to makro spustit při opuštění listu, třetí variantou by bylo mé původní řešení s tím, že bych čas od času ty buňky ručně měnil.citovat
marjankaj(26.4.2014 17:04)#019134
avatar

jaks.dalibor napsal/a:

díky oběma, stále tápu, protože předpokladem je, aby to uživatele neotravovalo a zrovna ti "moji" uživatelé jsou hrozně netrpěliví, protože v našem hlavním softwaru co chvila vidí přesýpací hodiny. Kladu si otázku, nelze spustit to makro třeba při změně právě té konkrétní buňky - tj. aby neplatilo pro ostatní buňky? Když ne, tak druhou variantou by bylo to makro spustit při opuštění listu, třetí variantou by bylo mé původní řešení s tím, že bych čas od času ty buňky ručně měnil.

A to moje makro to tak nerobí?citovat
jaks.dalibor(26.4.2014 17:23)#019136
avatar
marjankaj, robí, to vypadá dobře, jen při zapsání datumu se mi ten excel zastaví na cca 3s a pak to teprve poskočí na další buňku.citovat
Opičák(26.4.2014 17:44)#019139
Opičák
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ší 1 ), 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ů.citovat

Strana:  « předchozí  1 2 3 4   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje