कैसे जांचें कि किसी कार्यपुस्तिका में पिवट टेबल मौजूद है या नहीं?
यदि आपकी कार्यपुस्तिका में एकाधिक पिवट तालिकाएँ हैं, और अब, आप तुरंत जानना चाहेंगे कि क्या इस कार्यपुस्तिका में कोई विशिष्ट पिवट तालिका मौजूद है। आम तौर पर, आप पिवट टेबल नाम को एक-एक करके जांचने के लिए पिवोटटेबल विकल्प संवाद बॉक्स पर जा सकते हैं, लेकिन दर्जनों या सैकड़ों पिवोट टेबल होने पर यह बहुत समय लेने वाला और थकाऊ होता है। यहां, मैं आपके लिए इस कार्य को हल करने की एक तरकीब के बारे में बात कर सकता हूं।
जांचें कि उपयोगकर्ता परिभाषित फ़ंक्शन वाली कार्यपुस्तिका में पिवट तालिका मौजूद है या नहीं
जांचें कि उपयोगकर्ता परिभाषित फ़ंक्शन वाली कार्यपुस्तिका में पिवट तालिका मौजूद है या नहीं
यह जानने के लिए कि क्या वर्तमान कार्यपुस्तिका में पिवट तालिका मौजूद है, आप इसे हल करने के लिए एक उपयोगकर्ता परिभाषित फ़ंक्शन बना सकते हैं।
1. वह कार्यपुस्तिका खोलें जिसे आप जांचना चाहते हैं कि पिवट तालिका मौजूद है या नहीं।
2. दबाए रखें ALT + F11 कुंजियाँ, और यह खुल जाती है एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
3। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: जांचें कि कार्यपुस्तिका में पिवट टेबल मौजूद है या नहीं
Function PivotExist(Name As String) As Boolean
'Update 20141112
Dim sh As Worksheet
Dim pt As PivotTable
PivotExist = False
For Each sh In ActiveWorkbook.Worksheets
For Each pt In sh.PivotTables
If pt.Name = Name Then
PivotExist = True
Exit For
End If
Next
Next
End Function
4. फिर इस कोड को सहेजें और बंद करें, अपनी वर्कशीट पर वापस जाएं, इस सूत्र को दर्ज करें =pivotexist('salereport') एक रिक्त कक्ष में, स्क्रीनशॉट देखें:
नोट्स: (1.) उपरोक्त सूत्र में, “बिक्रीरिपोर्ट” उस पिवट टेबल का नाम है जिसे आप जांचना चाहते हैं।
(2.) आपको पिवट तालिका का नाम दोहरे उद्धरण चिह्नों के भीतर दर्ज करना होगा, और नाम केस संवेदनशील होना चाहिए।
5. फार्मूला डालने के बाद यदि आपको मिलता है तो एंटर कुंजी दबाएं जब सही है यदि आप पाते हैं तो आपके सेल में पिवट टेबल मौजूद है असत्य, पिवट टेबल मौजूद नहीं है।
संबंधित आलेख:
कार्यपुस्तिका में सभी पिवट तालिकाओं को कैसे सूचीबद्ध करें?
पिवट टेबल में एकाधिक फ़ील्ड कैसे जोड़ें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!