Excel VBA:如何在数据透视表中将空白显示为0?

大卫·肖奇

我正在创建一个宏,该宏创建带有计数的数据透视表。我注意到,如果计数为零,则显示为空白。有没有办法以编程方式使其变为0?

这是我的代码:

With Worksheets("Working")

    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:="'" & rngData.Worksheet.Name & "'!" & rngData.Address(ReferenceStyle:=xlR1C1), _
        Version:=xlPivotTableVersion12).CreatePivotTable TableDestination:=ws.Range("A1"), _
        TableName:="HDPivotTable", DefaultVersion:=xlPivotTableVersion12
End With

ws.PivotTables("HDPivotTable").AddFields RowFields:="Row Label"

ws.PivotTables("HDPivotTable").PivotFields("h,d,x").Orientation = xlDataField

With ws.PivotTables("HDPivotTable").PivotFields("h,d,x")
    .Orientation = xlColumnField
    ws.PivotTables("HDPivotTable").PivotCache.MissingItemsLimit = xlMissingItemsNone
    ws.PivotTables("HDPivotTable").PivotCache.Refresh

    For i = 1 To .PivotItems.Count
        ' Filter out columns that are not "D" or "H"
        If .PivotItems(i) <> "D" And .PivotItems(i) <> "H" Then
            .PivotItems(i).Visible = False
        End If
    Next
End With

谢谢。

luke_t

您应该可以使用PivotTable.NullString

ws.PivotTables("HDPivotTable").NullString = "0"

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

Excel VBA:如何在数据透视表中将空白显示为0?

来自分类Dev

在Excel数据透视表中将0到1之间的值显示为“ <1”

来自分类Dev

如何在数据透视表Excel电子表格上没有总和

来自分类Dev

如何在Excel中的数据透视表中跳过空白页

来自分类Dev

如何获取Excel数据透视表中的行数以在数据透视表之外使用?

来自分类Dev

使用值过滤时,如何在Excel VBA数据透视表中使用变量?

来自分类Dev

如何在 Excel 数据透视表中使用 VBA 过滤列标签

来自分类Dev

如何使用Excel VBA遍历动态数据透视表?

来自分类Dev

Excel数据透视表; 如何水平显示值

来自分类Dev

Excel VBA数据透视表ShowDetails

来自分类Dev

Excel VBA数据透视表ShowDetails

来自分类Dev

如何在Excel数据透视表中保留排序顺序?

来自分类Dev

Excel数据透视表

来自分类Dev

将Excel数据透视表数据源显示为单元格值

来自分类Dev

如何在 Excel VBA 中将字典设置为字典值?

来自分类Dev

Excel Vba,创建数据透视表,按值前10位自动显示,错误1004

来自分类Dev

Excel 2013 VBA数据透视表过滤器将更改,但不会显示值

来自分类Dev

通过 VBA 在 Excel 数据透视表中显示具有重复数量的重复行

来自分类Dev

如何在Excel VBA中将数字输入数据和时间

来自分类Dev

Visual Studio Excel数据透视表不显示数据

来自分类Dev

数据透视表宏Excel

来自分类Dev

如何在Excel中将空白的零切换为Excel?

来自分类Dev

如何从Excel 365中的数据透视图删除空白?

来自分类Dev

如何在 Excel 中使用多个标题行在交叉表上应用数据透视表?

来自分类Dev

刷新在Excel Vba中创建的数据透视表(ADODB连接)

来自分类Dev

获取选定的数据透视表名称-Excel VBA

来自分类Dev

Excel VBA-RefreshAll不更新数据透视表

来自分类Dev

Excel VBA 数据透视表缓存方法错误

来自分类Dev

Excel VBA创建数据透视表,没有表格出现

Related 相关文章

  1. 1

    Excel VBA:如何在数据透视表中将空白显示为0?

  2. 2

    在Excel数据透视表中将0到1之间的值显示为“ <1”

  3. 3

    如何在数据透视表Excel电子表格上没有总和

  4. 4

    如何在Excel中的数据透视表中跳过空白页

  5. 5

    如何获取Excel数据透视表中的行数以在数据透视表之外使用?

  6. 6

    使用值过滤时,如何在Excel VBA数据透视表中使用变量?

  7. 7

    如何在 Excel 数据透视表中使用 VBA 过滤列标签

  8. 8

    如何使用Excel VBA遍历动态数据透视表?

  9. 9

    Excel数据透视表; 如何水平显示值

  10. 10

    Excel VBA数据透视表ShowDetails

  11. 11

    Excel VBA数据透视表ShowDetails

  12. 12

    如何在Excel数据透视表中保留排序顺序?

  13. 13

    Excel数据透视表

  14. 14

    将Excel数据透视表数据源显示为单元格值

  15. 15

    如何在 Excel VBA 中将字典设置为字典值?

  16. 16

    Excel Vba,创建数据透视表,按值前10位自动显示,错误1004

  17. 17

    Excel 2013 VBA数据透视表过滤器将更改,但不会显示值

  18. 18

    通过 VBA 在 Excel 数据透视表中显示具有重复数量的重复行

  19. 19

    如何在Excel VBA中将数字输入数据和时间

  20. 20

    Visual Studio Excel数据透视表不显示数据

  21. 21

    数据透视表宏Excel

  22. 22

    如何在Excel中将空白的零切换为Excel?

  23. 23

    如何从Excel 365中的数据透视图删除空白?

  24. 24

    如何在 Excel 中使用多个标题行在交叉表上应用数据透视表?

  25. 25

    刷新在Excel Vba中创建的数据透视表(ADODB连接)

  26. 26

    获取选定的数据透视表名称-Excel VBA

  27. 27

    Excel VBA-RefreshAll不更新数据透视表

  28. 28

    Excel VBA 数据透视表缓存方法错误

  29. 29

    Excel VBA创建数据透视表,没有表格出现

热门标签

归档