MS Excel

Téma: Kontingenční tabulka makrem

Zaslal/a LeslieBrown 7.2.2013 0:56

Ahoj,

snažil jsem se vytvořit makro, které mě udělá kontingenční tabulku. Nejedná se pouze o makro, které jednoduše udělá kontingenční tabulku, tabulka je pouze jeden z kroků, nicméně jsem se zasekl.

Na listu Datasheet jsou data. Na list kontingenční tabulka chci přímo umístnit tabulku. Zkoušel jsem níže uvedné, nicméně mě to neustále hlásí chybu. Poradí někdo co dělám špatně?

Sub Makro1()

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Datasheet!R1C1:R1048576C5", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Kontingenční tabulka!R1C1", TableName:= _
"Kontingenční tabulka 1", DefaultVersion:=xlPivotTableVersion14
Sheets("Kontingenční tabulka").Select
Cells(1, 1).Select
ActiveSheet.PivotTables("Kontingenční tabulka 1").AddDataField ActiveSheet. _
PivotTables("Kontingenční tabulka 1").PivotFields("Částka"), "Počet z Částka", _
xlCount
With ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields("Firma")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields( _
"Datum_platby")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields("Smlouva")
.Orientation = xlRowField
.Position = 3
End With
With ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields( _
"Rozpad_produktu")
.Orientation = xlRowField
.Position = 4
End With
With ActiveSheet.PivotTables("Kontingenční tabulka 1").PivotFields( _
"Počet z Částka")
.Caption = "Součet z Částka"
.Function = xlSum
End With
End Sub

Zaslat odpověď >

Pavlus(8.2.2013 23:18)#011542

Zkus přidat ještě přílohu.
V uvedeném kódu je problém se syntaxí (nevhodně rozdělené příkazy), využíváš špatně podtržítka.
P.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.