Microsoft's Visual Basic ( VBA ) is een kale en vroege programmeertaal ontwikkeld om te helpen creëren desktop applicaties , faciliteren gegevens sorteren en staat het genereren van rapporten op basis van data . U kunt deze ook VBA gebruiken om een draaitabel te maken om gegevens in combinatie met een spreadsheetprogramma zoals Microsoft Excel samenvatten . Met behulp van een klein stukje VBA code , kunt u een spil van een bestaande data tabel relatief eenvoudig te maken . Instructies
1 Start de VBA script door het volgende te typen : Create_Pivot_Table_From_Cache ( )
2 Geef de methoden van de spil door het volgen met de followinf drie lijnen van VBA-code : Dim OPC als PivotCache Dim opt
Zoals draaitabellen Dim OWS
als Aantekenvel
3 opgeven de functies van de OPC , kiezen , en OWS door toevoeging van de volgende regels code : OWS
= ActiveSheet OPC
= ActiveWorkbook.PivotCaches.Create ( xlDatabase , oWS.UsedRange ) op opt = oPC.CreatvePivotTable ( oWS. [ D20 ] , " pivot van Cache " , True )
4 Geef aan hoe de velden moeten draaien , of te berekenen data , met behulp van de volgende regels code . Merk op dat in dit voorbeeld , kan de kolom veldnamen gegevens verschillen van de uwe . OPT.AddFields
( oPT.PivotFields ( " Prijs " ) . Naam , oPT.PivotFields
( "Product" ) . Naam ) oPT.AddDataField
( oPT.PivotFields ( " Type" ) , " Product Type " , xlSum )
5 Voer het VBA script binnen een compatibel programma , zoals Excel en bekijk de gegenereerde gedraaid tafel .
|
