Kezdőlap › Fórumok › Excel programozás › [Resolved] Pivot tabla hiba MAKROBAN
- This topic has 5 hozzászólás, 2 résztvevő, and was last updated 4 years, 1 month telt el by horvimi.
-
SzerzőBejegyzés
-
2020-09-18-17:26 #7643
Sziasztok,
Szeretnek makroban letrehozni egy pivot tablat, de mindig hibara fut ki, tudnatok ebben segiteni pls?
Felkoverrel jeloltem, ahol debug van.
Elore is koszonom!Sheets.Add.Name = „Fokonyv pivot”
Sheets(„Fokonyv”).Select
Range(„A1”).Select
‘Range(Selection, Selection.End(xlDown)).Select
‘ Range(Selection, Selection.End(xlToRight)).Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
„Fokonyv!R1C1:R316C21”, Version:=6).CreatePivotTable TableDestination:= _
„Fokonyv pivot!R1C1″, TableName:=”Kimutatas1”, DefaultVersion:=6
Sheets(„Fokony pivot”).Select
Cells(1, 1).Select
With ActiveSheet.PivotTables(„Kimutatas1”)
.ColumnGrand = True
.HasAutoFormat = True
.DisplayErrorString = False
.DisplayNullString = True
.EnableDrilldown = True
.ErrorString = „”
.MergeLabels = False
.NullString = „”
.PageFieldOrder = 2
.PageFieldWrapCount = 0
.PreserveFormatting = True
.RowGrand = True
.SaveData = True
.PrintTitles = False
.RepeatItemsOnEachPrintedPage = True
.TotalsAnnotation = False
.CompactRowIndent = 1
.InGridDropZones = False
.DisplayFieldCaptions = True
.DisplayMemberPropertyTooltips = False
.DisplayContextTooltips = True
.ShowDrillIndicators = True
.PrintDrillIndicators = False
.AllowMultipleFilters = False
.SortUsingCustomLists = True
.FieldListSortAscending = False
.ShowValuesRow = False
.CalculatedMembersInFilters = False
.RowAxisLayout xlCompactRow
End With
With ActiveSheet.PivotTables(„Kimutatas1”).PivotCache
.RefreshOnFileOpen = False
.MissingItemsLimit = xlMissingItemsDefault
End With
ActiveSheet.PivotTables(„Kimutatas1”).RepeatAllLabels xlRepeatLabels
With ActiveSheet.PivotTables(„Kimutatas1”).PivotFields(„Assignment”)
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables(„Kimutatas1”).AddDataField ActiveSheet.PivotTables( _
„Kimutatas1”).PivotFields(„Osszeg”), „Sum of Osszeg”, xlSum
Columns(„B:B”).Select
Selection.Style = „Comma”
Selection.NumberFormat = „_-* #,##0.0_-;-* #,##0.0_-;_-* „”-„”??_-;_-@_-”
Selection.NumberFormat = „_-* #,##0_-;-* #,##0_-;_-* „”-„”??_-;_-@_-”End Sub
2020-09-19-20:26 #7644Szia!
Elsőként kérnélek, hogy ha legközelebb kódot teszel fel, akkor mielőtt elküldöd, a „code” gombbal formázd meg.
(Kijelölés–> Code. Egy szimpla aposztrófot tesz a kijelölés köré, de amikor megjelenik, akkor szürke háttérben minden karakter ASCII-ben jelenik meg, és nem kell szívni a kicserélt dupla idézőjelekkel, ahogy a te bejegyzésedben látszik.A lényeg pedig az, hogy a makró nem szereti, ha egy munkalap nevében szóköz van.
Próbáld ki, hogy a pivot lapot “Fokonyv_pivot”-nak hívod, és a létrehozáson kívül a pivot tábla makrójában is erre hivatkozol.Sheets.Add.Name = "Fokonyv_pivot" ...... ........ TableDestination:= _ "Fokonyv_pivot!R1C1"
Imre
- A hozzászólás módosításra került: 4 years, 1 month telt el-horvimi.
2020-09-21-16:49 #7649Szia Imre,
Nagyon köszönöm a segítséget’ Legközelebb figyelek erre a formázásra a kóddal kapcsolatban.
Átírtam a kódot a javaslatod szerint, de sajnos úgysem működött 🙁
Esetleg ha ha tudtok segíteni ebben, hogy mi lehet a hiba, szívesen venném továbbra is.
Íme a kód a jelenlegi formájában:Sheets.Add.Name = "Fokonyv_pivot" ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Fokonyv!R1C1:R316C21", Version:=6).CreatePivotTable TableDestination:= _ "Fokony_pivot!R3C1", TableName:="Fokonypivot1", DefaultVersion:=6 Cells(3, 1).Select With ActiveSheet.PivotTables("Fokonyvpivot1") .ColumnGrand = True .HasAutoFormat = True .DisplayErrorString = False .DisplayNullString = True .EnableDrilldown = True .ErrorString = "" .MergeLabels = False .NullString = "" .PageFieldOrder = 2 .PageFieldWrapCount = 0 .PreserveFormatting = True .RowGrand = True .SaveData = True .PrintTitles = False .RepeatItemsOnEachPrintedPage = True .TotalsAnnotation = False .CompactRowIndent = 1 .InGridDropZones = False .DisplayFieldCaptions = True .DisplayMemberPropertyTooltips = False .DisplayContextTooltips = True .ShowDrillIndicators = True .PrintDrillIndicators = False .AllowMultipleFilters = False .SortUsingCustomLists = True .FieldListSortAscending = False .ShowValuesRow = False .CalculatedMembersInFilters = False .RowAxisLayout xlCompactRow End With With ActiveSheet.PivotTables("Fokonyvpivot1").PivotCache .RefreshOnFileOpen = False .MissingItemsLimit = xlMissingItemsDefault End With ActiveSheet.PivotTables("Fokonyvpivot1").RepeatAllLabels xlRepeatLabels With ActiveSheet.PivotTables("Fokonyvpivot1").PivotFields("Assignment") .Orientation = xlRowField .Position = 1 End With ActiveSheet.PivotTables("Fokonyvpivot1").AddDataField ActiveSheet.PivotTables( _ "Fokonyvpivot1").PivotFields("Osszeg"), "Sum of Osszeg", xlSum
A sheet neve: Fokonyv_pivot
A pivottábla neve: Fokonyvpivot1
A makro csak a sheet letrehoyásáig jut el, a pivot táblánál akad meg.
Előre is köszönöm a segítséget’2020-09-21-17:52 #7650Kihagytál egy „v” betűt a Pivot létrehozó parancs harmadik sorában a munkalap nevéből. 🙂
"Fokony_pivot!R3C1"
Imre
2020-09-22-07:52 #7656Szia Imre,
Köszönöm szépen, tényleg ez volt a hiba a második esetnél. Úgy látszik, hogy a nap végére belekvarodtam a kódokba 😀
Mostmár tökéletesen működik az előző javaslatoddal 🙂2020-09-22-07:54 #7658Örülünk
-
SzerzőBejegyzés
- Be kell jelentkezni a hozzászóláshoz.