数据透视表之多重合并计算数据区域问题？

zssccs

请见附件：利用多重合并计算数据区域建了页字段后，为什么数据区域所有的字段的格式都一样，连“产品”字段都变成了计数格式且显示不了产品名，为什么呢？


详情请见附件！

zssccs

请高手赐教~~~

一意孤行

多重合并计算区域实现不了你的想法
试试SQL法

LangQueS

建议楼主将日常发生的数据，保存在同一个工作表中……

关于管理数据的方法请参考：       
★Excel数据管理的一般规律★        http://club.excelhome.net/thread-287461-1-1.html

zssccs

原帖由 LangQueS 于 2009-11-17 14:03 发表
建议楼主将日常发生的数据，保存在同一个工作表中……

关于管理数据的方法请参考：       
★Excel数据管理的一般规律★        http://club.excelhome.net/thread-287461-1-1.html

由于工作特殊，放在一个工作表中会很不方便的
真的就不能实现吗？

LangQueS

使用报表形式保存数据，是数据管理的大忌……建议楼主调整管理数据的方法。

LangQueS

SQL+数据透视表+VBA 数据透视表的超级应用-多表查询

http://club.excelhome.net/viewth ... p;page=1#pid3015613

zssccs

原帖由 LangQueS 于 2009-11-17 14:42 发表
使用报表形式保存数据，是数据管理的大忌……建议楼主调整管理数据的方法。

也就是说这种数据管理实现不了数据透视表

zssccs

原帖由 LangQueS 于 2009-11-17 14:42 发表
使用报表形式保存数据，是数据管理的大忌……建议楼主调整管理数据的方法。

用VBA帮忙实现怎么样？请指教~
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$A$1" Then
        Range("A4").Select
        ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:="data_" & [A1]
        ActiveWorkbook.ShowPivotTableFieldList = True
        ActiveWorkbook.ShowPivotTableFieldList = False
End If
'Application.ScreenUpdating = True
End Sub

但是运行完了，为什么日期（月组合）变成英文的呢？费解~

[ 本帖最后由 zssccs 于 2009-11-17 17:27 编辑 ]