< návrat zpět

MS Excel


Téma: Konverze textu rss

Zaslal/a 21.9.2009 18:53

Dobrý den,
mám text 20090618000100 - jde o formát datumu a času
rrrrmmddhhmmss jak tento text převést na smysluplný formát data a času vhodný pro práci v execelu a nejlépe automatizovaně - makrem ( celý sloupec těchto hodnot) ? děkuji

Zaslat odpověď >

#000734
Jeza.m
Dobrý den,

možností bude více:
- Nejsnažší pro ty co makra nepoužívají je použití vzorce:
=DATUM(ZLEVA(A1;4);ČÁST(A1;5;2);ČÁST(A1;7;2))+ČAS(ČÁST(A1;9;2);ČÁST(A1;11;2);ČÁST(A1;13;2))
za předpokladu že textové vyjádření je v buňce A1. Tento vzorec pak lze např. dvojklikem v pravém dolním rohu buňky s již zapsaným vzorcem, roztáhnout pro všechny buňky s hodnotou ve sloupci A.
- Použití zápisu pro každou buňku ve sloupci B pomocí makra:

Public Sub exctract_data1()
Dim rd As Single
rd = 2
Do While Cells(rd, 1) <> ""
Cells(rd, 2).Formula = "=DATE(LEFT(A" & rd & ",4),MID(A" & rd & ",5,2),MID(A" & rd & ",7,2))+TIME(MID(A" & rd & ",9,2),MID(A" & rd & ",11,2),MID(A" & rd & ",13,2))"
Cells(rd, 2).NumberFormat = "dd/mm/yyyy \/ hh:mm:ss"
rd = rd + 1
Loop
End Sub

tento příklad začíná od druhého řádku a do sloupce B vkládá výše zmíněný vzorec. U tohoto příkladu bych doporučil použít na začátku makra Application.screenupdating = false a na konci to zase povolit - zrychlí to běh makra.

- vložení vzorce a nakopírování do zbývajících buňek (asi to bude rychlejší než předchozí :-) )

Public Sub exctract_data2()
Dim rd As Single
rd = 2
Cells(rd, 2).Formula = "=DATE(LEFT(A" & rd & ",4),MID(A" & rd & ",5,2),MID(A" & rd & ",7,2))+TIME(MID(A" & rd & ",9,2),MID(A" & rd & ",11,2),MID(A" & rd & ",13,2))"
Cells(rd, 2).NumberFormat = "dd/mm/yyyy \/ hh:mm:ss"

Do While Cells(rd, 1) <> ""
rd = rd + 1
Loop
Cells(2, 2).Copy
Range("B3", "B" & rd - 1).PasteSpecial xlPasteAll

End Sub


To co je napsáno vzorcem by šlo vyřešit i v makru, ale je to potřeba?

M@citovat
#000736
avatar
Myslím, že mi toto stačí. Velmi děkuji.citovat

Uživatelské menu

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

Menu

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.

Aktivní diskuse

Makro na upozornění události

elninoslov • 21.5. 2:38

Sloučení dat dvou sešitů

Scraper • 20.5. 7:55

Sloučení dat dvou sešitů

Stalker • 19.5. 23:06

Makro na upozornění události

parkovec • 19.5. 21:07

plynulá pomalá změna barvy

PavDD • 19.5. 13:47

plynulá pomalá změna barvy

veny • 19.5. 13:23

plynulá pomalá změna barvy

r13 • 19.5. 12:37