Question

我一直在解决这个问题。我想隐藏单元格中不包含文本值的所有单元格。 “C8”保存一个值，该值可以根据下拉菜单进行更改。

我想保留包含“C8”值的行，并隐藏所有其他行。只要我不使用具有特定内容的特定单元格（C8），我就能让它工作，当我添加某个单元格值的变量时，宏将不会运行。

为什么不接受特定的细胞内容？

Sub Hide_Based_upon_Selection()
Dim r As Long
For r = 9 To 37
If Range("C8").Value <> "PS" Then
    Rows(r).EntireRow.Hidden = True

    End If

If Range("C8").Value <> "VP" Then
    Rows(r).EntireRow.Hidden = True
    End If
           Next r

End Sub

Answer 1

使用此

Sub Hide_Based_upon_Selection()
Dim r As Long

For r = 9 To 37
    ActiveSheet.Rows(r).Hidden = ActiveSheet.Cells(r, "K") <> ActiveSheet.Range("C8")
Next r

End Sub

如果K中的值不等于C8

，它将隐藏行

隐藏不包含值的行（负逻辑）

1 个答案: