Vba में eomonth का उपयोग कैसे करें (उदाहरण के साथ)

आप किसी दी गई तारीख के लिए महीने का अंतिम दिन वापस करने के लिए VBA में EoMonth विधि का उपयोग कर सकते हैं।

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

 Sub LastDayOfMonth()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = Application.WorksheetFunction.EoMonth(Range(" A " & i), 0)
    Range(" C " & i).NumberFormat = " m/d/yyyy "
Next i

End Sub

यह विशेष मैक्रो A2:A11 श्रेणी में प्रत्येक तिथि के लिए महीने का अंतिम दिन ढूंढता है और उस तिथि को श्रेणी C2:C11 में संबंधित सेल में प्रदर्शित करता है।

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

उदाहरण: VBA में EoMonth का उपयोग कैसे करें

मान लीजिए कि हमारे पास एक्सेल में निम्नलिखित डेटा सेट है जिसमें किसी कंपनी द्वारा विभिन्न तिथियों पर की गई बिक्री के बारे में जानकारी है:

मान लीजिए कि हम कॉलम ए में प्रत्येक तारीख के लिए महीने का आखिरी दिन ढूंढना चाहते हैं और इसे कॉलम सी में प्रदर्शित करना चाहते हैं।

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

 Sub LastDayOfMonth()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i).Value = Application.WorksheetFunction.EoMonth(Range(" A " & i), 0)
    Range(" C " & i).NumberFormat = " m/d/yyyy "
Next i

End Sub

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

ध्यान दें कि कॉलम सी में कॉलम ए में प्रत्येक संबंधित तारीख के लिए महीने का आखिरी दिन होता है।

ध्यान दें कि हमने सीरियल नंबरों के बजाय कॉलम सी में पहचानने योग्य दिनांक प्रारूप में दिनांक मान प्रदर्शित करने के लिए नंबरफॉर्मैट प्रॉपर्टी का उपयोग किया था, जो एक्सेल में डिफ़ॉल्ट प्रारूप है।

यह भी ध्यान दें कि EoMonth पद्धति का अंतिम तर्क महीने के अंतिम दिन की गणना करते समय उपयोग किए जाने वाले आगे या पीछे के महीनों की संख्या निर्दिष्ट करता है।

इस उदाहरण में, हमने यह निर्दिष्ट करने के लिए मान 0 का उपयोग किया है कि हम चालू माह का अंतिम दिन खोजना चाहते हैं।

हालाँकि, हम यह निर्दिष्ट करने के लिए -1 के मान का उपयोग कर सकते हैं कि हम पिछले महीने का अंतिम दिन खोजना चाहते हैं या 1 के मान का उपयोग यह निर्दिष्ट करने के लिए कर सकते हैं कि हम अगले महीने का अंतिम दिन खोजना चाहते हैं।

नोट : आप VBA में EoMonth विधि का पूरा दस्तावेज़ यहां पा सकते हैं।

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

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

वीबीए में तारीखों की तुलना कैसे करें
VBA में स्ट्रिंग को दिनांक में कैसे परिवर्तित करें
वीबीए में दो तिथियों के बीच दिनों की गणना कैसे करें