|
本帖最后由 爱疯 于 2014-4-15 15:24 编辑
Sub 宏6()
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
Sheets("user").Range("a1").CurrentRegion, _
Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:=Range("a1"), TableName:="abc"
With ActiveSheet.PivotTables("abc")
'1)拖入
'数值
.AddDataField .PivotFields("签约带宽")
.AddDataField .PivotFields("签约带宽")
'行标签
.PivotFields("县市").Orientation = xlRowField
.PivotFields("签约带宽").Orientation = xlRowField
'>>> 放在with中,可以
'2)设置
' With .PivotFields("计数项:签约带宽2")
' .Caption = "占比"
' .Calculation = xlPercentOfParentRow '父行的总计的百分比。
' .NumberFormat = "0.00%"
' End With
'<<<
'>>> 不放在with中,错误
ActiveSheet.PivotTables("abc").PivotFields("计数项:签约带宽2").Caption = "占比"
ActiveSheet.PivotTables("abc").PivotFields("计数项:签约带宽2").Calculation = xlPercentOfParentRow
ActiveSheet.PivotTables("abc").PivotFields("计数项:签约带宽2").NumberFormat = "0.00%"
'<<<
.DataPivotField.Orientation = xlColumnField '数据字段方向按列
.PivotFields("签约带宽").PivotItems("10M").Position = 7 '10M移至末尾
.PivotFields("签约带宽").PivotItems("20M").Position = 7
.PivotFields("计数项:签约带宽").Caption = "个数"
.PivotFields("县市").Subtotals = Array(False, False, False, False, False, False, False, False, False, False, False, False) '删除汇总
.ColumnGrand = False '不显示列总计
End With
End Sub
20140408不达标-3.rar
(27.48 KB, 下载次数: 2)
|
|