VBA Tableau croisé dynamique Sur la Nouvelle Feuille

J'ai enregistré une macro pour créer un tableau croisé dynamique et suivantes graphique en VBA. Il fonctionne comme un charme, pas du tout comment j'en ai besoin. Le problème est que je veux être en mesure d'exécuter le code et de le créer un tableau sur une feuille qui n'existe pas déjà. Fondamentalement, je vais l'exécuter à partir d'un bouton dans un menu, et il devrait créer le tableau et le graphique sur une nouvelle page. Sans plus tarder:

Sub Macro13()

' Macro13 Macro



    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Main Budget Sheet!R2C1:R88C10", Version:=xlPivotTableVersion14). _
        CreatePivotTable TableDestination:="Sheet21!R1C1", TableName:= _
        "PivotTable12", DefaultVersion:=xlPivotTableVersion14
    Sheets("Sheet21").Select
    Cells(1, 1).Select
    With ActiveSheet.PivotTables("PivotTable12").PivotFields("Category")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable12").AddDataField ActiveSheet.PivotTables( _
        "PivotTable12").PivotFields("Labor"), "Sum of Labor", xlSum
    ActiveSheet.PivotTables("PivotTable12").AddDataField ActiveSheet.PivotTables( _
        "PivotTable12").PivotFields("Material"), "Sum of Material", xlSum
    ActiveSheet.Shapes.AddChart.Select
End Sub

Si je met cela dans un anglais simple, je suppose que cela signifie... Sélectionner des Données dans le Budget Principal de la Feuille puis créez un tableau croisé dynamique sur la feuille 21 nommée pivot tableau 12... Puis Sélectionnez la feuille de 21 et de sélectionner les champs du tableau croisé dynamique...Enfin, ajouter un graphique à partir des données des...

Je pense que ce dont j'ai besoin pour faire est de simplement comprendre noms généraux pour chacune de ces choses (en plus de la source de données).

Aussi, actuellement, il ne fonctionnera qu'une fois et seulement si la fiche existe déjà, sans doute parce qu'il ne peut pas faire un tableau croisé dynamique nommé la même chose, donc si il pouvait à plusieurs reprises il suffit de créer le même tableau sur différentes feuilles je pourrais mourir heureux.

Comme vous pouvez le voir, j'ai essayé assez sur ce que j'ai créé 21 feuilles :/si l'effort est là, mais comme Einstein définition de la folie membres de "la Folie, c'est d'essayer la même chose et d'espérer un résultat différent." Actuellement, je suis à cours de nouvelles choses à essayer.

En effet j'ai essayer et s'il n'a créer une nouvelle feuille, la table n'a pas de fin en elle.

InformationsquelleAutor Nicholas Brandon | 2013-12-06

Ajouter une feuille, puis utilisez cette feuille pour ajouter le nouveau pivot trop comme suit:

Sub AddPivotOnNewSheet()
Dim wsNew As Worksheet

Set wsNew = Sheets.Add

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Main Budget Sheet!R2C1:R88C10", Version:=xlPivotTableVersion14). _
        CreatePivotTable TableDestination:=wsNew.Name & "!R1C1", TableName:= _
        "PivotTableName", DefaultVersion:=xlPivotTableVersion14

    With ActiveSheet.PivotTables("PivotTableName").PivotFields("Category")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTableName").AddDataField ActiveSheet.PivotTables( _
        "PivotTableName").PivotFields("Labor"), "Sum of Labor", xlSum
    ActiveSheet.PivotTables("PivotTableName").AddDataField ActiveSheet.PivotTables( _
        "PivotTableName").PivotFields("Material"), "Sum of Material", xlSum

    wsNew.Shapes.AddChart.Select
End Sub

Oh mon dieu, j'ai littéralement passé 4 heures à essayer de comprendre cette chose unique, et vous venez le long et résoudre simplement. Je vous remercie beaucoup. Vous êtes incroyable. Une dernière chose, désolé, le nom de "PivotTableName" est-ce une forme générale à cause de vous pas besoin d'un nom spécifique, ou pourriez-vous mettre quelque chose là-bas?
Vous pouvez utiliser ce que vous voulez le nom du tableau croisé dynamique pour être

InformationsquelleAutor user2140261

Sub pivotnewsheet()

Dim ws As Worksheet 
Dim pc As PivotCache 
Dim pt As PivotTable

'Creating Pivot cache 
On Error Resume Next 
Set pc = ActiveWorkbook.PivotCaches.Create(xlDatabase, Cells(5, 1).CurrentRegion) 'select first cells of your data range, in my case its start with Row5 column1 so i put cells(5,1)

'Adding new worksheet

Set ws = Worksheets.Add 
ws.Name = "Summary"

'Creating Pivot table 
Set pt = ActiveSheet.PivotTables.Add(PivotCache:=pc, Tabledestination:=Range("A3"))
' it will create pivot table on sheet named summary at range A3

pt.Name = "PivotTable"

'Setting Fields 
With pt 
with .PivotFields("DEPT_NAME") 
.Orientation = xlRowField 
.Position = 1 
End With

'set column field 
With .PivotFields("QTY") 
.Orientation = xlDataField 
.Function = xlSum 
.Position = 1 
End With 
With .PivotFields("TOTAL_RETAIL_VALUE") 
.Orientation = xlDataField 
.Function = xlAverage 
.Position = 2 
.NumberFormat = "0.00" 'format for two decimals 
End With 
With .PivotFields("TOTAL_LANDED_COST") 
.Orientation = xlDataField 
.Function = xlAverage 
.NumberFormat = "0.00" 
.Position = 3 
End With 
'select classic view pivot 
With ActiveSheet.PivotTables("PivotTable") 
.InGridDropZones = True 
.RowAxisLayout xlTabularRow 
End With

End With

End Sub

sa fonctionne avec succès.. profitez les gars 🙂

InformationsquelleAutor Riya Sen

Vous devez vous connecter pour publier un commentaire.