Stránka 1 z 1

převod času z nevhodného importu

Napsal: 20 úno 2014 08:29
od _Tom_
Dobrý den,
měl bych prosbu

používám import časového údaje přes ctrl+c ctrl+v
kopíruji tedy hodnotu času ve formátu HH:MM (18:26) - 18minut a 26 vteřin
jenže jakmile to hodím do excelu tak to má formát HH:MM:SS - 18:26:00

excel to v buňce to zobrazí správně "18:26" samozřejmě jen do 23:59, poté do toho excel správně zasáhne a začne používat dny

a potřeboval bych to právě převést jen na MM:SS

Zkoušel jsem formáty buňěk, ale bude v tom asi strašně jednoduchý postup jen potřebuji postrčit.

díky za rady

--- Doplnění předchozího příspěvku (20 Úno 2014 08:32) ---

možná by mi pomohlo, kdybych dokázal do buňky automaticky přidat " 00: " na začátek a pak všechny buňky převést na formát hh:mm:ss

Re: převod času z nehhodného importu

Napsal: 20 úno 2014 08:33
od d1amond
Tak sem ještě přidej ukázku v tom Excelu a bude to super ;)

Re: převod času z nehhodného importu

Napsal: 20 úno 2014 09:49
od lubo.
Převod je snadný, stačí obsah buněk vydělit 60. Pokud toho je více v souvislé oblasti, dej do schránky 60, vyber oblast, vložit jinak, hodnoty, dělit.

Re: převod času z nehhodného importu

Napsal: 20 úno 2014 10:28
od _Tom_
zkusil jsem připojit příklad

- nenechalo by se nějak vytvořit do vlastních formátů buňky "vzorec" mm:ss/60 ? to je asi hloupost že :(

Re: převod času z nevhodného importu

Napsal: 20 úno 2014 18:29
od lubo.
To převedení najednou - jak jsem už psal: dej do schránky 60, vyber oblast, vložit jinak, hodnoty, dělit.

Jinak lze (osobně to nepoužívám, ani nedoporučuji) použít událost listu, zhruba nějak tak:

Kód: Vybrat vše

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rBunka As Range
   
   For Each rBunka In Target.Cells
      With rBunka
         If Not IsNumeric(.Value) Then GoTo Dal:
         If .NumberFormat = "h:mm" Then
            Application.EnableEvents = False
            .Value2 = .Value2 / 60
            .NumberFormat = "[m]:ss"
            Application.EnableEvents = True
         End If
      End With
Dal:
   Next
End Sub


Podmínky by asi bylo dobré ještě vyladit.