Excel VBA 隐藏/取消隐藏行

Question

我想实现一个公式，根据产品类型隐藏或取消隐藏行，根据我迄今为止所做的研究，我已经收集了 VBA 的解决方案。我对这个话题几乎没有任何经验。

为了过度简化文档范围，输入参考将是产品颜色（单元格 A1），选择将使用数据验证（单元格 B1）到 2 个选择（红色、蓝色）。

基本上，我希望前 10 行始终保持可见，如果 B1 输入为“红色”，则第 11-31 行应该可见，如果 B1 输入为蓝色，则第 32-52 行应该可见。

我尝试了几个我发现的例子，但它们似乎已经过时或涉及密码保护，除非需要，否则我不打算使用。 附图是所需操作的快速概览，

Answer 1

以下是如何隐藏行的基本语法，但您可能需要对其进行调整，例如定义工作表，以及添加何时隐藏前 10 行的条件。

ActiveSheet.Rows("1:10").EntireRow.Hidden = True


If ActiveSheet.Cells(2, 1) = "Red" Then
    ActiveSheet.Rows("11:31").EntireRow.Hidden = True
End If

If ActiveSheet.Cells(2, 1) = "Blue" Then
    ActiveSheet.Rows("32:53").EntireRow.Hidden = True
End If

End Sub