MS Excel

Potřebuji zapisovat časové údaje a protože používám notebook s numerickou klávesnici, tak nemůžu zapisovat dvojvotečku. Potřeboval bych zadávat nejlépe pouze např. 020945, což by se pak převedlo na čas 02:09:45 (formát času), jelikož pak časy potřebuji mezi sebou odečítat. Poradí mi prosím někdo jak toho dosáhnout?

Zaslat odpověď >

AL(21.9.2016 12:54)#032850

Šlo by to, napr. udalostnou procedúrou worsheet_change. Ale dá sa i inak. Pokiaľ je problém zadávať priamo dvojbodku, dá sa v automatických opravách nastaviť pravidlo. Ja napr. mám nastavené, že po zadaní ++ sa mi reťazec zmení na ;. Týmto spôsobom zadávam oddeľovač argumentov funkcie. Takže si vytvor pravidlo, ktoré bude zapisovať dvojbodku.citovat

eLCHa(21.9.2016 13:26)#032851

Nějak nerozumím tomu, že na nojbuku s numerickou klávesnicí nemůžete zadávat dvojtečku.
ALův způsob se mi líbí, asi je to řešení. Já mám ale zaměňování textu během psaní vypnuté, jsem na ně alergický.

Takže další 2 možnosti
1) Zadat číslo do buňky, tak jak jste uvedl tedy 20945 a naformátovat je formátem 00":"00":"00. Bude vypadat jako čas, ale nebude - bude tam stále vámi vložené číslo. Pro další výpočty s tímto údajem pak použít vzorec=ČAS(ZLEVA(HODNOTA.NA.TEXT(L3;"000000");2)/1;ČÁST(HODNOTA.NA.TEXT(L3;"000000");3;2)/1;ZPRAVA(HODNOTA.NA.TEXT(L3;"000000");2)/1)nebo si tento převod dejte bokem a ve výpočtech se odkazujte na něj

2)Na panel rychlý přístup si vytáhněte dvojtečku a vždy klikněte myší.

edit: pro hnidopichy

pokud chcete zabránit, aby šlo do buňky zadat číslo, které by "nebylo čas" - 455982, lze využít ověření dat se vzorcem=A(ZLEVA(HODNOTA.NA.TEXT(L3;"000000");2)/1<24;ČÁST(HODNOTA.NA.TEXT(L3;"000000");3;2)/1<60;ZPRAVA(HODNOTA.NA.TEXT(L3;"000000");2)/1<60)citovat

syd(21.9.2016 13:45)#032852

Treba pomuze toto.
Za pouziti mezery tento kod vlozeny do modulu listu1 premeni vse napsane do sloupce A napr. 02 09 45 -> 02:09:45.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
Application.EnableEvents = False
Target = Replace(Target.Value, " ", ":")
Target.NumberFormat = "hh:mm:ss"
Application.EnableEvents = True
End If
End Sub
citovat

eLCHa(21.9.2016 13:55)#032853

hech - napadl mně jednodušší vzorec=HODNOTA.NA.TEXT(L3;"00"":""00"":""00")/1a pro ověření dat=NE(JE.CHYBHODN(HODNOTA.NA.TEXT(L3;"00"":""00"":""00")/1))citovat

paulcof(21.9.2016 14:49)#032854

Tak řešní od ALa s nastavením pravidla mě vyhovuje. To mě nenapadlo, že se to dá takto jednoduše. Díky!citovat

Téma: Zadání času na numerické klávesnici

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje