excel vba创建数据透视表的时候只显示行或列,怎么回事,不全部显示
发布网友
发布时间：2022-04-23 23:37
共3个回答
热心网友
时间：2023-10-13 21:01
因为你的不是excel2007，所以包含xlpivottableversion12的语句都会出错。
把这样命名参数及其赋值字符串都删除掉，应该就好了，有两处：
version:=xlpivottableversion12
defaultversion:=xlpivottableversion12
热心网友
时间：2023-10-13 21:02
没遇到过，可不可以贴个图。追问可以加你的QQ吗，我的Q610067775，不知道如何上传图片选项灰
ActiveWorkbook.ShowPivotTableFieldList = True
With Worksheets(pivot).PivotTables("数据透视表1").PivotFields("Candidate Label Group:Name")
.Orientation = xlRowField
.Position = 1
End With
With Worksheets(pivot).PivotTables("数据透视表1").PivotFields("Stage")
.Orientation = xlColumnField
.Position = 1
End With
追答你可以自己录制一个宏看一下，行和列的代码不同。
比如，我测试的宏：
With ActiveSheet.PivotTables("数据透视表1").PivotFields("A")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("数据透视表1").AddDataField ActiveSheet.PivotTables("数据透视表1" _
).PivotFields("B"), "计数项:B", xlCount
ActiveSheet.PivotTables("数据透视表1").PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables("数据透视表1").AddDataField ActiveSheet.PivotTables("数据透视表1" _
).PivotFields("C"), "计数项:C", xlCount
With ActiveSheet.PivotTables("数据透视表1").DataPivotField
.Orientation = xlColumnField
.Position = 1
End With
热心网友
时间：2023-10-13 21:02
赌`,/'/博用的(透视.'/,眼镜):牌九，麻将，扑克，骰子，等都可透视 不需要任何加工，需要的qq回答者
