[求助] Excel透视表问题，急，急，急=>=>=>=>=>=>=>=>=&g

yanjie

楼上的方法,学习了.

我也做了一个,在数据源中添加了3个辅助列,并且使用了变动的列表,即在数据源中添加新的数据后,只需刷新透视表就能显示结果!我认为考虑变动的因素也很重要!

文件如下:

JBRReKzZ.rar (21.07 KB, 下载次数: 3)

2007-7-23 22:37 上传

点击文件名下载附件
[求助] Excel透视表问题，急，急，急=>=>=>=>=>=>=>=>=>=>=>

BIN_YANG168

请参考http://club.excelhome.net/dispbbs.asp?boardid=1&replyid=742987&id=221812&page=1&skin=0&Star=4，33楼

daley_huang

QUOTE:

以下是引用yanjie在2007-7-23 22:38:13的发言：

楼上的方法,学习了.

我也做了一个,在数据源中添加了3个辅助列,并且使用了变动的列表,即在数据源中添加新的数据后,只需刷新透视表就能显示结果!我认为考虑变动的因素也很重要!

文件如下:

怎样添加列，使这列的值是 某一列的汇总值（数据行数是不固定的）

dsp5000

QUOTE:

以下是引用daley_huang在2007-7-24 9:50:33的发言：

怎样添加列，使这列的值是 某一列的汇总值（数据行数是不固定的）

1、添加3列

2、列表功能：选中数据区，点击工具栏，数据----列表-----创建列表

3、参考23楼的附件里的公式在辅助列里添加公式。

 

daley_huang

QUOTE:

以下是引用dsp5000在2007-7-24 10:45:03的发言：

1、添加3列

2、列表功能：选中数据区，点击工具栏，数据----列表-----创建列表

3、参考23楼的附件里的公式在辅助列里添加公式。

 

还是那个问题：怎样添加列，使这列的值是某一列的汇总值

（数据行数是不确定的，是从数据库中取出的，每次取出就是一个Excel文件，我会通过录制宏先把透视表做好，每次取出数据也就是说产生Excel文件，只要点击 一个按钮（自己写的，去调用那个宏）就会自动产生透视表）

breezy

QUOTE:

以下是引用daley_huang在2007-7-24 11:08:54的发言：

还是那个问题：怎样添加列，使这列的值是某一列的汇总值

（数据行数是不确定的，是从数据库中取出的，每次取出就是一个Excel文件，我会通过录制宏先把透视表做好，每次取出数据也就是说产生Excel文件，只要点击 一个按钮（自己写的，去调用那个宏）就会自动产生透视表）

给你写了一个宏,应该可以解决你的问题了.

Sub CreatePivot()
Dim row%, source$, sumA As Long, sumB As Long, sumC As Long, strA$, strB$, strC$
With Sheets("test")
    .Select
    row = [A65536].End(xlUp).row
    source = "test!R1C1:R" & row & "C5"
    sumA = Application.WorksheetFunction.Sum(.Range("C2:C65536"))
    sumB = Application.WorksheetFunction.Sum(.Range("D2:D65536"))
    sumC = Application.WorksheetFunction.Sum(.Range("D2:D65536"))
End With

strA = "=入库量 /" & sumA
strB = "=入库量 /" & sumB
strC = "=配发量 /" & sumC
   
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
    source).CreatePivotTable TableDestination:="", TableName:= _
    "数据透视表1", DefaultVersion:=xlPivotTableVersion10
   
With ActiveSheet.PivotTables("数据透视表1")
    .PivotFields("款号").Orientation = xlRowField
    .AddDataField .PivotFields("入库量"), "求和项:入库量", xlSum
    .AddDataField .PivotFields("配发量"), "求和项:配发量", xlSum
    .AddDataField .PivotFields("销售量"), "求和项:销售量", xlSum
    .DataPivotField.Orientation = xlColumnField
    .CalculatedFields.Add "A", strA, True
    .CalculatedFields.Add "B", strB, True
    .CalculatedFields.Add "C", strC, True
    .PivotFields("A").Orientation = xlDataField
    .PivotFields("B").Orientation = xlDataField
    .PivotFields("C").Orientation = xlDataField
    .PivotFields("求和项:A").NumberFormat = "0.00%"
    .PivotFields("求和项:B").NumberFormat = "0.00%"
    .PivotFields("求和项:C").NumberFormat = "0.00%"
End With
End Sub

[此贴子已经被作者于2007-7-24 14:50:54编辑过]

yanjie

你用的是什么数据库呀?SQL Server  或者是Access,或是另外其他的数据库,其实excel可以直接连接到数据库,用不着再把数据从数据库里面倒出来!再用一个查询就可完全解决你的问题!

daley_huang

QUOTE:

以下是引用yanjie在2007-7-24 20:40:06的发言：
你用的是什么数据库呀?SQL Server  或者是Access,或是另外其他的数据库,其实excel可以直接连接到数据库,用不着再把数据从数据库里面倒出来!再用一个查询就可完全解决你的问题!

我用的是Oracle数据库，

有没有Excel连接Oracle数据库的实例，发我邮箱，谢谢

daley_huang@163.com