जवाबों:
प्रतीक्षा विधि का उपयोग करें :
Application.Wait Now + #0:00:01#या (एक्सेल 2010 और बाद के लिए):
Application.Wait Now + #12:00:01 AM#Application.Wait(Now + #0:00:01#)चीयर्स!
Application.Wait (Now + TimeValue("0:00:01"))
Application.wait(now + 1e-5)एक सेकंड के लिए, Application.wait(now + 0.5e-5)आधे सेकंड के लिए उपयोग करना पसंद है
इसे अपने मॉड्यूल में जोड़ें
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)या, 64-बिट सिस्टम उपयोग के लिए:
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)इसे अपने मैक्रो में कॉल करें जैसे:
Sub Macro1()
'
' Macro1 Macro
'
Do
Calculate
Sleep (1000) ' delay 1 second
Loop
End Sub
Sleep()आप 1 सेकंड से कम का प्रतीक्षा समय निर्दिष्ट करते हैं। Application.Waitकभी-कभी बहुत दानेदार होता है।
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
के बजाय का उपयोग करने का:
Application.Wait(Now + #0:00:01#)मैं पसंद करता हूं:
Application.Wait(Now + TimeValue("00:00:01"))क्योंकि बाद में पढ़ना बहुत आसान है।
यह मेरे लिए निर्दोष रूप से काम करता है। "जब तक" लूप से पहले या बाद में कोई भी कोड डालें। अपने मामले में, अपने अंत छोर के अंदर 5 लाइनों (time1 = & time2 = & "अंत तक" लूप) डालें "
sub whatever()
Dim time1, time2
time1 = Now
time2 = Now + TimeValue("0:00:01")
Do Until time1 >= time2
DoEvents
time1 = Now()
Loop
End sub
Timerक्योंकि Timerदृष्टिकोण आधी रात से पहले विफल हो जाता है।
कर्नेल 32.dll में स्लीप की घोषणा 64-बिट एक्सेल में काम नहीं करेगी। यह थोड़ा और सामान्य होगा:
#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
क्लीमो के कोड का केवल एक साफ किया गया संस्करण - एक्सेस में काम करता है, जिसमें Application.Wait फ़ंक्शन नहीं है।
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
Timerआधी रात के बाद से सेकंड की संख्या देता है, तो यह दृष्टिकोण विफल हो जाता है यदि इसे आधी रात से पहले निष्पादित किया जाता है (यानी, ऐसा है sngEnd= = 86,400)। आधी रात को, Timer0 पर रीसेट करता है और इस तरह sngEndहमेशा के लिए कम रहता है।
प्रस्तुत समाधानों में से अधिकांश Application.Wait का उपयोग करते हैं, जो कि समय (मील के सेकंड) को ध्यान में नहीं रखता है क्योंकि पहले से ही दूसरी गणना शुरू होने के बाद से समाप्त हो गया है, इसलिए उनके पास 1 सेकंड तक का आंतरिक इंप्रेशन है ।
टाइमर दृष्टिकोण सबसे अच्छा समाधान है , लेकिन आपको आधी रात को रीसेट को ध्यान में रखना होगा, इसलिए यहां टाइमर के लिए एक बहुत ही सटीक नींद विधि है:
'You can use integer (1 for 1 second) or single (1.5 for 1 and a half second)
Public Sub Sleep(vSeconds As Variant)
Dim t0 As Single, t1 As Single
t0 = Timer
Do
t1 = Timer
If t1 < t0 Then t1 = t1 + 86400 'Timer overflows at midnight
DoEvents 'optional, to avoid excel freeze while sleeping
Loop Until t1 - t0 >= vSeconds
End Sub
किसी भी समारोह का परीक्षण करने के लिए इस का उपयोग करें: (खुली डिबग तत्काल विंडो: CTRL + G)
Sub testSleep()
t0 = Timer
Debug.Print "Time before sleep:"; t0 'Timer format is in seconds since midnight
Sleep (1.5)
Debug.Print "Time after sleep:"; Timer
Debug.Print "Slept for:"; Timer - t0; "seconds"
End Sub
Application.Wait Second(Now) + 1
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यहाँ सोने का विकल्प है:
Sub TDelay(delay As Long)
Dim n As Long
For n = 1 To delay
DoEvents
Next n
End Subनिम्नलिखित कोड में मैं एक "ग्लो" इफ़ेक्ट ब्लिंक को स्पिन बटन पर लगाता हूँ ताकि उपयोगकर्ताओं को यह निर्देशित किया जा सके कि अगर उन्हें "परेशानी" हो रही है, तो लूप में "स्लीप 1000" का उपयोग करने से कोई दृश्यमान ब्लिंकिंग नहीं हुई, लेकिन लूप बढ़िया काम कर रहा है।
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मैंने इस समस्या का जवाब देने के लिए यह किया था:
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मैं आमतौर पर अनुप्रयोग को रोकने के लिए टाइमर फ़ंक्शन का उपयोग करता हूं । इस कोड को आप डालें
T0 = Timer
Do
Delay = Timer - T0
Loop Until Delay >= 1 'Change this value to pause time for a certain amount of secondsTimerआधी रात के बाद से सेकंड की संख्या देता है, तो यह दृष्टिकोण विफल हो जाता है यदि इसे आधी रात से पहले निष्पादित किया जाता है (यानी, जैसे कि T0आधी रात से विलंब सेकंड की संख्या से कम है)। आधी रात को, Timerविलंब सीमा पूरी होने से पहले 0 तक रीसेट करता है। Delayदेरी की सीमा तक कभी नहीं पहुंचता है, इसलिए लूप हमेशा के लिए चलता है।
Loop Until Delay >= 1, या आप 1 से अधिक होने का जोखिम उठाते हैं और कभी भी लूप से बाहर नहीं निकलते हैं।
प्रतीक्षा और नींद कार्य एक्सेल को बंद कर देते हैं और देरी खत्म होने तक आप कुछ और नहीं कर सकते। दूसरी ओर लूप देरी आपको प्रतीक्षा करने का सटीक समय नहीं देती है।
इसलिए, मैंने इस अवधारणा को दोनों अवधारणाओं में थोड़ा सा जोड़कर बनाया है। यह तब तक लूप करता है जब तक समय आप चाहते हैं।
Private Sub Waste10Sec()
target = (Now + TimeValue("0:00:10"))
Do
DoEvents 'keeps excel running other stuff
Loop Until Now >= target
End Subआपको बस Waste10Sec पर कॉल करने की आवश्यकता है जहां आपको देरी की आवश्यकता है
आप अब अनुप्रयोग का उपयोग कर सकते हैं। अब टाइमलाइन ("00:00:01") या एप्लिकेशन का उपयोग करें। अब + टाइमरियल (0,0,1)
DoEventsयहाँ डेमो के रूप में चाहते हैं dailydoseofexcel.com/archives/2005/06/14/stopwatch