根據單元格中的單詞隱藏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的單元由用戶手動更改。