वीबीए में तिथि के अनुसार कैसे क्रमबद्ध करें (उदाहरण के साथ)

आप दिनांक के अनुसार पंक्तियों को क्रमबद्ध करने के लिए VBA में निम्नलिखित मूल सिंटैक्स का उपयोग कर सकते हैं:

 Sub SortByDate()
Range(" A1:C10 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, Header:=xlYes
End Sub

यह विशेष उदाहरण कॉलम A में दिनांकों के आधार पर A1:C10 श्रेणी में पंक्तियों को सबसे पुराने से नवीनतम तक क्रमबद्ध करता है।

यदि आप पंक्तियों को तारीख के अनुसार नवीनतम से सबसे पुरानी तक क्रमबद्ध करना चाहते हैं, तो आप इसके बजाय ऑर्डर1:=xlDescending निर्दिष्ट कर सकते हैं।

ध्यान दें कि हेडर:=xlहाँ निर्दिष्ट करता है कि पहली पंक्ति को हेडर लाइन के रूप में माना जाना चाहिए।

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

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

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

मान लीजिए कि हम पंक्तियों को तिथि के अनुसार क्रमबद्ध करना चाहते हैं, सबसे पुरानी से नवीनतम तक।

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

 Sub SortByDate()
Range(" A1:C10 ").Sort Key1:=Range(" A1 "), Order1:=xlAscending, Header:=xlYes
End Sub

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

ध्यान दें कि पंक्तियों को अब तारीख के अनुसार क्रमबद्ध किया गया है, सबसे पुरानी से नवीनतम तारीख तक।

नवीनतम से सबसे पुरानी तारीख के अनुसार पंक्तियों को क्रमबद्ध करने के लिए, हम ऑर्डर1:=xlDescending निर्दिष्ट कर सकते हैं:

 Sub SortByDate()
Range(" A1:C10 ").Sort Key1:=Range(" A1 "), Order1:=xlDescending, Header:=xlYes
End Sub

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

ध्यान दें कि पंक्तियाँ अब दिनांक के अनुसार क्रमबद्ध हैं, नवीनतम से सबसे पुरानी तक।

नोट #1 : इस उदाहरण में, हमने एक कॉलम पर क्रमबद्ध किया। हालाँकि, आप एकाधिक कॉलमों को क्रमबद्ध करने के लिए अधिक कुंजियाँ निर्दिष्ट कर सकते हैं।

नोट #2 : आप वीबीए सॉर्ट विधि का पूरा दस्तावेज़ यहां पा सकते हैं।

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

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

वीबीए: एक शीट को एकाधिक कॉलमों के आधार पर कैसे क्रमबद्ध करें
वीबीए: श्रेणी में पंक्तियों की संख्या कैसे गिनें
वीबीए: किसी कॉलम को कैसे फ़िल्टर करें