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
převod času z nevhodného importu
převod času z nevhodného importu
- Přílohy
-
- příklad.xlsx
- (8.99 KiB) Staženo 15 x
Naposledy upravil(a) _Tom_ dne 20 úno 2014 10:27, celkem upraveno 1 x.
-
- člen HW spec týmu
-
Elite Level 12
- Příspěvky: 16106
- Registrován: květen 08
- Bydliště: České Budějovice
- Pohlaví:
- Stav:
Offline
Re: převod času z nehhodného importu
Tak sem ještě přidej ukázku v tom Excelu a bude to super
Nikdy neříkej, že to nejde, protože se najde někdo, kdo o tom neví a udělá to!
Chcete si nechat sestavit nový počítač?
Chcete si nechat sestavit nový počítač?
Re: převod času z nehhodného importu
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
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 :(
- 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
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:
Podmínky by asi bylo dobré ještě vyladit.
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.
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 7
- 1153
-
od Gerete
Zobrazit poslední příspěvek
23 led 2024 21:27
-
- 23
- 4747
-
od petr22
Zobrazit poslední příspěvek
25 lis 2023 19:59
-
- 3
- 1514
-
od BigSandy
Zobrazit poslední příspěvek
26 kvě 2023 09:49
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů