怎样自动隐藏单元格为零值的行

zeng927 · 发表于 2011-5-20 17:34

怎样自动隐藏单元格为零值的行，大哥大姐帮帮忙急用。。。谢谢了

zeng927 · 发表于 2011-5-20 17:37

不要沉下去了啊，可不可以用VBA代码完成啊

xtaxwyg · 发表于 2011-5-20 17:48

看看，或许能参考

zeng927 · 发表于 2011-5-20 18:00

这个代码我复制到后就用不了，

xtaxwyg · 发表于 2011-5-20 18:10

将代码中的 Sheet1改成相应的表名

xtaxwyg · 发表于 2011-5-20 18:11

或者
Private Sub Worksheet_Change(ByVal Target As Range)
Dim zhs As Long
Dim zls As Long
Dim hh As Long
Dim aa As Range
Dim bb As Range
Dim mc As String
Application.ScreenUpdating = False

zhs = ActiveSheet.Range("A65536").End(xlUp).Row
mc = ActiveSheet.Range("IV1").End(xlToLeft).Address
mc = Mid(mc, 2, InStrRev(mc, "$", -1, vbTextCompare) - 2)
Set aa = ActiveSheet.Range("A1:" & mc & zhs)
For Each bb In aa
   If IsNumeric(bb.Value) = True Then
      If bb.Value = 0 Then
         hh = bb.Row
         ActiveSheet.Range(hh & ":" & hh).EntireRow.Hidden = True
      End If
   End If
Next

Application.ScreenUpdating = True
End Sub

zeng927 · 发表于 2011-5-20 21:35

谢谢！！！

紫菜蛋汤 · 发表于 2011-5-20 23:19

将之前的代码删除,将下面代码复制到ThisWorkbook里面保存,关闭工作簿,再重新打开文件看是不是这样的效果有0值则此行隐藏.png

Private Sub Workbook_Open()
Dim rng As Range
For Each rng In Sheets(1).UsedRange
If rng.Value = 0 Then
Rows(rng.Row).Hidden = True
End If
Next
End Sub

复制代码

zeng927 · 发表于 2011-5-21 08:11

如果要隐藏的是列，是否可以作到

zeng927 · 发表于 2011-5-21 08:20

我只需要隐藏含0值的列，不隐藏行，VBA代码怎么写啊

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

[求助] 怎样自动隐藏单元格为零值的行