[已解决]怎么将一键隐藏零值的代码应用于整个工作簿

hhxq001

要求点击“一键隐藏单元格零值”按钮，可以隐藏一个工作簿的所有工作表的零值。现在只能用于当前工作表，不能用于整个工作簿，怎么改代码呢？

隐藏显示整个工作簿的零值.zip (212.43 KB, 下载次数: 3)

2020-5-15 22:34 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

爱疯

2020-5-16 09:04

Sub yincang()
    Dim x As Worksheet
    Application.ScreenUpdating = False
    For Each x In Sheets
        x.Activate
        ActiveWindow.DisplayZeros = Not ActiveWindow.DisplayZeros
    Next
    Sheets(1).Activate
    Application.ScreenUpdating = True
End Sub

跳转到最佳答案楼层

爱疯

Sub yincang()
    Dim x As Worksheet
    Application.ScreenUpdating = False
    For Each x In Sheets
        x.Activate
        ActiveWindow.DisplayZeros = Not ActiveWindow.DisplayZeros
    Next
    Sheets(1).Activate
    Application.ScreenUpdating = True
End Sub

hhxq001

爱疯 发表于 2020-5-16 09:04
Sub yincang()
    Dim x As Worksheet
    Application.ScreenUpdating = False

如果当前一个工作表已经不显示零值了，另一个显示零值，点击你这个按钮，就正好反了，前面一个显示了零值，后面的就隐藏了零值，要求，同时隐藏或显示哦。

hhxq001

爱疯 发表于 2020-5-16 09:04
Sub yincang()
    Dim x As Worksheet
    Application.ScreenUpdating = False

另外，我用于另一个有10张工作表的工作簿中却不行，为何

hhxq001

hhxq001 发表于 2020-5-16 11:00
另外，我用于另一个有10张工作表的工作簿中却不行，为何

明白了，只能把按钮放在最前面的一张工作表里