创建数据透视表宏 - 需要通过代码删除标记的行

时间:2016-06-07 06:36:26

标签: excel vba excel-vba pivot-table

我希望标记的行(小计)不见了,这里是我的Pivot表的代码(我正在编写宏)任何建议? See picture here

    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=ActiveSheet.UsedRange).CreatePivotTable TableDestination:="", TableName:="PivotTable1", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(1, 1)
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Kostenstellen-Nr"
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Konto-Nr"
ActiveSheet.PivotTables("PivotTable1").AddFields RowFields:="Betrag Brutto"
ActiveSheet.PivotTables("PivotTable1").PivotFields("Kostenstellen-Nr").Orientation = xlRowField
ActiveSheet.PivotTables("PivotTable1").PivotFields("Konto-Nr").Orientation = xlRowField
ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables("PivotTable1").PivotFields("Betrag Brutto"), "Sum of Betrag Brutto", xlSum

1 个答案:

答案 0 :(得分:0)

您正在谈论小计,您可以录制宏并通过顶部功能区(数据透视表工具/设计)进行更改。

将此行添加到您的代码中:

input {
    file {
    path =>"/var/log/site.log"
    start_position => beginning
     }


}
filter {
    grok {
        match => { "message" => "%{COMBINEDAPACHELOG}"}
    }
    geoip {
        source => "clientip"
    }
}

output {
    elasticsearch {
    user => "logstash"
    password => "logstash"
    }
}