पिवट टेबल में एकाधिक फ़ील्ड कैसे जोड़ें?
जब हम एक पिवट टेबल बनाते हैं, तो हमें फ़ील्ड्स को एक-एक करके मैन्युअल रूप से रो लेबल्स या वैल्यूज़ में खींचने की आवश्यकता होती है। यदि हमारे पास फ़ील्ड की एक लंबी सूची है, तो हम जल्दी से कुछ पंक्ति लेबल जोड़ सकते हैं, लेकिन शेष फ़ील्ड को मान क्षेत्र में जोड़ा जाना चाहिए। क्या पिवट तालिका में एक क्लिक के साथ अन्य सभी फ़ील्ड को वैल्यू क्षेत्र में जोड़ने के लिए हमारे पास कोई त्वरित तरीका है?
VBA कोड के साथ पिवट तालिका के मान क्षेत्र में एकाधिक फ़ील्ड जोड़ें
VBA कोड के साथ पिवट तालिका के मान क्षेत्र में एकाधिक फ़ील्ड जोड़ें
दुर्भाग्य से, हमारे लिए पिवट टेबल फ़ील्ड सूची में सभी फ़ील्ड को एक क्लिक से तुरंत जांचने के लिए कोई चेकबॉक्स नहीं है, लेकिन, निम्नलिखित वीबीए कोड के साथ यह आपको शेष फ़ील्ड को एक ही बार में वैल्यू क्षेत्र में जोड़ने में मदद कर सकता है। कृपया इस प्रकार करें:
1. पिवट टेबल बनाने के बाद, सबसे पहले, आपको अपनी आवश्यकता के अनुसार पंक्ति लेबल फ़ील्ड जोड़ना चाहिए, और मान फ़ील्ड को छोड़ देना चाहिए रिपोर्ट में जोड़ने के लिए फ़ील्ड चुनें सूची, स्क्रीनशॉट देखें:
2. दबाए रखें ALT + F11 कुंजी को खोलने के लिए एप्लीकेशन विंडो के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक.
3। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल विंडो.
वीबीए कोड: सक्रिय वर्कशीट में पिवट तालिकाओं के मान क्षेत्र में एकाधिक फ़ील्ड जोड़ें
Sub AddAllFieldsValues()
'Update 20141112
Dim pt As PivotTable
Dim I As Long
For Each pt In ActiveSheet.PivotTables
For I = 1 To pt.PivotFields.Count
With pt.PivotFields(I)
If .Orientation = 0 Then .Orientation = xlDataField
End With
Next
Next
End Sub
4। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, शेष सभी फ़ील्ड को एक ही समय में मान क्षेत्र में जोड़ दिया गया है, स्क्रीनशॉट देखें:
नोट: यह VBA कोड सक्रिय वर्कशीट की सभी पिवट तालिकाओं पर लागू होता है।
संबंधित आलेख:
कार्यपुस्तिका में सभी पिवट तालिकाओं को कैसे सूचीबद्ध करें?
कैसे जांचें कि किसी कार्यपुस्तिका में पिवट टेबल मौजूद है या नहीं?
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!