Cells(1, 2) = Format(Cells(1, 1), "dd")
Cells(1, 3) = Format(Cells(1, 1), "mm")
Cells(1, 4) = Format(Cells(1, 1), "yy")
citovat
Zaslal/a
19.11.2014 17:07Zdravím,
ve sloupci A mám cca 500 datumů ve formátu d.m.rrrr a potřebuji do sloupce B jen den ve formátu dd do sloupce C jen měsír ve formátu mm a do sloupce D jen rok ve formátu rr. Ale potřebuji to ve VBA, protože budu vybírat jen určité řádky. Vytvořil jsem toto, ale rok pořád zůstává ve formátu rrrr.
Cells(1, 2) = Day(Cells(1, 1))
Cells(1, 3) = Month(Cells(1, 1))
Cells(1, 4) = Year(Cells(1, 1))
Cells(1, 2).NumberFormat = "00"
Cells(1, 3).NumberFormat = "00"
Cells(1, 4).NumberFormat = "00"
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.