kimbal

§âwithªº´«¤W

1. with pt
   
2. .PivotFields("TRANSDT").Orientation = xlColumnField
   
3. .AddDataField pt.PivotFields("DEFQTY"), "¥[Á`ªºDEFQTY", xlSum
   
4. .AddDataField pt.PivotFields("CHAMID"), "­p¼ÆªºCHAMID", xlCount
   
5. .PivotFields("CHAMID").Orientation = xlRowField
   
6. .PivotFields("CHAMID").Position = 1
   
7. end with

½Æ»s¥N½X

kimbal

¦^´_ 3# jntseng


¥i¥H,¥u¬O´¶³q¦r¦ê¨Óªº
¦p
S = "CHAMID"
.PivotFields(S)

kimbal

¦^´_ 5# jntseng

¬O
    PivotFields(range("a1"))
¦Ó¤£¬O
   PivotFields("range("a1")")

kimbal

Oh sorry ¦¡¼È¸Õ¸Õ³o­Ó?

1. Dim r As Single
   
2. Dim a1 As Range
   
3. Dim a2 As Range
   
4. Set a1 = Range("N2") 'row field
   
5. Set a2 = Range("O2")  'column field
   
6. r = [F65536].End(xlUp).Row
   
7. Set ptcache = ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="total glass!R1C2: R3030C12")
   
8. Set pt = ptcache.CreatePivotTable(TableDestination:="", TableName:="pivottable1")
   
9. With pt
   
10. .PivotFields(Range("N2").value).Orientation = xlColumnField
    
11. .AddDataField pt.PivotFields("DEFQTY"), "defect ¼Æ", xlSum
    
12. .AddDataField pt.PivotFields("CHAMID"), "glass ¼Æ", xlCount
    
13. .CalculatedFields.Add "density", "DEFQTY/CHAMID"
    
14. .PivotFields("density").Orientation = xlDataField
    
15. .Caption = " density"
    
16. .PivotFields(Range("O2").value).Orientation = xlRowField
    
17. .PivotFields("CHAMID").Position = 1
    
18. End With

½Æ»s¥N½X