जैसे ही इसे जोड़ा जाता है, मैं एक्सेल फ़िल्टर को प्रत्येक अतिरिक्त कॉलम कैसे बना सकता हूं?

Question

अगर मैं पूरी पहली पंक्ति को हाइलाइट करता हूं और इसे फ़िल्टर करता हूं, तो मुझे हर बार एक नया कॉलम जोड़ने की प्रक्रिया को दोहराने की आवश्यकता नहीं होनी चाहिए। क्या इसके आसपास कोई रास्ता है? मैं एक मैक्रो चला सकता हूं, लेकिन जब भी मैं एक नया कॉलम जोड़ता हूं, तब भी यह एक अतिरिक्त कदम होता है।

उदाहरण के लिए, यदि मेरे पास "प्रकार के सेब" नाम का एक कॉलम है और मैं पूरी पहली पंक्ति को उजागर करता हूं और डेटा & gt; फ़िल्टर करें, फिर जब मैं "संतरे के प्रकार" के लिए एक और कॉलम बनाता हूं, तो उस कॉलम को स्वचालित रूप से फ़िल्टर किया जाना चाहिए क्योंकि मैंने पहले ही एक्सेल से कहा था कि मैं पूरी पहली पंक्ति को फ़िल्टर करना चाहता था।

संस्करण: एक्सेल 365 प्रोप्लस, संस्करण 1750

Comments

इसे एक तालिका में बदल दें।

— Selkie

यदि आप अपनी शीट के ऊर्ध्वाधर छोर के अलावा किसी जगह पर एक कॉलम सम्मिलित करते हैं, तो एक्सेल जोड़ा कॉलम के लिए एक फ़िल्टर लागू करेगा, यह मानते हुए कि आपके पास शीट पर पहले से फ़िल्टर लागू है। हालाँकि, यदि आप एक कॉलम जोड़ते हैं, तो राइट-क्लिक इन्सर्ट या इन्सर्ट & gt; शीट कॉलम, शीट के अंत में, फिर एक्सेल उस कॉलम के लिए फ़िल्टर लागू नहीं करता है। जैसा कि @Selkie कहते हैं, इसके चारों ओर एकमात्र तरीका शीट को बोना फाइड टेबल में बदलना है।

— BillDOe

Answer 1

अपनी डेटा श्रेणी को तालिका के रूप में प्रारूपित करें ।

1. अपना डेटा रेंज चुनें
2. मुख पृष्ठ टैब पर, तालिका के रूप में प्रारूप पर क्लिक करें।
3. उस तालिका शैली पर क्लिक करें जिसका आप उपयोग करना चाहते हैं

आप न केवल अपने डेटा के अंत में अतिरिक्त कॉलम जोड़ सकते हैं और स्वचालित रूप से लागू किए गए फ़िल्टर कर सकते हैं, बल्कि आप बोतलों में डेटा की अतिरिक्त लाइनें भी जोड़ सकते हैं और आपकी तालिका स्वतः बढ़ जाएगी।

Answer 2

मैं दो विकल्प सुझाना चाहूंगा।

1। डेटा रेंज, राइट क्लिक, और amp का चयन करें; फिर फ़िल्टर को फिर से दबाएं।

2। जब आप नया जोड़ते हैं या निकालते हैं तो यह VBA कोड आपको एक फ़िल्टर लागू करने में मदद करेगा        स्तंभ।

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As range)

  Dim ws As Worksheet
  Dim rng As range
  Set ws = Sh

  If ws.AutoFilterMode Then

     With ws.AutoFilter.range

        If (Target.Column < .Column) And (Target.Column + Target.Columns.count >= 
           .Column - Target.Columns.count) Or (Target.Column >= .Column + .Columns.count) Then
           Set rng = ws.AutoFilter.range
           ws.AutoFilter.range.AutoFilter
           ws.range(Target, rng).AutoFilter
        End If

     End With

  End If
End Sub

मैं आशान्वित हूं कि इससे आपको सहायता मिलेगी। मेरे द्वारा परीक्षण किए जाने के बाद मैंने यह समाधान पोस्ट किया है।