返回列表 上一主題 發帖

[發問] excel 2007 錄製的樞紐在2003無法使用

genes

帖子
45 
主題
1 
精華
0 
積分
51 
點名
0  
作業系統
windows 7 
軟體版本
office 2003 
閱讀權限
20 
註冊時間
2013-4-16 
最後登錄
2013-12-30 
1# 跳轉到 »
發表於 2013-11-2 00:25 | 顯示全部帖子
pivot table裡的東東是不同的

TOP

genes

帖子
45 
主題
1 
精華
0 
積分
51 
點名
0  
作業系統
windows 7 
軟體版本
office 2003 
閱讀權限
20 
註冊時間
2013-4-16 
最後登錄
2013-12-30 
2#
發表於 2013-11-4 13:10 | 顯示全部帖子
回復 3# dragonbx

家中只有2003,要回到公司才可用2007進行測試

TOP

genes

帖子
45 
主題
1 
精華
0 
積分
51 
點名
0  
作業系統
windows 7 
軟體版本
office 2003 
閱讀權限
20 
註冊時間
2013-4-16 
最後登錄
2013-12-30 
3#
發表於 2013-11-5 23:36 | 顯示全部帖子
試下面
           Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Columns("C").Select
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "整理!R1C3:R65536C4").CreatePivotTable _
        TableDestination:="整理!R2C9", TableName:="樞紐分析表1", DefaultVersion:= _
        xlPivotTableVersion10
    Sheets("整理").Select
    Cells(2, 9).Select
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("料號+批號")
        .Orientation = xlRowField
        .Position = 1
    End With
   
    ActiveSheet.PivotTables("樞紐分析表1").AddDataField ActiveSheet.PivotTables("樞紐分析表1" _
        ).PivotFields("數量"), "計數 - 數量", xlCount
    ActiveWorkbook.ShowPivotTableFieldList = False
    Columns("I:J").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets("轉換").Select
    ActiveWindow.SmallScroll Down:=-9
    Range("A1").Select
    ActiveSheet.Paste
    Sheets("整理").Select
    Range("J4").Select

    Range("J4:J19864").Select
    Application.CutCopyMode = False
    With ActiveSheet.PivotTables("樞紐分析表1").PivotFields("計數 - 數量")
        .Caption = "加總 - 數量"
        .Function = xlSum
    End With

TOP

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
返回列表 上一主題