Wpis z mikrobloga

@coTYkcesz: @Saeglopur: @reneq16: Panowie, pytanie nieco trudniejsze:
Chciałbym, by po wpisaniu 14 zamiast 00:00 wpisała mi się godzina: 14:00

Można to jakoś ogarnąć?
Aktualnie żeby wpisać godzinę muszę wpisać całość, czyli: 14:00, a potrzebuję, by on sam uzupełniał sobie zera.

No i potrzebuję czasem wpisać: 14:30, co powinno działać normalnie tak jak wpisuję. Da radę to ogarnąć?
Wpisuj tak: 930 dla minut 14 dla pełnych godzin. W zestawie makro(bez dobrego error handlingu, wiec wpisuj uważnie ( ͡° ͜ʖ ͡°) )

Sub changedatetype

sVal = 0

Set colRng = cells(1,1).entieecolumn
For each cl in colrng.specialcells(xlcelltypeconstants).cells
Hval = 0
Mval = 0
If len(cl.value) = 1 or len(cl.value) =2 then
Hval = cl.value
Cl.value = timeserial(hval,mval,sval)
Elseif len(cl.value) =3 or len(cl.value) = 4 then
Hval