< návrat zpět

MS Excel

Téma: Ako udrzat aplikaciu pri zivote (not responding) rss

Zaslal/a Slavomir 29.12.2011 16:55

Este jedna otazka. To makro sa spracuvava strasne dlho a excel sa chvilu tvary ako "not responding". Makro riadne dokonci, len by som to chcel udrzat "pri zivote" (nastavit interval kedy ma povazovat aplikaciu ako "not responding")

Zaslat odpověď >
Margo(29.12.2011 18:00)#006800
avatar
Použijte následující kody
Makro se spustit přes 10 minut po otveření.
Otevřete vaše makro a pište

newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 600
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.Wait waitTime

nebo
application.wait now()+ timevalue("00:10:00")citovat
misocko(29.12.2011 19:06)#006801
avatar
Štučka: to co pises iba oneskori start, ak som dobre pochopil tak Slavomír chce ukoncit makro ak samo neskonci do urciteho casu.citovat
Margo(29.12.2011 23:54)#006803
avatar
Něco takového. Můžete upravit sám.

Sub Macro()

yy = TimeValue("0:00:00")

for yy=TimeValue("0:00:00") to TimeValue("0:10:01") Step TimeValue ("0:00:01")

vaš kod

if yy=TimeValue("0:10:00") then Exit Sub

Next yy

End Subcitovat
misocko(30.12.2011 9:02)#006804
avatar
Štučka: bohuzial Tvoj kod nepocita cas ale iba pridava 1sec pri kazdom prechode kodu Tvojim FOR (bez ohladu na to ako dlho trva spracovanie hlavneho kodu), to co potrebuje Slavomir bude nejaky kod ktory bude paralelne bezat popri hlavnom kode (myslim ze som to niekde videl - len bohuzial mommentalne neviem kde to mam u seba v PC hladat 5 )citovat
misocko(30.12.2011 11:09)#006805
avatar
Sub cas()

cas_konca_makra = Now() + TimeValue("00:01:00")
' tvoj kod

If Now() > cas_konca_makra Then GoTo Konec 'tento riadok daj vsade tam kde chces aby sa kontrolovalo ci uz nieje prekroceny cas behu makra - najcastejsie nejke cykly ktore sa z nejakeho dovodu zacyklia

' tvoj kod

Konec:
MsgBox ("prekroceny cas")

End Subcitovat
Slavomir(2.1.2012 16:21)#006832
avatar
Ja potrebujem aby makro dokoncilo svoje triedenie a zapisalo hodnoty bez toho otravneho "not responding"

Mam v nom vela "for each" cyklov a excel sa chvilu tvari ako zmrznuty ale po cca 1-2 min, ked to dokonci tak sa opat aktivuje.citovat
misocko(11.1.2012 17:27)#006931
avatar
nerozumiem , system (windows) Ti vypise "not responding" ?, alebo excel? musis potvrdit nejaku tabulku? alebo to len vyzera ze nic neroby, ak to iba vyzera ze nic neroby co by si chcel aby to pocas behu dlheho makra robilo? - premietanie filmou? mp3?
(teraz som si spravil makro ktore vyplni vsetky bunky na liste nejakou vypocitanou hodnotou , bezi uz 5 min a stale ziadne "not responding" - ano tvari sa tak ale bohuzial co by som od toho mal cakat ked maka?)citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje