वीबीए के लिए पिवट टेबल टेम्पलेट पर स्रोत डेटा परिभाषित करना - एक्सेल, वीबीए, एक्सेल-वीबीए

मुझे यह कोड स्प्रेडशीटगुरु पर मिला और मुझे कोड संपादित करने में कोई समस्या है।

Sub CreatePivotTable()
"PURPOSE: Creates a brand new Pivot table on a new worksheet from data in the ActiveSheet
"Source: www.TheSpreadsheetGuru.com

Dim sht As Worksheet
Dim pvtCache As PivotCache
Dim pvt As PivotTable
Dim StartPvt As String
Dim SrcData As String

"Determine the data range you want to pivot
SrcData = ActiveSheet.Name & "!" & Range("A1:R100").Address(ReferenceStyle:=xlR1C1)

"Create a new worksheet
Set sht = Sheets.Add

"Where do you want Pivot Table to start?
StartPvt = sht.Name & "!" & sht.Range("A3").Address(ReferenceStyle:=xlR1C1)

"Create Pivot Cache from Source Data
Set pvtCache = ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=SrcData)

"Create Pivot table from Pivot Cache
Set pvt = pvtCache.CreatePivotTable( _
TableDestination:=StartPvt, _
TableName:="PivotTable1")

End Sub

मेरे लिए परिभाषित करना क्यों संभव नहीं है SrcData वर्कशीट्स ("SHEETNAME") के रूप में।रेंज ( "A1: A100")? यह एक प्रकार 13 त्रुटि देता है: मेल नहीं खाता। मैंने ऑनलाइन जवाब खोजने की कोशिश की और अधिकांश उदाहरणों ने ActiveSheet के लिए SrcData को संदर्भित किया। परिभाषित शीट के बजाय रेंज।

धन्यवाद!

यदि आप मुझे दिखा सकते हैं कि इस पत्र पर शीट ("पिवोटएक्सपी") के लिए एक उदाहरण पिवट कैसे काम करेगा, तो यह भी बहुत मदद करेगा।http://imgur.com/TShQ1ls

आपको बहुत - बहुत धन्यवाद!

उत्तर:

उत्तर № 1 के लिए -1

मेरे लिए एसआरसीडेटा को परिभाषित करना क्यों संभव नहीं है कार्यपत्रक ( "SHEETNAME") रेंज। ( "A1: A100")?

पिवट तालिका 2 आयामी डेटा (सारणीबद्ध) पर काम करती हैफॉर्म), यानी पंक्तियां और कॉलम, लेकिन ए 1: ए 100 के साथ आप केवल 1 आयामी डेटा (सूची फॉर्म) की आपूर्ति कर रहे हैं। सिंटैक्स नियमों के अनुसार आपको स्रोत डेटा असाइन करने की आवश्यकता है।

It returns a type 13 error: mismatch.

उपर्युक्त कारण के कारण त्रुटि मेल करें।

यदि आप मुझे एक उदाहरण पिवोट दिखा सकते हैं तो यह भी बहुत मदद करेगा इस पर शीट ("पिवोटएक्सपी") के लिए काम करेगा चादर।http://imgur.com/TShQ1ls

किसी कारण से, छवि दिखाई नहीं दे रही थी, लेकिन इसके बजाय आप निम्न उदाहरण लिंक पर जा सकते हैं: http://analysistabs.com/excel-vba/pivot-tables-examples/ जो दिखाता है कि वीबीए कोड के साथ पिवोट टेबल्स कैसे बनाएं।
चूंकि, आपके दिए गए कोड में पिवोट से संबंधित जानकारी बहुत गुम है, एक पिवोट "गठित नहीं होगा लेकिन उपर्युक्त लिंक पर जाकर आप सोच सकते हैं कि इसमें क्या चीजें गायब हैं।


संबंधित सवाल
सबसे लोकप्रिय