मुख्य सामग्री पर जाएं

एक्सेल में पिवट टेबल को स्वचालित रूप से रीफ्रेश कैसे करें?

लेखक: केली अंतिम संशोधित: 2020-09-10

आम तौर पर, जब हम पिवट टेबल के स्रोत डेटा को अपडेट करते हैं, तो पिवट टेबल तब तक अपडेट नहीं होगी जब तक हम क्लिक नहीं करते विश्लेषण करें > ताज़ा करना मैन्युअल रूप से। यह काफी उबाऊ होगा यदि पिवट टेबल किसी अन्य वर्कशीट में रहती है और आप इसे रीफ्रेश करना भूल सकते हैं। यहां, यह आलेख एक्सेल में पिवट टेबल को स्वचालित रूप से रीफ्रेश करने के लिए एक वीबीए पेश करेगा।

VBA द्वारा पिवट तालिका को स्वचालित रूप से ताज़ा करें


VBA द्वारा पिवट तालिका को स्वचालित रूप से ताज़ा करें

एक्सेल में निर्दिष्ट पिवट तालिका को स्वचालित रूप से ताज़ा करने के लिए वीबीए लागू करने के लिए कृपया नीचे दिए गए चरणों का पालन करें।

1. शीट टैब बार में, उस शीट टैब पर राइट-क्लिक करें जिसमें स्रोत डेटा है, और चयन करें कोड देखें संदर्भ मेनू में. स्क्रीनशॉट देखें:

2. एप्लिकेशन विंडो के लिए खुलने वाली Microsoft Visual Basic में, कृपया कोड पेस्ट करें।

वीबीए: निर्दिष्ट पिवट तालिका को स्वतः ताज़ा करें

Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
End Sub

टिप्पणियाँ:
(1) वर्कशीट के कोड में("शीट का नाम")।पिवट तालिकाएं("पिवोटटेबल नाम").PivotCache.Refresh, कृपया बदलें शीट का नाम निर्दिष्ट पिवट तालिका वाली शीट के नाम के साथ, और प्रतिस्थापित करें पिवोटटेबल नाम निर्दिष्ट पिवट तालिका के नाम के साथ।
(2) निर्दिष्ट पिवट तालिका में किसी भी सेल का चयन करें, आपको उसका नाम मिल जाएगा विश्लेषण करें टैब (या ऑप्शंस टैब). स्क्रीनशॉट देखें:

3. कोड सहेजें.

अब से, जब आप स्रोत डेटा में डेटा बदलते हैं, तो निर्दिष्ट पिवट तालिका स्वचालित रूप से ताज़ा हो जाएगी।

एकाधिक वर्कशीट/वर्कबुक/सीएसवी फ़ाइलों को आसानी से एक वर्कशीट/वर्कबुक में संयोजित करें

विभिन्न कार्यपुस्तिकाओं से दर्जनों शीटों को एक शीट में संयोजित करना कठिन हो सकता है। लेकिन Excel के लिए Kutools के साथ संयोजित करें (कार्यपत्रक और कार्यपुस्तिकाएँ) उपयोगिता, आप इसे कुछ ही क्लिक से पूरा कर सकते हैं!


विज्ञापन कंबाइन शीट पुस्तकें 1

संबंधित आलेख:

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup    मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार    कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल    सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description


ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
If the Pivot Table is on the same sheet that changes data, you need avoid a loop, so you need implement a conditional statement

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("M:M")) Is Nothing Then
Exit Sub
Else
'MsgBox "You just changed" & Target.Address
Worksheets("SheetName").PivotTables("PivotTableName").PivotCache.Refresh
End If

End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations