वीबीए: तारीख से महीने का नाम कैसे प्राप्त करें

एक्सेल में किसी तारीख से महीने का नाम प्राप्त करने के लिए आप वीबीए में मंथनेम फ़ंक्शन का उपयोग कर सकते हैं।

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

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i) = MonthName(Month(Range(" A " & i)))
Next i

End Sub

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

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

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

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

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

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

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i)= MonthName(Month(Range(" A " & i)))
Next i

End Sub

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

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

यदि आप इसके बजाय संक्षिप्त महीने का नाम वापस करना चाहते हैं, तो आप मंथनेम फ़ंक्शन में एक वैकल्पिक ट्रू तर्क का उपयोग इस प्रकार कर सकते हैं:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i)= MonthName(Month(Range(" A " & i)), True )
Next i

End Sub

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

कॉलम सी में अब कॉलम ए में प्रत्येक मिलान तिथि के लिए संक्षिप्त महीने का नाम शामिल है।

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

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

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