• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse