• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Vypis v intervalu kratsim nez 1s

Zaslal/a DavDvo 28.11.2013 11:16

Poradi nekdo, jak ve VBA zajistit vypis urcite promenne v pravidelnem intervalu kratsim nez 1s? Nemuzu se dopatrat funkce, ktera by umela pracovat s casy kratsimi nez 1s. Potrebuju vypis kazde 0.2s. Potreboval bych vypsat danou promennou a pak cas rovnez s presnosti na 0.2 s.
Predem diky
David

Zaslat odpověď >

---

Palooo(28.11.2013 11:37)#016559

to uz sa riesilo tu:
http://wall.cz/index.php?m=topic&id=13871citovat

DavDvo(28.11.2013 11:46)#016560

Diky, ale myslim ze potrebuju neco jineho. Nesmim zastavit beh makra na xy ms, ale chci vzdycky, kdyz cas pokroci o hodnotu xy ms, vypsat hodnoty dane promenne.
Davidcitovat

Palooo(28.11.2013 11:53)#016561

no jednoduchsie by bolo vypisovat to non stop a potom nakoniec to vyfiltrovat :) nic ine ma nenapadacitovat

DavDvo(28.11.2013 12:01)#016562

Myslim ze to pujde resit pomoci funkce Timer. Ta vraci pocet vterin od pulnoci s presnosti na nejake ty desetiny.citovat

Palooo(28.11.2013 12:08)#016563

prihodte prilohu takto mozem hadat naco to presne potrebujetecitovat

DavDvo(28.11.2013 12:19)#016565

do while Cells(1,1) <> "STOP"
DoEvents
Result = Cells(2,4)+Cells(2,5)
'obsah bunek se meni
'posila to do nich jina aplikace
If ""time.pokrocil.o.2.desetiny"" then
J=J+1
Cells(J,2)=Result
endif

Loopcitovat

Palooo(28.11.2013 13:29)#016566

netusim ci to je spravne ale skuste toto:

Sub test()
TestTime = VBA.DateTime.Timer + 0.01
For x = 1 To 10000
Cells(x, 1) = x
If VBA.DateTime.Timer >= TestTime Then
y = y + 1
Cells(y, 2) = VBA.DateTime.Timer
TestTime = VBA.DateTime.Timer + 0.01
End If
Next
End Subcitovat

DavDvo(28.11.2013 19:18)#016569

Ano, diky, Timer funguje.
Pozadovane 2/10s jsou pak reprezentovany hodnotou
Timer + 0.2
Davidcitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse