请教前辈：如何使用VBA根据指定的条件隐藏工作表

LJGOME

各位VBA前辈好，最近晚辈在学习VBA，但也只是学了些皮毛，学习中遇到一些问题，来这里求教，还希望大神能不吝赐教，谢谢

大灰狼1976

1. Sub test()
   
2. Dim i&, rng As Range, s$
   
3. With Sheets("首页")
   
4.   For i = 3 To 19 '根据需要修改
   
5.     If .Cells(i, "i") = "完成" Then
   
6.       If rng Is Nothing Then Set rng = .Rows(i) Else Set rng = Union(rng, .Rows(i))
   
7.       s = s & "," & .Cells(i, 1)
   
8.     End If
   
9.   Next i
   
10. End With
    
11. If Not rng Is Nothing Then
    
12.   rng.RowHeight = 0
    
13.   Sheets(Split(Mid(s, 2), ",")).Visible = False
    
14. End If
    
15. End Sub

复制代码

LJGOME

大灰狼1976 发表于 2021-1-16 17:32

厉害了老师，我足足弄了一天都没解决，大神终究是大神

LJGOME

取消隐藏工作表我尝试着写出来了，但取消首页隐藏的行不会

tiger1976

Sub 条件隐藏()

    Dim rng As Range
    Dim i As Integer, j As Integer, m As Integer, n As Integer, k As Integer
    Dim sht As Worksheet
   
    Set sht = Worksheets("逾期或未完成的情况说明")
    i = Worksheets("首页").Cells(Rows.Count, "i").End(xlUp).Row
   
    For Each rng In Worksheets("首页").Range("i3:i" & i)
        If rng.Text = "完成" Or rng.Offset(0, 6).Value = "100%" Then
            rng.EntireRow.Hidden = True
            Worksheets(rng.Offset(0, -8).Value).Visible = False
        Else
            j = Worksheets(rng.Offset(0, -8).Value).Cells(Rows.Count, 1).End(xlUp).Row
            m = j - 7
            For n = 1 To m
                k = k + 1
                sht.Range("a" & k + 2) = Worksheets(rng.Offset(0, -8).Value).Range("a" & n + 7)
                sht.Range("b" & k + 2) = Worksheets(rng.Offset(0, -8).Value).Range("b" & n + 7)
                sht.Range("c" & k + 2) = Worksheets(rng.Offset(0, -8).Value).Range("c" & n + 7)
                sht.Range("d" & k + 2) = Worksheets(rng.Offset(0, -8).Value).Range("d" & n + 7)
                sht.Range("e" & k + 2) = Worksheets(rng.Offset(0, -8).Value).Range("k" & n + 7)
                sht.Range("f" & k + 2) = Worksheets(rng.Offset(0, -8).Value).Range("j" & n + 7)
                sht.Range("g" & k + 2) = m
               
            Next
            m = 0
        End If
    Next

End Sub

LJGOME

tiger1976 发表于 2021-1-16 21:18
Sub 条件隐藏()

    Dim rng As Range

谢谢老虎老师，这个代码把我的两个问题都解决了，太强了！！
我昨天研究灰狼老师的代码终于尝试着把显示全部行和工作表的代码凑出来了，因为我的原始表格首页和表单全部都有设有密码保护（因为表单里很多公式，我怕制表的人不小心改动公式），所以昨天在灰狼老师的代码基础上加上了两段（一段是操作前解开密码，一段是操作完后再加密），没办法我VBA学的太浅，只能用这个笨办法。
然后接着又“研究”把其他工作表符合条件的摘过来，弄到晚上十一点也没能成功，虽然心里觉得可能是要用上遍历工作表的方法
最后再次感谢两位老师

LJGOME

tiger老师，还有个问题，就是我只需要抓取工作表中逾期、终止、取消、暂停这种数据所在的行，这段代码是把未完成的整个项目的所有行都抓取过来了（比如项目10有10个小项目里面有1行逾期记录，我只抓取这一行，其他已经完成的就不用抓取了，然后被抓取过来后任务数量不需要统计，只统计成1就可以了，就是”逾期或未完成的情况说明“表的G列不需要统计），这样是否可以实现呢