बड़े Microsoft Excel, . के साथ कार्य करते समय कभी-कभी हमें अपने डेटा को सबसे छोटे से सबसे बड़े में क्रमबद्ध करने की आवश्यकता होती है। हम VBA मैक्रोज़ . का उपयोग करके आसानी से ऐसा कर सकते हैं . VBA कोड लागू करना सबसे छोटे से बड़े को छाँटना एक आसान काम है। आज, इस लेख में, हम सीखेंगे तीन VBA ऑटोफिल्टर को Excel . में सबसे छोटा से बड़ा करने के त्वरित और उपयुक्त तरीके उपयुक्त दृष्टांतों के साथ प्रभावी ढंग से।
Excel में सबसे छोटे से सबसे बड़े VBA ऑटोफिल्टर को क्रमबद्ध करें (त्वरित दृश्य)
Sub Autofilter_Sort_Smallest_to_Largest()
With ActiveSheet.Sort
.SortFields.Add Key:=Range("D4"), Order:=xlAscending
.SetRange Range("B4:E16")
.Header = xlYes
.Apply
End With
End Sub
एक्सेल में वीबीए ऑटोफिल्टर के साथ सबसे छोटे से सबसे बड़े को सॉर्ट करने के 3 उपयुक्त तरीके
मान लें, हमारे पास एक डेटासेट है जिसमें कई बिक्री प्रतिनिधियों . के बारे में जानकारी है अरमानी . के समूह। बिक्री प्रतिनिधियों . का नाम , उत्पादों का प्रकार, और आदेश दिया गया और वितरित उत्पाद बिक्री प्रतिनिधियों द्वारा B, C, D, . कॉलम में दिए गए हैं और ई क्रमश। हमारे डेटासेट से, हम क्रमबद्ध . करेंगे हमारा डेटा सबसे छोटा से सबसे बड़ा VBA . का उपयोग करके कोड। आज के कार्य के लिए डेटासेट का अवलोकन यहां दिया गया है।
अब मैं दिखाऊंगा कि कैसे क्रमबद्ध करें आरोही क्रम . में सबसे छोटा से बड़ा एक साधारण VBA . का उपयोग करके कोड। यह कुछ खास पलों के लिए बहुत मददगार होता है। हमारे डेटासेट से, हम अपने डेटा को आदेशित . के अनुसार क्रमबद्ध करेंगे उत्पादों . के आरोही क्रम में। डेटा को छोटे से बड़े में क्रमबद्ध करने के लिए नीचे दिए गए निर्देशों का पालन करें!
चरण 1:
- सबसे पहले, एक मॉड्यूल खोलें, ऐसा करने के लिए, सबसे पहले, अपने डेवलपर से टैब पर जाएं,
डेवलपर → विजुअल बेसिक
- विजुअल बेसिक . पर क्लिक करने के बाद रिबन, अनुप्रयोगों के लिए Microsoft Visual Basic नाम की एक विंडो - डेटा को सबसे छोटे से सबसे बड़े में क्रमबद्ध करें तुरंत आपके सामने आ जाएगा। उस विंडो से, हम अपना VBA कोड . लागू करने के लिए एक मॉड्यूल सम्मिलित करेंगे . ऐसा करने के लिए, पर जाएँ,
सम्मिलित करें → मॉड्यूल
चरण 2:
- इसलिए, डेटा को सबसे छोटे से सबसे बड़े में क्रमबद्ध करें मॉड्यूल पॉप अप। डेटा को सबसे छोटे से सबसे बड़े में क्रमित करें . में मॉड्यूल, नीचे लिखें VBA
Sub Autofilter_Sort_Smallest_to_Largest()
With ActiveSheet.Sort
.SortFields.Add Key:=Range("D4"), Order:=xlAscending
.SetRange Range("B4:E16")
.Header = xlYes
.Apply
End With
End Sub
- इसलिए, VBA चलाएं ऐसा करने के लिए, पर जाएँ,
चलाएं → उप/उपयोगकर्ता प्रपत्र चलाएं
- VBA कोड चलाने के बाद , आप डेटा सॉर्ट करने . में सक्षम होंगे सबसे छोटे से लेकर सबसे बड़े तक जो नीचे स्क्रीनशॉट में दिया गया है।
और पढ़ें: VBA से Excel में समान फ़ील्ड पर एकाधिक मानदंड वाले ऑटोफ़िल्टर (4 तरीके)
<एच3>2. एक्सेल VBA में हैडर के साथ सबसे छोटे से सबसे बड़े को सॉर्ट करने के लिए एकाधिक कॉलम का उपयोग करेंइस पद्धति में, हम एकाधिक कॉलम सॉर्ट करेंगे हेडर के साथ सबसे छोटा से सबसे बड़ा। हमारे डेटासेट से, हम अपने डेटा को नाम . के अनुसार क्रमबद्ध करेंगे बिक्री प्रतिनिधियों में से, और आदेश दिया सबसे छोटे से लेकर सबसे बड़े तक के उत्पाद। आइए नीचे दिए गए निर्देशों का पालन करते हुए हेडर के साथ छोटे से बड़े तक कई कॉलमों को क्रमबद्ध करें!
चरण 1:
- सबसे पहले, विधि 1 के अनुसार सम्मिलित करें एक नया मॉड्यूल और नीचे टाइप करें VBA फ़ॉन्ट रंग बदलने के लिए कोड। VBA कोड है,
Sub Sort_Multiple_Columns()
With ActiveSheet.Sort
.SortFields.Add Key:=Range("B4"), Order:=xlAscending
.SortFields.Add Key:=Range("D4"), Order:=xlAscending
.SetRange Range("B4:E16")
.Header = xlYes
.Apply
End With
End Sub
- आगे, VBA चलाएं ऐसा करने के लिए, पर जाएँ,
चलाएं → उप/उपयोगकर्ता प्रपत्र चलाएं
चरण 2:
- VBA कोड चलाने के बाद , आप क्रमबद्ध . करने में सक्षम होंगे नाम . के अनुसार हमारा डेटा बिक्री प्रतिनिधियों में से, और आदेश दिया उत्पाद सबसे छोटे से सबसे बड़े तक जो नीचे स्क्रीनशॉट में दिया गया है।
और पढ़ें: [फिक्स]:श्रेणी श्रेणी की स्वत:फ़िल्टर विधि विफल (5 समाधान)
<एच3>3. वर्कशीट नाम के साथ सबसे छोटे से सबसे बड़े को क्रमबद्ध करने के लिए VBA ऑटोफिल्टर लागू करेंअंतिम लेकिन कम से कम, आप अपने डेटा का उपयोग क्रमबद्ध . करने के लिए भी कर सकते हैं वर्कशीट नाम . के अनुसार छोटे से बड़े तक VBA कोड . का उपयोग करके एक्सेल . में . हमारे डेटासेट से, हम डेटा को सबसे छोटे से सबसे बड़े डिलीवर . में सॉर्ट करेंगे उत्पाद। यह एक आसान काम है और समय की बचत भी। हमारे डेटा को वर्कशीट नाम . के अनुसार सबसे छोटे से बड़े में क्रमबद्ध करने के लिए नीचे दिए गए निर्देशों का पालन करें !
चरण 1:
- पहले, सम्मिलित करें विधि 1 . के अनुसार एक नया मॉड्यूल और नीचे टाइप करें VBA फ़ॉन्ट रंग बदलने के लिए कोड। VBA कोड है,
Sub Sort_Smallest_to_Largest()
Rows("4:16").Select
ActiveWorkbook.Worksheets("Smallest to Largest").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Smallest to Largest").Sort.SortFields.Add Key:=Range("E4:E16") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Smallest to Largest").Sort
.SetRange Range("B4:E16")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
- आगे, VBA चलाएं ऐसा करने के लिए, पर जाएँ,
चलाएं → उप/उपयोगकर्ता प्रपत्र चलाएं
चरण 2:
- VBA कोड चलाने के बाद , आप वर्कशीट नाम . के अनुसार डेटा को सबसे छोटे से बड़े में सॉर्ट करने में सक्षम होंगे जो नीचे स्क्रीनशॉट में दिया गया है।
और पढ़ें: एक्सेल वीबीए के साथ दृश्यमान पंक्तियों को ऑटोफ़िल्टर और कॉपी कैसे करें
याद रखने वाली बातें
👉 आप अनुप्रयोगों के लिए Microsoft Visual Basic . को पॉप अप कर सकते हैं Alt + F11 . दबाकर विंडो एक साथ ।
👉 अगर एक डेवलपर आपके रिबन में टैब दिखाई नहीं दे रहा है, आप इसे दृश्यमान बना सकते हैं। ऐसा करने के लिए, पर जाएँ,
फ़ाइल → विकल्प → रिबन कस्टमाइज़ करें
निष्कर्ष
मुझे आशा है कि ऊपर वर्णित सभी उपयुक्त तरीके सबसे छोटे से सबसे बड़े को क्रमबद्ध करें VBA . के साथ कोड अब आपको उन्हें अपने Excel . में लागू करने के लिए प्रेरित करेगा अधिक उत्पादकता के साथ स्प्रेडशीट। यदि आपके कोई प्रश्न या प्रश्न हैं, तो बेझिझक टिप्पणी करने के लिए आपका स्वागत है।
संबंधित लेख
- Excel VBA यह जांचने के लिए कि ऑटोफ़िल्टर चालू है या नहीं (4 आसान तरीके)
- Excel में VBA के साथ एक निश्चित मान के बराबर नहीं होने वाले मानों को ऑटोफ़िल्टर कैसे करें
- Excel VBA:मौजूद होने पर ऑटोफ़िल्टर निकालें (7 तरीके)