एक्सेल में किसी अन्य कॉलम में सेल वैल्यू के आधार पर रेंज का चयन कैसे करें?
इस लेख में, मैं दूसरे कॉलम में सेल वैल्यू के आधार पर रेंज का चयन कैसे करें, इसके बारे में बात करूंगा। एक उदाहरण लें, यदि सेल कॉलम C में FALSE प्रदर्शित करते हैं, तो कॉलम A और कॉलम B में संबंधित सेल नीचे दिखाए गए स्क्रीनशॉट के अनुसार चुने जाएंगे। ऐसी कोई अंतर्निहित सुविधा नहीं है जो इस कार्य को हल करने में आपकी सहायता कर सके, लेकिन इस आलेख में, मैं इसे वीबीए कोड के साथ संभाल सकता हूं।
वीबीए कोड द्वारा दूसरे कॉलम में सेल वैल्यू के आधार पर रेंज का चयन करें
वीबीए कोड द्वारा दूसरे कॉलम में सेल वैल्यू के आधार पर रेंज का चयन करें
वीबीए कोड द्वारा दूसरे कॉलम में सेल वैल्यू के आधार पर रेंज का चयन करें
1. जिस शीट का आप उपयोग करना चाहते हैं उसे सक्षम करें और दबाएँ ऑल्ट + F11 सक्षम करने के लिए कुंजियाँ अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और फिर नीचे दिए गए कोड को नए में पेस्ट करें मॉड्यूल खिड़की.
वीबीए: सेल वैल्यू के आधार पर रेंज का चयन करें
Sub SelectByCellValue()
'UpdatebyExtendoffice20161128
Dim lastrow As Long
Dim xRg As Range, yRg As Range
'change Sheet1 to suit
With ThisWorkbook.Worksheets("Sheet2")
lastrow = .Cells(.Rows.Count, "C").End(xlUp).Row
Application.ScreenUpdating = False
For Each xRg In .Range("C1:C" & lastrow)
If UCase(xRg.Text) = "FALSE" Then
If yRg Is Nothing Then
Set yRg = .Range("A" & xRg.Row).Resize(, 2)
Else
Set yRg = Union(yRg, .Range("A" & xRg.Row).Resize(, 2))
End If
End If
Next xRg
Application.ScreenUpdating = True
End With
If Not yRg Is Nothing Then yRg.Select
End Sub
3। दबाएँ F5 वीबीए चलाने के लिए कुंजी, और फिर कॉलम सी में मानों के आधार पर श्रेणियों का चयन किया गया है।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!