diky, vse funguje, jen mam problem, ze kdyz zkopiruji vysledky stopek do jine tabulky, nechovaji se mi vysledky jako cislo, jak je prevest na cislo?
nebo v te vysledkove tabulce, jak nastavit, at to neni cislo, ale time?
stopky:
Sub stopTimer()
nr = ThisWorkbook.Sheets("stopky").Cells(Rows.Count, 6).End(xlUp).Row + 1
Cells(nr + k, 1).Value = k + 1
Cells(nr + k, 2).Value = Range("E3").Value
Cells(nr + k, 3).Value = Format(tCasZacatek - Now, "h:nn:ss,") & Format(Timer * 100 Mod 100, "00")
Range("E3").Value = 0
Range("E3").Select
k = k + 1
End Sub
tabulka.
.
.
UserForm1.TextBox2.Text = Replace(Cells(i + 1, 3).Text, ",", ".")
.
.
to jsem uz zkousel
ub Cas()
tCasZacatek = Now
tCasKonec = Now
tCas = tCasKonec - tCasZacatek
End Sub
Sub AktualizaceCasu()
UserForm1.Label10.Caption = Format(Now - tCasZacatek, "h:mm:ss,00")
NextTick = Now + TimeValue("00:00:01")
tCas = tCas + TimeValue("00:00:01")
Application.OnTime NextTick, "AktualizaceCasu"
ale neppocita mi to setiny, setiny jsou 00. pri ,ss to pise sekundy
tak jak to tady napsat, at to pise i setiny?a pocita je to
ahoj, mam v excelu casomiru a chtel bych, aby se zapisovaly i setiny. jak to udelat? mam to pres funkci Now - zacatek zavodu.
dekuji za rady
Sub Cas()
tCasZacatek = Now
tCasKonec = Now
tCas = tCasKonec - tCasZacatek
End Sub
Sub AktualizaceCasu()
UserForm1.Label10.Caption = Format(Now - tCasZacatek, "h:mm:ss")
NextTick = Now + TimeValue("00:00:01")
tCas = tCas + TimeValue("00:00:01")
Application.OnTime NextTick, "AktualizaceCasu"
End Sub
dik za radu
ahoj,
nejak si s tim nevim rady. jak zaokrouhlit cas na sekundy?
01:22:47.30
01:24:41.20
01:24:52.20
01:26:24.70
01:26:57.60
potrebuji se zbavit setin, ale zaokroulit je, ne je jen dat pryc. dekuji za radu
dik, dal jsem tam misto ; "F4:F" & a funguje to
jeste jednou dik
ahoj,
ja s temi zapisy bojuji,
potrebuji vypocitat prumer bunek F4 az F (hodnota v I2/10)
toto je spatne, jen at vite, o co mi jde
=PRŮMĚR(F4:F(I2/10))
predem moc dekuji
dekuji, vyreseno. prehledl jsem tam jednu chybu, nastesti ji nasel
jeste jednou dekuji za rady
ted jsem objevil jeste jeden problem, kdyz jsem dal pomoci makra zvetsit tabulku
ActiveSheet.ListObjects("TabulkaV").Resize Range("B3:P" & i)
tak se zvetsila, ale v bunkach se nenakopirovaly vzorce.
kdyz ji zvetsim rucne, zustanou tam.
nevite, jak to vyrestit?
uz jsem na to prisel
Range("B" & n,"O" & m).Select
a jak to zapsat, aby byl vysledek
B3:O5 ?
tohle nefunguje
Range("B" & n:"O" & m).Select
nevim, co jeste mam na tomhle spatne
nejak nikde nemuzu najit, jak to spravne zapisovat
Range("B & n:O" & m).Select
dik, funguje
ahoj,
nevim, jak to spravne zapsat, zkousel jsem uz toho hodne.
jde mi o to, ze chci zvetsit tabulku dle poctu plnych bunek na jinem listu
i = Cells(Rows.Count, "A").End(xlUp).Row
ActiveSheet.ListObjects("TabulkaV").Resize Range("$B$3, "$P$" & i") ???????? tohle nefunguje
dik za radu
ahoj, tohle neni presne to, co bych chtel. ja chci, at rowsource v Combobox2 je A3: posledni plny radek, nebo zkousel jsem tam dat do bunky C3 counfif, tak treba rowsource A3: A(C3). ale nevim, jak to zapsat a jestli to jde. neco jsem nasel na netu, vyzkousel, ale nefunguje.
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.