请教一个关于数据透视表的问题

chengxiang · 发表于 2004-10-25 09:23

在excel2000及以前版本中，数据透视表中除了页字段这外的其它字段下拉框中没有“全部”一项，我想让它显示，可用下面代码没有办到，请高手指点一下：

Sub PivotShowItemAllVisible() Dim pt As PivotTable Dim pf As PivotField Dim pi As PivotItem Application.ScreenUpdating = False Application.DisplayAlerts = False On Error Resume Next For Each pt In ActiveSheet.PivotTables For Each pf In pt.VisibleFields pf.AutoSort xlManual, pf.SourceName For Each pi In pf.PivotItems If pi.Visible <> True Then pi.Visible = True End If Next pi pf.AutoSort xlAscending, pf.SourceName Next pf Next pt Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

chengxiang · 发表于 2004-10-25 11:52

ding

FENGJUN · 发表于 2004-10-26 11:38

msg="" For Each pi In pf.PivotItems msg=msg & pi & Chr(13) End If Msgbox msg

将所有的项目显示出来，我想如果此版本的PivotItems集合对象中没有“全部”就真的没办法了，XP吧。

chengxiang · 发表于 2004-10-26 12:06

我的是2000

		自动登录	找回密码
密码			免费注册