excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Vypis v intervalu kratsim nez 1s
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
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
Davidcitovat
no jednoduchsie by bolo vypisovat to non stop a potom nakoniec to vyfiltrovat :) nic ine ma nenapadacitovat
Myslim ze to pujde resit pomoci funkce Timer. Ta vraci pocet vterin od pulnoci s presnosti na nejake ty desetiny.citovat
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
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
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
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
Ano, diky, Timer funguje.
Pozadovane 2/10s jsou pak reprezentovany hodnotou
Timer + 0.2
Davidcitovat
Pozadovane 2/10s jsou pak reprezentovany hodnotou
Timer + 0.2
Davidcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
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.
RSS nejnovější články