根據另一個工作表中的單元格值隱藏一個工作表中的行

Question

我知道這個問題被問到令人作嘔，我很抱歉添加到混合中，但我已經通過許多不同的帖子試圖找到解決方案，而我的代碼只是沒有做任何事情。 我在工作表標簽單元格 49 中有一個下拉框，它有 3 個選項：混合、在線和住宅。 我希望當一個人在我的“備忘錄”選項卡中選擇“混合”或“在線”行 37-63 以隱藏時。 當一個人選擇住宅時，37-63 行是可見的。 我認為這很容易，但無論我做什么，都沒有發生任何事情。 我在特定的“備忘錄”標簽代碼中有這個，而不是在模塊內。 任何幫助將不勝感激。 下面是我寫的代碼。 謝謝！

Private Sub Worksheet_Change(ByVal Target As Range)
   For a = 37 To 63
      If Worksheets("Worksheet").Cell(C49).Value <> "Residential" Then
         Worksheets("Memo").Rows(a).Hidden = True
      ElseIf Worksheets("Worksheet").Cell(C49).Value = "Residential" Then
             Worksheets("Memo").Rows(a).Hidden = False
      End If
    End Sub

Answer 1

各種評論的結果是我認為您的代碼可以簡化為

Private Sub Worksheet_Change(ByVal Target As Range)

If intersect(Target,range("C49")) is nothing Then Exit Sub

Worksheets("Memo").Rows("37:63").Hidden = (Range("C49").Value <> "Residential")

End Sub

編輯：根據@Pᴇʜ 的評論更新。