वीबीए: सेल एक तारीख है या नहीं यह जांचने के लिए isdate का उपयोग कैसे करें


आप VBA में IsDate फ़ंक्शन का उपयोग यह जांचने के लिए कर सकते हैं कि कोई दिया गया सेल एक दिनांक है या नहीं।

यदि किसी दिए गए सेल में मान को दिनांक के रूप में पहचाना जाता है तो यह फ़ंक्शन सत्य लौटाएगा।

अन्यथा, फ़ंक्शन False लौटाएगा।

इस फ़ंक्शन को व्यवहार में उपयोग करने का एक सामान्य तरीका यहां दिया गया है:

 SubCheckDate ()
    
Dim i As Integer

For i = 1 To 9
    
    If IsDate(Range(" A " & i)) = True Then
        Range(" B " & i) = " Is a Date "
    Else
        Range(" B " & i) = " Is Not a Date "
    End If
Next i
    
End Sub

यह विशेष मैक्रो जाँच करेगा कि A1:A9 श्रेणी में प्रत्येक कक्ष एक दिनांक है या नहीं।

यदि कोई सेल एक तारीख है, तो “क्या एक तारीख है” श्रेणी B1:B9 में संबंधित सेल में लौटा दी जाएगी।

यदि कोई सेल दिनांक नहीं है, तो इसके स्थान पर “तिथि नहीं है” लौटा दिया जाएगा।

निम्नलिखित उदाहरण दिखाता है कि व्यवहार में इस वाक्यविन्यास का उपयोग कैसे करें।

उदाहरण: वीबीए में IsDate का उपयोग कैसे करें

मान लीजिए कि हमारे पास Excel में मानों का निम्नलिखित कॉलम है:

मान लीजिए हम यह जांचना चाहते हैं कि कॉलम ए में प्रत्येक सेल एक तारीख है या नहीं।

ऐसा करने के लिए हम निम्नलिखित मैक्रो बना सकते हैं:

 SubCheckDate ()
    
Dim i As Integer

For i = 1 To 9
    
    If IsDate(Range(" A " & i)) = True Then
        Range(" B " & i) = " Is a Date "
    Else
        Range(" B " & i) = " Is Not a Date "
    End If
Next i
    
End Sub

जब हम इस मैक्रो को चलाते हैं, तो हमें निम्नलिखित आउटपुट प्राप्त होता है:

कॉलम बी हमें बताता है कि कॉलम ए में प्रत्येक मिलान सेल को दिनांक के रूप में पहचाना गया है या नहीं।

ध्यान दें कि हम “तिथि है” या “तिथि नहीं है” लौटाना चुनते हैं, लेकिन आप यदि अन्यथा कथन का उपयोग करके जो चाहें वापस कर सकते हैं।

नोट : आप VBA IsDate फ़ंक्शन के लिए संपूर्ण दस्तावेज़ यहां पा सकते हैं।

अतिरिक्त संसाधन

निम्नलिखित ट्यूटोरियल बताते हैं कि वीबीए में अन्य सामान्य कार्य कैसे करें:

वीबीए: तारीख से महीने का नाम कैसे प्राप्त करें
वीबीए: डेटवैल्यू फ़ंक्शन का उपयोग कैसे करें
वीबीए: तारीख से बड़ी संख्या

एक टिप्पणी जोड़ने

आपका ईमेल पता प्रकाशित नहीं किया जाएगा. आवश्यक फ़ील्ड चिह्नित हैं *