Excel में आज से पहले या बाद की सभी दिनांक सेल को कैसे फ़िल्टर करें?
इस लेख में, मैं एक्सेल वर्कशीट में आज से पहले या बाद की सभी दिनांक कोशिकाओं को फ़िल्टर करने के तरीके के बारे में बात करूंगा।
फ़िल्टर फ़ंक्शन के साथ आज से पहले या बाद की सभी दिनांक कोशिकाओं को फ़िल्टर करें
आज से पहले या बाद की सभी दिनांक कोशिकाओं को VBA कोड से फ़िल्टर करें
फ़िल्टर फ़ंक्शन के साथ आज से पहले या बाद की सभी दिनांक कोशिकाओं को फ़िल्टर करें
वास्तव में, एक्सेल में फ़िल्टर सुविधा आपको इस कार्य को जितनी जल्दी हो सके हल करने में मदद कर सकती है, कृपया यह करें:
1. वह दिनांक कॉलम चुनें जिसे आप फ़िल्टर करना चाहते हैं, और फिर क्लिक करें जानकारी > फ़िल्टर, स्क्रीनशॉट देखें:
2. फिर ड्रॉप डाउन तीर पर क्लिक करें और फिर चुनें दिनांक फ़िल्टर > से पहले / बाद जैसा आपको चाहिए, स्क्रीनशॉट देखें:
3. में कस्टम AutoFilter संवाद बॉक्स पर क्लिक करें खजूर बीनने वाला
बटन क्लिक करें, और उसके बाद क्लिक करें बस आज दिनांक पिकर कैलेंडर में बटन, स्क्रीनहॉट देखें:
4। तब दबायें OK संवाद बंद करने के लिए, और आज से पहले या बाद की सभी तिथियों को दिखाए गए स्क्रीनशॉट के अनुसार फ़िल्टर कर दिया गया है:
आज से पहले या बाद की सभी दिनांक कोशिकाओं को VBA कोड से फ़िल्टर करें
निम्नलिखित वीबीए कोड आपको वर्कशीट में वर्तमान दिन से पहले या बाद की सभी तिथियों को फ़िल्टर करने में भी मदद कर सकते हैं। कृपया नीचे दिए गए चरणों का पालन करें:
1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित में से एक कोड पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: आज से पहले की सभी दिनांक कोशिकाओं को फ़िल्टर करें:
Sub FilterDateBeforeToday()
Dim xLastRow As Long
Dim xRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
xRg.AutoFilter 1, "<" & CDbl(Date)
Application.ScreenUpdating = True
End Sub
वीबीए कोड: आज के बाद सभी दिनांक सेल फ़िल्टर करें:
Sub FilterDateBeforeToday()
Dim xLastRow As Long
Dim xRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
xRg.AutoFilter 1, ">" & CDbl(Date)
Application.ScreenUpdating = True
End Sub
3. उपरोक्त कोड में से किसी एक कोड को कॉपी करके पेस्ट कर दें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको उस दिनांक कॉलम को याद दिलाने के लिए पॉप अप होगा जिसे आप फ़िल्टर करना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK बटन, आज से पहले या बाद की सभी दिनांक सेल तुरंत फ़िल्टर कर दी जाएंगी।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
