विशिष्ट समय के लिए कैसे रोकें? (एक्सेल / VBA)


Answers

इसे अपने मॉड्यूल में जोड़ें

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
Question

मेरे पास एक एक्सेल वर्कशीट है जिसमें निम्न मैक्रो है। मैं इसे हर सेकेंड लूप करना चाहता हूं लेकिन अगर मैं ऐसा करने के लिए फ़ंक्शन पा सकता हूं तो मुझे डर लगाना चाहिए। क्या यह संभव नहीं है?

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

Loop
End Sub



क्लीमो के कोड का बस एक साफ़ संस्करण - एक्सेस में काम करता है, जिसमें एप्लिकेशन नहीं है। प्रतीक्षा करें।

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



इसे इस्तेमाल करे :

Threading.thread.sleep(1000)



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



यह मेरे लिए बेकार ढंग से काम करता है। "कब तक" लूप से पहले या उसके बाद कोई भी कोड डालें। अपने मामले में, अपने लूप के अंदर अंत में 5 लाइनें (time1 = और time2 = और "do till" loop डालें)

sub whatever()
Dim time1, time2

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

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





Related