एक्सेल में सेल वैल्यू के आधार पर वर्कशीट कैसे हटाएं?
मान लीजिए, मेरे पास एक कार्यपुस्तिका में एकाधिक कार्यपत्रक हैं, अब, मैं सेल मान के आधार पर पत्रक को हटाना चाहता हूं। उदाहरण के लिए, यदि विशिष्ट सेल A1 में "KTE" टेक्स्ट है, तो उन सभी शीटों को एक ही बार में हटाना आवश्यक है, जिनमें सेल A1 में यह टेक्स्ट है। यह आलेख Excel में इस कार्य से निपटने में आपकी सहायता कर सकता है.
वीबीए कोड के साथ सेल वैल्यू के आधार पर वर्कशीट हटाएं
वीबीए कोड के साथ सेल वैल्यू के आधार पर वर्कशीट हटाएं
यहां, मैं आपके लिए उन सभी शीटों को हटाने के लिए एक कोड पेश करूंगा, जिनमें विशिष्ट सेल का एक निश्चित मूल्य है, कृपया निम्नानुसार करें:
1. नीचे पकड़ो ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: सेल वैल्यू के आधार पर वर्कशीट हटाएं:
Sub deletesheetbycell()
'Updateby Extendoffice
Dim shName As String
Dim xName As String
Dim xWs As Worksheet
Dim cnt As Integer
shName = Application.InputBox("Input the text to delete the sheets based on:", "Kutools for Excel", _
"", , , , , 2)
Application.DisplayAlerts = False
cnt = 0
For Each xWs In ThisWorkbook.Sheets
If xWs.Range("A1").Value = shName Then
xWs.delete
cnt = cnt + 1
End If
Next xWs
Application.DisplayAlerts = True
MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub
नोट: उपरोक्त कोड में, A1 वह विशिष्ट सेल है जिसमें कुछ निश्चित टेक्स्ट होता है जिसके आधार पर आप शीट को हटाना चाहते हैं।
3. फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक प्रॉम्प्ट बॉक्स आपको उस विशिष्ट मान को इनपुट करने की याद दिलाने के लिए पॉप आउट होता है जिसके आधार पर आप शीट को हटाना चाहते हैं, स्क्रीनशॉट देखें:
4। और फिर क्लिक करें OK बटन, वे सभी शीट जिनमें सेल A1 में KTE टेक्स्ट है, एक ही बार में हटा दी गई हैं। स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!