Astuces Excel
  1. Astuces Excel
  3. VBA Pivot Table Datafield Orientation doit être renversé
Intereting Posts
Syntaxe de la fonction droite dans Excel Macro pour TRANSPOSE la cellule délimitée par des virgules dans les lignes et copyr les cellules adjacentes Pourquoi mon script Python renvoie un object en tant que string Les données Excel ne se modernisent pas à l'aide de python Écrivez le contenu html sur la feuille de calcul Excel Accès Valeurs modifiables du file Excel Excel – Valeurs de la cellule correspondent à la première rangée, valeurs de return sur une ligne avec plusieurs colonnes Exportation d'images depuis Excel vers plusieurs diapositives dans PowerPoint Comment automatiser le process d'obtention de données de BigQuery en excel à l'aide de BigQuery excel Connector? Comment insert une formule Excel à l'aide de PowerShell? Résolution d'équations dans R semblable à la fonction de parameters Excel Solver Comment get une sum pondérée selon deux conditions dans Excel? Trier datatables lors de l'écriture pour excel Transition d'Excel vers Access – défis dans l'atsortingbution / la détermination d'une key primaire VBA SUM Variable Range

VBA Pivot Table Datafield Orientation doit être renversé

Mon code actuel fait que mes champs de données renvoient en tant que lignes plutôt que en colonne. Mon objective est de faire en sorte que les champs de données aient une orientation en forme de colonne. 

Set objtable = Sheets(Worksheets.Count).PivotTableWizard Set objfield = objtable.PivotFields("Asset ID") objfield.Orientation = xlRowField Set objfield = objtable.PivotFields("Date") objfield.Orientation = xlColumnField Set objfield = objtable.PivotFields("Landmark") objfield.Orientation = xlPageField Set objfield = objtable.PivotFields("Charge") objfield.Orientation = xlDataField objfield.Function = xlSum Set objfield = objtable.PivotFields("Arrival Date") objfield.Orientation = xlDataField objfield.Function = xlMinenter code here

Cela dépend de la version de la table de pivotement. Le code suivant peut aider à résoudre votre problème, lorsque vous créez le pivot, utilisez la version 12 xlPivotTableVersion12 . 

 DesWorkBk.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=sourcedataStr, Version:=xlPivotTableVersion12).CreatePivotTable _ TableDestination:=wsPvtTbl.Range("A1"), TableName:="PivotTable2"