वीबीए: दो तिथियों के बीच यदि जोड़ें तो कैसे जोड़ें

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

 Sub SumifBetweenDates()
Range(" E3 ") = WorksheetFunction.SumIfs(Range(" B2:B9 "), Range(" A2:A9 "), " >= " & [E1], _
                                                       Range(" A2:A9 "), " <= " & [E2])
End Sub

यह विशेष उदाहरण श्रेणी B2:B9 में मानों का योग तभी करेगा जब श्रेणी A2:A9 में दिनांक सेल E1 में आरंभ तिथि और सेल E2 में अंतिम तिथि के बीच आती है।

फिर योग सेल E3 में प्रदर्शित किया जाएगा।

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

उदाहरण: VBA में दो तिथियों के बीच if कैसे जोड़ें

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

मान लीजिए कि हम केवल 01/07/2023 और 01/26/2023 के बीच की तारीखों के लिए बिक्री के योग की गणना करना चाहते हैं।

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

 Sub SumifBetweenDates()
Range(" E3 ") = WorksheetFunction.SumIfs(Range(" B2:B9 "), Range(" A2:A9 "), " >= " & [E1], _
                                                       Range(" A2:A9 "), " <= " & [E2])
End Sub

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

ध्यान दें कि सेल E3 में मान 16 है।

यह बिक्री कॉलम में मूल्यों के योग को दर्शाता है जहां दिनांक 01/07/2023 और 01/26/2023 के बीच है।

हम बिक्री कॉलम में मानों के योग की मैन्युअल रूप से गणना करके यह सत्यापित कर सकते हैं कि यह सही है, जहां दिनांक कॉलम में संबंधित मान 01/7/2023 और 01/26/2023 के बीच है:

बिक्री का योग: 3 + 7 + 6 = 16 ।

यह VBA द्वारा परिकलित मान से मेल खाता है।

ध्यान दें कि यदि आप क्रमशः सेल E1 और E2 में प्रारंभ और समाप्ति तिथि मान बदलते हैं, और मैक्रो को फिर से चलाते हैं, तो यह नई तिथियों के लिए बिक्री के योग की गणना करेगा।

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

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

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

वीबीए: SUMIF और SUMIFS फ़ंक्शन कैसे लिखें
VBA: COUNTIF और COUNTIFS फ़ंक्शंस कैसे लिखें
वीबीए: AVERAGEIF और AVERAGEIFS फ़ंक्शन कैसे लिखें