वीबीए: तारीख से बड़ी संख्या

आप किसी विशिष्ट तिथि से अधिक तिथियों की संख्या की गणना करने के लिए वीबीए में निम्नलिखित मूल वाक्यविन्यास का उपयोग कर सकते हैं:

 Sub CountifGreaterDate()
Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A10 "), ">" & Range(" C2 "))
End Sub

यह विशेष उदाहरण श्रेणी A2:A10 में दिनांकों की संख्या की गणना करता है जो सेल C2 में दिनांक से अधिक हैं।

फिर परिणाम सेल D2 को सौंपा गया है।

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

उदाहरण: VBA का उपयोग करके दिनांक से अधिक की गणना करें

मान लीजिए कि हमारे पास एक्सेल में तारीखों की निम्नलिखित सूची है और हम 04/25/2023 से बड़ी तारीखों की संख्या जानना चाहेंगे:

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

 Sub CountifGreaterDate()
Range(" D2 ") = WorksheetFunction.CountIf(Range(" A2:A10 "), ">" & Range(" C2 "))
End Sub

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

सेल D2 हमें बताता है कि A2:A10 श्रेणी में 04/25/2023 से अधिक 6 तिथियां हैं।

ध्यान दें कि हम सेल C2 में मान बदल सकते हैं और किसी भिन्न विशिष्ट तिथि से अधिक तिथियों की संख्या की गणना करने के लिए मैक्रो को फिर से चला सकते हैं।

उदाहरण के लिए, मान लीजिए कि हम सेल C2 में दिनांक को 10/1/2023 में बदलते हैं और मैक्रो को फिर से चलाते हैं:

हम देखते हैं कि 10/1/2023 से बड़ी तीन तिथियां हैं।

ध्यान दें: यदि आप किसी विशिष्ट तिथि से अधिक या उसके बराबर तिथियों की संख्या की गणना करना चाहते हैं, तो बस काउंटइफ़ फ़ंक्शन में “>” को “>=” से बदलें।

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

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

वीबीए में तिथि के अनुसार कैसे क्रमबद्ध करें
VBA में दो तिथियों के बीच if कैसे जोड़ें
वीबीए में तारीख में दिन कैसे जोड़ें