मैं कोशिकाओं की सामग्री को साफ़ करने के लिए एक साधारण मैक्रो चलाने के लिए देख रहा हूं जब सेल F4 में समय सात मिनट से कम हो जाता है (यह सेल एपीआई द्वारा अपडेट किया जाता है)। सेल F4 के पास hh:mm:ss प्रारूप में समय है। मेरा कोड है

Sub worksheet_change(ByVal Target As Range)
Application.EnableEvents = True
Set Target = Range("F4")
If Target.Value <= Minute(7) Then
    Call myClearContents
Application.EnableEvents = False
End If
End Sub

यह कोड वर्कशीट में है और ClearContents मैक्रो एक मॉड्यूल में है। मैंने सामान्य Google और स्टैक ओवरफ्लो खोज की है, लेकिन कोई भाग्य नहीं है। कोई विचार क्यों यह काम नहीं कर रहा है?

अग्रिम में धन्यवाद।

0
Will 25 अक्टूबर 2019, 16:08

1 उत्तर

सबसे बढ़िया उत्तर

ये कोशिश करें:

Application.EnableEvents = False
' get F3 time
t = CDate(Cells(3, 6))
' get current time
tNow = TimeValue(Now())
' get the difference in minutes
diff = DateDiff("n", t, tNow)

If diff > 7 Then
    Call ClearContents
End If

Application.EnableEvents = True
0
Michał Turczyn 26 अक्टूबर 2019, 15:49