能否自动隐藏数据透视表源数据中的零

llnh520 · 发表于 2009-9-20 23:15

不会发图片，劳烦看附件

LangQueS · 发表于 2009-9-20 23:26

工具……选项……视图……取消“零值”勾选……确定

bqs · 发表于 2009-9-20 23:29

修改字段中的数字格式，可以让0不显示出来。透视表中的数字格式也是可以设置的。

llnh520 · 发表于 2009-9-21 11:51

不好意思，我没说清楚，我想要在数据透视表中隐藏零那一行，只显示有数据的行项

LangQueS · 发表于 2009-9-21 13:01

Sub 隐藏行()
For a = 15 To 100
If Range("d" & a) = "0" Then '行号除3的余数为0
Rows(a).EntireRow.Hidden = True '隐藏行
End If
Next
End Sub

llnh520 · 发表于 2009-9-21 16:54

基本上可以了，还有个小问题，就是编号跟着一起隐藏了，呵呵！

yancjm · 发表于 2009-9-21 17:31

原帖由 llnh520 于 2009-9-21 16:54 发表
基本上可以了，还有个小问题，就是编号跟着一起隐藏了，呵呵！

借用輔助列

LangQueS · 发表于 2009-9-21 18:58

原帖由 llnh520 于 2009-9-21 16:54 发表
基本上可以了，还有个小问题，就是编号跟着一起隐藏了，呵呵！

Sub 隐藏行()
For a = 15 To 100
If Range("d" & a) = "0" And Range("b" & a) = "" Then
Rows(a).EntireRow.Hidden = True '隐藏行
End If
Next
End Sub

llnh520 · 发表于 2009-9-21 19:11

langques版主谢谢你，我对VBA不了解，能解释下，代码中的”d"和b是什么意思吗

LangQueS · 发表于 2009-9-21 19:17

Sub 隐藏行()
For a = 15 To 100 '设置变量，从15循环到100行
If Range("d" & a) = "0" And Range("b" & a) = "" Then '在循环范围的行数内，当D列为0，B列为空值，则
Rows(a).EntireRow.Hidden = True '隐藏该行
End If
Next
End Sub

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

[求助] 能否自动隐藏数据透视表源数据中的零

谢谢好心人，再请教

谢谢LANGQUES版主

谢谢langques版主及7楼的好心人