MS Excel

Téma: Zkrácení data

Zaslal/a Kubik 23.1.2015 10:54

Prosím o radu, jak pomocí makra zkrátit datum z formátu dd.mm.rrrr pouze na dd.m. ?

S tím, že ve sloupci A jsou vypsaná "náhodná" data jdoucí po sobě?

Veškeré mé pokusy datum různě převáděly na číslo či jiné paskvily.

Děkuji moc.

Uzamčeno - nelze přidávat nové příspěvky.

Poki(23.1.2015 11:19)#023240

Pokud ve sloupci A zacina datum hned prvnim radkem a v datech neni prazdny radek, lze to udelat takto (zacatek datumu lze samozrejme menit hodnotou 'i').

Sub PrevodFormatuDatumu()
Dim i As Long

i = 1 'prvni datum je v prvnim radku
Do Until Len(Cells(i, 1)) = 0
Cells(i, 1).NumberFormat = "dd.m."
i = i + 1
Loop
End Subcitovat

a.mlady(23.1.2015 11:19)#023241

Zdravím,

proč makrem? Použij formát buněk.citovat

Kubik(23.1.2015 11:37)#023242

Tak to sem špatně popsal. Má chyba.
Potřebuji, aby v buňce zustálo např. 1.1.
místo 1.1.2014.

Zůstatek bude muset být jako text nejspíš. A ta buňka se v budoucnu už jako datum chovat nemá.
Formát by to samozřejmě vyřešil, ale porád by se to pro následné operace chovalo jako 1.1.2014
Zkrátka smazat 2014 trvalecitovat

Poki(23.1.2015 11:55)#023243

Asi by to slo i elegantneji, ale tohle me napadlo prvni.

Sub PrevodDataNaText()
Dim i As Long

i = 1 'prvni datum je v prvnim radku
Do Until Len(Cells(i, 1)) = 0
Cells(i, 1) = Format(Day(Cells(i, 1)), "00") & "." & Month(Cells(i, 1)) & "."
i = i + 1
Loop
End Subcitovat

Kubik(23.1.2015 12:25)#023244

Vynikající..děkujicitovat

Uživatelské menu

Nejste přihlášen(a)

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.