根据单元格中的单词隐藏excel中的行

Question

我在VBA中很新，并且一直在寻找可以做我想做的事情的VBA代码。我试了几次，试图调整他们，但我似乎无法让他们正确的想所以我想尝试一些帮助！

我有6个项目在其旁边的单元格中显示YES或NO，表示该人员是否在处理该项目。这是由另一张工作表上该项目旁边的人员名称确定的，因此生成的是公式，而不是下拉式或键入的值。

该项目下面有几行对应于它。

如果项目旁边有一个NO（在C6中），我希望该项目的相应行被隐藏（行13:29）。

我想这要反复对每一个项目，

所以C7无隐藏31:47， 一个没有在C8隐藏49:65， 一个没有在C9隐藏67:83， 一没有在C10隐藏85：101， 在C11无隐藏103：118，

我不知道这是可能的，在圈子里已经绕来绕去，真的希望有人能帮助:)

这是我尝试过的适应症之一，但我相信我做错了什么，抱歉没有发布前

Private Sub Worksheet_Change(ByVal Target As Range) 

If Target.Address = "$C$6" Then 
If Target.Value = NO Then 
Rows(13:29).EntireRow.Hidden = True 
Else 
Rows(13:29).EntireRow.Hidden = False 

If Target.Address = "$C$7" Then 
If Target.Value = NO Then 
Rows(31:47).EntireRow.Hidden = True 
Else 
Rows(31:47).EntireRow.Hidden = False 
End If 
End If 


If Target.Address = "$C$8" Then 
If Target.Value = NO Then 
Rows(49:65).EntireRow.Hidden = True 
Else 
Rows(49:65).EntireRow.Hidden = False 
End If 
End If 

If Target.Address = "$C$9" Then 
If Target.Value = NO Then 
Rows(67:83).EntireRow.Hidden = True 
Else 
Rows(67:83).EntireRow.Hidden = False 
End If 
End If 


If Target.Address = "$C$10" Then 
If Target.Value = NO Then 
Rows(85:101).EntireRow.Hidden = True 
Else 
Rows(85:101).EntireRow.Hidden = False 

End If 
End If 



If Target.Address = "$C$11" Then 
If Target.Value = NO Then 
Rows(103:119).EntireRow.Hidden = True 
Else 
Rows(103:119).EntireRow.Hidden = False 

End If 
End If 


End Sub 

Answer 1

最短代码在这里荷兰国际集团这个我能想到的：

Private Sub Worksheet_Change(ByVal Target As Range) 
    On Error Resume Next 
    Dim bHide As Boolean 
    bHide = (InStr(1, Target.Value, "NO", vbTextCompare) > 0) 
    Select Case Target.Address 
     Case "$C$6" 
      Rows("13:29").EntireRow.Hidden = bHide 
     Case "$C$7" 
      Rows("31:47").EntireRow.Hidden = bHide 
     Case "$C$8" 
      Rows("49:65").EntireRow.Hidden = bHide 
     Case "$C$9" 
      Rows("67:83").EntireRow.Hidden = bHide 
     Case "$C$10" 
      Rows("85:101").EntireRow.Hidden = bHide 
     Case "$C$11" 
      Rows("103:119").EntireRow.Hidden = bHide 
    End Select 
End Sub 

请测试。

Answer 2

所以在C7一个没有隐藏31:47，一个没有在C8隐藏49:65，在C9一个没有隐藏67:83，一个没有在C10隐藏85：101，没有在C11隐藏103： 118，

C11皮革103:118？这不应该是C11隐藏103:119？让我解释。

为了使您的工作变得简单，您需要找到一个关于代码进展的趋势。看到这个分析。

您在6行寻找 “否”，显示/从13:29行隐藏。同样，您正在寻找第7行中的“否”，并显示/隐藏第31:47行。所以如果你注意到那么就有一种趋势。该行之间的差异是18。见上面的图片。如果有一种趋势，那么就有循环的可能性！

由于这个简单的表格，我还可以知道你说的C11 hides 103:118是不正确的，可能是一个错字。该118必须是119保持这种差异18

所以你的代码实际上可以凝结成（未测试）

Dim i As Long, StartRow As Long, EndRow As Long 

StartRow = 13 
EndRow = 29 

For i = 6 To 11 
    If UCase(Range("C" & i).Value) = "NO" Then 
     Rows(StartRow & ":" & EndRow).EntireRow.Hidden = True 
    Else 
     Rows(StartRow & ":" & EndRow).EntireRow.Hidden = False 
    End If 
    StartRow = StartRow + 18 
    EndRow = EndRow + 18 
Next i 

接下来的事情是，由于NO's越来越式改变，你会必须使用Worksheet_Calculate而不是Worksheet_Change，直到并且除非公式正在从同一工作表中拾取值，并且更改C6:C11的单元由用户手动更改。