Wie für eine bestimmte Zeit zu pausieren? (Excel/VBA)

Question

Ich habe ein Excel-Arbeitsblatt, das das folgende Makro hat. Ich würde es gern jede Sekunde wiederholen, aber dangered, wenn ich die Funktion dazu finde. Ist das nicht möglich?

Sub Macro1() 
' 
' Macro1 Macro 
' 
Do 
    Calculate 
    'Here I want to wait for one second 

Loop 
End Sub 

Answer 1

Verwenden Sie die Wait method:

Application.Wait Now + #0:00:01# 

oder (für Excel 2010 und später):

Application.Wait Now + #12:00:01 AM# 

Answer 2

Fügen Sie diese auf Ihrem Modul

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 

Oder für 64 -Bit-Systeme verwenden:

Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr) 

Nennen Sie es in Ihrem Makro wie folgt:

Sub Macro1() 
' 
' Macro1 Macro 
' 
Do 
    Calculate 
    Sleep (1000) ' delay 1 second 

Loop 
End Sub 

Answer 3

Try this:

Threading.thread.sleep(1000) 

Answer 4

diese einwandfrei funktioniert für mich. fügen Sie einen beliebigen Code vor oder nach der "Do To" -Schleife ein. In Ihrem Fall, legen Sie die 5 Zeilen (time1 = & zeit2 = & "tun, bis" Loop) am Ende in Ihrem do-Schleife

sub whatever() 
Dim time1, time2 

time1 = Now 
time2 = Now + TimeValue("0:00:01") 
    Do Until time1 >= time2 
     DoEvents 
     time1 = Now() 
    Loop 

End sub 

Answer 5

Die Erklärung für Schlaf in kernel32.dll nicht in 64- arbeiten Bit Excel. Dies wäre ein wenig allgemeiner sein:

#If VBA7 Then 
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
#Else 
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 
#End If 

Answer 6

statt mit:

Application.Wait(Now + #0:00:01#) 

i bevorzugen:

Application.Wait(Now + TimeValue("00:00:01")) 

weil es viel einfacher ist, danach zu lesen.

Answer 7

Application.Wait Second(Now) + 1

Answer 8

Ich hatte das Problem zu beantworten gemacht:

Sub goTIMER(NumOfSeconds As Long) 'in (seconds) as: call gotimer (1) 'seconds 
    Application.Wait now + NumOfSeconds/86400# 
    'Application.Wait (Now + TimeValue("0:00:05")) 'other 
    Application.EnableEvents = True  'EVENTS 
End Sub 

Answer 9

Function Delay(ByVal T As Integer) 
    'Function can be used to introduce a delay of up to 99 seconds 
    'Call Function ex: Delay 2 {introduces a 2 second delay before execution of code resumes} 
     strT = Mid((100 + T), 2, 2) 
      strSecsDelay = "00:00:" & strT 
    Application.Wait (Now + TimeValue(strSecsDelay)) 
End Function 

Answer 10

Nur aufgeräumt Version von Code des clemo - funktioniert in Access, die nicht die Application.Wait hat Funktion.

Public Sub Pause(sngSecs As Single) 
    Dim sngEnd As Single 
    sngEnd = Timer + sngSecs 
    While Timer < sngEnd 
     DoEvents 
    Wend 
End Sub 

Public Sub TestPause() 
    Pause 1 
    MsgBox "done" 
End Sub 

Answer 11

Normalerweise verwende ich die Timer Funktion, um die Anwendung zu unterbrechen. Fügen Sie diesen Code auf dein

T0 = Timer 
Do 
    Delay = Timer - T0 
Loop Until Delay = 1 'Change this value to pause time for certain amount of seconds 

Answer 12

Hier ist eine Alternative zu schlafen:

Sub TDelay(delay As Long) 
Dim n As Long 
For n = 1 To delay 
DoEvents 
Next n 
End Sub 

Im folgenden Code, den ich eine „glow“ -Effekt blinkt auf einer Spin-Taste, um die Benutzer, um es zu lenken, wenn sie "Probleme haben", die Verwendung von "Schlaf 1000" in der Schleife führte zu keinem sichtbaren Blinken, aber die Schleife funktioniert gut.

Sub SpinFocus() 
Dim i As Long 
For i = 1 To 3 '3 blinks 
Worksheets(2).Shapes("SpinGlow").ZOrder (msoBringToFront) 
TDelay (10000) 'this makes the glow stay lit longer than not, looks nice. 
Worksheets(2).Shapes("SpinGlow").ZOrder (msoSendBackward) 
TDelay (100) 
Next i 
End Sub