किसी कार्यपुस्तिका से सभी पिवट तालिकाओं को कैसे सूचीबद्ध करें?
मान लीजिए कि आपके पास एक बड़ी कार्यपुस्तिका है जिसमें एकाधिक पिवोट टेबल हैं, अब, आप इस कार्यपुस्तिका में सभी पिवोट तालिकाओं को सूचीबद्ध करना चाहते हैं, क्या यह संभव है? निःसंदेह, इस आलेख में निम्नलिखित VBA कोड आपको लाभान्वित करेगा। अधिक विवरण जानने के लिए कृपया नीचे दिया गया लेख पढ़ें।
VBA कोड वाली कार्यपुस्तिका से सभी पिवट तालिकाओं की सूची बनाएं
VBA कोड वाली कार्यपुस्तिका से सभी पिवट तालिकाओं की सूची बनाएं
निम्नलिखित वीबीए कोड आपको सभी पिवट टेबल नामों को उनकी विशेषताओं, जैसे स्रोत डेटा रेंज, वर्कशीट नाम, ताज़ा तिथि इत्यादि के साथ सूचीबद्ध करने में मदद कर सकता है।
1. अपनी कार्यपुस्तिका खोलें जिसमें आप सभी पिवट तालिकाओं को सूचीबद्ध करना चाहते हैं।
2. दबाए रखें ALT + F11 कुंजियाँ, और यह खुल जाती है एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
3। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: किसी कार्यपुस्तिका से सभी पिवट तालिकाओं की सूची बनाएं
Sub ListPivotsInfor()
'Update 20141112
Dim St As Worksheet
Dim NewSt As Worksheet
Dim pt As PivotTable
Dim I, K As Long
Application.ScreenUpdating = False
Set NewSt = Worksheets.Add
I = 1: K = 2
With NewSt
.Cells(I, 1) = "Name"
.Cells(I, 2) = "Source"
.Cells(I, 3) = "Refreshed by"
.Cells(I, 4) = "Refreshed"
.Cells(I, 5) = "Sheet"
.Cells(I, 6) = "Location"
For Each St In ActiveWorkbook.Worksheets
For Each pt In St.PivotTables
I = I + 1
.Cells(I, 1).Value = pt.Name
.Cells(I, 2).Value = pt.SourceData
.Cells(I, 3).Value = pt.RefreshName
.Cells(I, 4).Value = pt.RefreshDate
.Cells(I, 5).Value = St.Name
.Cells(I, 6).Value = pt.TableRange1.Address
Next
Next
.Activate
End With
Application.ScreenUpdating = True
End Sub
4। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, सभी पिवट टेबल नाम, स्रोत डेटा रेंज, वर्कशीट नाम और अन्य विशेषताओं को एक नई वर्कशीट में सूचीबद्ध किया गया है, जो आपके सक्रिय वर्कशीट के सामने दिखाए गए स्क्रीनशॉट के अनुसार रखा गया है:
संबंधित आलेख:
कैसे जांचें कि किसी कार्यपुस्तिका में पिवट टेबल मौजूद है या नहीं?
पिवट टेबल में एकाधिक फ़ील्ड कैसे जोड़ें?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!