樞紐分析疑問

帖子: 38
主題: 12
精華: 0
積分: 122
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: na
註冊時間: 2010-7-31
最後登錄: 2024-5-3

2^#

發表於 2010-8-11 23:11 | 顯示全部帖子

回復 2# kimbal
謝謝指導,經測試結果可行,額外想要再問另外一個問題,
那就是如附件所示,紅色框框的地方是不是可以改成變數呢?

帖子: 38
主題: 12
精華: 0
積分: 122
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: na
註冊時間: 2010-7-31
最後登錄: 2024-5-3

3^#

發表於 2010-8-12 22:30 | 顯示全部帖子

回復 4# kimbal
我想表達的是若我將range("a1")="CHAMID",可以寫成
PivotFields("range("a1")"),因為我想要讓range("a1")變成變動,可是我試過是不行 ,是不是有什麼方法可以達成呢?

帖子: 38
主題: 12
精華: 0
積分: 122
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: na
註冊時間: 2010-7-31
最後登錄: 2024-5-3

4^#

發表於 2010-8-13 22:26 | 顯示全部帖子

回復 6# kimbal
我測試的結果不行,我寫的程式如下: (請問我試哪裡出問題了呢, range("n2")=TRANSDT,range("o2")=CHAMID

Dim r As Single
Dim a1 As Range
Dim a2 As Range
Set a1 = Range("N2") 'row field
Set a2 = Range("O2") 'column field
r = [F65536].End(xlUp).Row
Set ptcache = ThisWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="total glass!R1C2: R3030C12")
Set pt = ptcache.CreatePivotTable(TableDestination:="", TableName:="pivottable1")
With pt
.PivotFields(Range("N2")).Orientation = xlColumnField
.AddDataField pt.PivotFields("DEFQTY"), "defect 數", xlSum
.AddDataField pt.PivotFields("CHAMID"), "glass 數", xlCount
.CalculatedFields.Add "density", "DEFQTY/CHAMID"
.PivotFields("density").Orientation = xlDataField
.Caption = " density"
.PivotFields(Range("O2")).Orientation = xlRowField
.PivotFields("CHAMID").Position = 1
End With
End Sub

帖子: 38
主題: 12
精華: 0
積分: 122
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: na
註冊時間: 2010-7-31
最後登錄: 2024-5-3

5^#

發表於 2010-8-14 22:37 | 顯示全部帖子

回復 8# kimbal
Dim a1 As String '定義a1為字串
Dim a2 As String '定義a2 為字串
a1 = Range("N2").Value 'row field欄位名可以變成變數
a2 = Range("O2").Value 'column field'row field欄位名可以變成變數
帶到程式內即可,若沒有定義為字串,執行會有問題