मुख्य सामग्री पर जाएं

एक्सेल में तारीख के आधार पर कॉलम को स्वचालित रूप से कैसे छिपाएं?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-07-03

मान लीजिए, मेरे पास वर्कशीट में डेटा की एक श्रृंखला है, अब, मैं एक विशिष्ट तिथि के आधार पर कॉलम को स्वचालित रूप से छिपाना चाहता हूं। उदाहरण के लिए, जब मैं किसी सेल में दिनांक 5/16/2016 दर्ज करता हूं, तो मैं उन कॉलमों को छिपाना चाहता हूं जो इस विशिष्ट तिथि से कम हैं, जैसा कि निम्नलिखित स्क्रीनशॉट में दिखाया गया है। यह लेख इसे हल करने के लिए कुछ तरकीबें पेश करेगा।

दस्तावेज़ दिनांक 1 के अनुसार कॉलम छिपाएँ

वीबीए कोड के साथ किसी विशिष्ट तिथि के आधार पर स्वचालित रूप से कॉलम छुपाएं

एक्सेल के लिए कुटूल के साथ एक विशिष्ट तिथि के आधार पर कॉलम छुपाएं


तीर नीला दायां बुलबुला वीबीए कोड के साथ किसी विशिष्ट तिथि के आधार पर स्वचालित रूप से कॉलम छुपाएं

इस कार्य को पूरा करने के लिए, निम्नलिखित VBA कोड आपकी सहायता कर सकता है, कृपया निम्नानुसार कार्य करें:

1. उस शीट टैब का चयन करें जिसे आप तिथि के अनुसार छिपाना चाहते हैं, और चुनने के लिए राइट क्लिक करें कोड देखें संदर्भ मेनू से पर जाने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, और फिर निम्नलिखित कोड को कॉपी करके मॉड्यूल में पेस्ट करें:

वीबीए कोड: विशिष्ट तिथि के आधार पर स्वचालित रूप से कॉलम छुपाएं:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Dim xCell As Range
    If Target.Address <> Range("K4").Address Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In Range("A1:I1")
        xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
    Next
    Application.ScreenUpdating = True
End Sub

दस्तावेज़ दिनांक 2 के अनुसार कॉलम छिपाएँ

2. फिर इस कोड को सहेजें और बंद करें, वर्कशीट पर वापस जाएं, और अब, जब आप सेल में तारीख दर्ज करें K4, वे कॉलम जो इस विशिष्ट तिथि से कम तारीख वाले हैं, स्वचालित रूप से छिपा दिए जाएंगे।

नोट: उपरोक्त कोड में, K4 वह विशिष्ट दिनांक सेल है जिसके आधार पर आप कॉलम छिपाना चाहते हैं, ए1:आई1 पंक्ति कोशिकाओं में आपके द्वारा उपयोग की गई तारीख शामिल है।


तीर नीला दायां बुलबुला एक्सेल के लिए कुटूल के साथ एक विशिष्ट तिथि के आधार पर कॉलम छुपाएं

यदि आप कोड से परिचित नहीं हैं, तो यहां एक उपयोगी टूल है-एक्सेल के लिए कुटूल, के साथ अपने विशिष्ट कक्षों का चयन करें उपयोगिता, आप इस काम को आसानी से पूरा कर सकते हैं।

एक्सेल के लिए कुटूल : 300 से अधिक उपयोगी एक्सेल ऐड-इन्स के साथ, 30 दिनों में बिना किसी सीमा के आज़माने के लिए निःशुल्क. 

स्थापित करने के बाद एक्सेल के लिए कुटूल, कृपया निम्नानुसार करें:

1. दिनांक शीर्षलेख चुनें और क्लिक करें कुटूल > चुनते हैं > विशिष्ट कक्षों का चयन करें, स्क्रीनशॉट देखें:

2. बाहर निकले में विशिष्ट कक्षों का चयन करें संवाद बॉक्स में, चयन करें पूर्ण स्तंभ से चयन प्रकार, और फिर मानदंड चुनें, जैसे कम से कम से विशिष्ट प्रकार ड्रॉप डाउन सूची, और टेक्स्ट बॉक्स के बगल में तारीख दर्ज करें जिसके आधार पर आप कॉलम छिपाना चाहते हैं, स्क्रीनशॉट देखें:

दस्तावेज़ दिनांक 4 के अनुसार कॉलम छिपाएँ

3। और फिर क्लिक करें Ok बटन, विशिष्ट कॉलम जिनकी तारीख 5/16/2016 से कम है, एक ही बार में चुने गए हैं, स्क्रीनशॉट देखें:

दस्तावेज़ दिनांक 5 के अनुसार कॉलम छिपाएँ

4. फिर किसी एक चयनित कॉलम हेडर पर राइट क्लिक करें और चुनें छिपाना इन चयनित कॉलमों को आवश्यकतानुसार छिपाने के लिए। स्क्रीनशॉट देखें:

दस्तावेज़ दिनांक 6 के अनुसार कॉलम छिपाएँ

अभी एक्सेल के लिए नि:शुल्क डाउनलोड कुटूल पर क्लिक करें!

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have the same issue as Chris. The cell with my date does not always change. I need the macro to run regardless of whether the date has changed from last month or is the same as last month without having to click on the cell itself and hit enter to trigger the "Change"
This comment was minimized by the moderator on the site
Hello,
Thanks for the code.
In my case the cell K4 is a calculation cell from the formula =EOMONTH(A1,0). Example: A1 = 01.03.2017. K4 takes the value 31.03.2017. But the VBA code that you propose does not hide the columns until I click on K4 cell and press Enter to refresh it. I tried to add Range("K4").calculate but with no effect. Help please.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations