返回列表 上一主題 發帖

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

dragonbx

帖子
86 
主題
32 
精華
0 
積分
123 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-28 
最後登錄
2020-7-13 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2013-10-31 17:45 | 只看該作者

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

請教各位先進

  小弟我在2007錄製的樞紐分析，在2003年無法使用

請問是哪裡有問題呢？？

------------------------------------------------------------------------------------------------------------

            Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Columns("C:D").Select
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "整理!R1C3:R65536C4", Version:=xlPivotTableVersion10).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

------------------------------------------------------------------------------------------------------------
收藏 分享
80 字節以內
不支持自定義 Discuz! 代碼

genes

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

TOP

dragonbx

帖子
86 
主題
32 
精華
0 
積分
123 
點名
0  
作業系統
WINDOWSXP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2011-3-28 
最後登錄
2020-7-13 
3#
發表於 2013-11-4 11:49 | 只看該作者
回復 2# genes


    請問大大這該如何解決呢？
80 字節以內
不支持自定義 Discuz! 代碼

TOP

genes

帖子
45 
主題
1 
精華
0 
積分
51 
點名
0  
作業系統
windows 7 
軟體版本
office 2003 
閱讀權限
20 
註冊時間
2013-4-16 
最後登錄
2013-12-30 
4#
發表於 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 
5#
發表於 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

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題