एक्सेल में हेडर पर क्लिक करके कॉलम डेटा को कैसे सॉर्ट करें?
मान लीजिए, मेरे पास डेटा की एक श्रृंखला है, अब, मैं निम्नलिखित स्क्रीनशॉट दिखाने के लिए किसी भी कॉलम हेडर पर क्लिक करके डेटा को आरोही या अवरोही क्रम में क्रमबद्ध करना चाहूंगा। आप Excel में इस कार्य को कैसे हल कर सकते हैं?
वीबीए कोड के साथ कॉलम हेडर पर क्लिक करके डेटा को सॉर्ट करें
वीबीए कोड के साथ कॉलम हेडर पर क्लिक करके डेटा को सॉर्ट करें
आम तौर पर, एक्सेल में, आप डेटा को जल्दी और आसानी से सॉर्ट करने के लिए सॉर्ट सुविधा लागू कर सकते हैं, लेकिन, केवल सेल पर क्लिक करके डेटा को सॉर्ट करने के लिए, निम्नलिखित वीबीए कोड आपकी मदद कर सकता है।
1. उस शीट टैब पर राइट क्लिक करें जिसे आप सेल पर क्लिक करके डेटा सॉर्ट करना चाहते हैं, और चुनें कोड देखें संदर्भ मेनू से, और खुले में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, निम्न कोड को कॉपी करें और रिक्त मॉड्यूल में पेस्ट करें:
वीबीए कोड: सेल या कॉलम हेडर पर क्लिक करके डेटा को क्रमबद्ध करें:
Public blnToggle As Boolean
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
Dim LastColumn As Long, keyColumn As Long, LastRow As Long
Dim SortRange As Range
LastColumn = _
Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
keyColumn = Target.Column
If keyColumn > LastColumn Then Exit Sub
Application.ScreenUpdating = False
Cancel = True
LastRow = Cells(Rows.Count, keyColumn).End(xlUp).Row
Set SortRange = Target.CurrentRegion
blnToggle = Not blnToggle
If blnToggle = True Then
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlAscending, Header:=xlYes
Else
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlDescending, Header:=xlYes
End If
Set SortRange = Nothing
Application.ScreenUpdating = True
End Sub
2. और फिर कोड विंडो को सहेजें और बंद करें, अब, जब आप डेटा रेंज के भीतर किसी भी सेल या कॉलम हेडर पर डबल क्लिक करते हैं, तो कॉलम आरोही क्रम में सॉर्ट किया जाएगा, यदि आप इसे दोबारा डबल क्लिक करते हैं, तो कॉलम एक ही बार में अवरोही क्रम में सॉर्ट किया जाएगा।
अधिक संबंधित लेख:
सेल पर क्लिक करके सेल वैल्यू कैसे बदलें?
Excel में केवल सेल सामग्री पर क्लिक करके डेटा कैसे फ़िल्टर करें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!