[已解决]如何让库存是为0是自动隐藏整行

hymjtc

假如库存明细很多，有若干个结存已经是0了，怎么使库存为0时，所在的行自动隐藏，随着数据变化，库存不等于0时，又能显示出来了，哪位老师能帮忙指导一下，多谢了
数据汇总.zip (8.05 KB, 下载次数: 10)

2022-2-11 15:22 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

林木水

2022-2-11 16:59

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim arr, h As Integer, i As Integer
   
3. h = Sheet1.Cells(Rows.Count, "i").End(xlUp).Row
   
4. If h = 1 Then End
   
5. arr = Sheet1.Range("i1:i" & h)
   
6.     For i = 1 To UBound(arr)
   
7.         If arr(i, 1) = 0 Then
   
8.             Sheet1.Rows(i).Hidden = True
   
9.         Else
   
10.             Sheet1.Rows(i).Hidden = False
    
11.         End If
    
12.     Next i
    
13. End Sub
    

复制代码

自动自动得很

跳转到最佳答案楼层

excel用户1116

数据汇总.zip (14.76 KB, 下载次数: 9)

2022-2-11 16:09 上传

点击文件名下载附件

参考！！

hymjtc

excel用户1116 发表于 2022-2-11 16:09
参考！！

可不可以是自动的，不用点击按钮

林木水

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim arr, h As Integer, i As Integer
   
3. h = Sheet1.Cells(Rows.Count, "i").End(xlUp).Row
   
4. If h = 1 Then End
   
5. arr = Sheet1.Range("i1:i" & h)
   
6.     For i = 1 To UBound(arr)
   
7.         If arr(i, 1) = 0 Then
   
8.             Sheet1.Rows(i).Hidden = True
   
9.         Else
   
10.             Sheet1.Rows(i).Hidden = False
    
11.         End If
    
12.     Next i
    
13. End Sub
    

复制代码

自动自动得很

hymjtc

林木水 发表于 2022-2-11 16:59
自动自动得很

非常感谢，正是我想要的，辛苦了