Vba 是否基于命名单元格范围值隐藏行？

我想创建一个宏，查看命名单元格范围的值，并根据该命名单元格中的值隐藏/取消隐藏单元格。 我有一个数据验证列表，可以从中选择（a）是和（b）否，如果用户选择命名单元格“选择”（单元格“A1”），则（a）是，则第5-10行必须隐藏，否则必须取消隐藏。 宏不需要查看整个单元格的值，如“（a）是”，它只能查看“（a）”

到目前为止，这是我的代码，但它产生了一个错误

对象变量或未设置块变量

如何做这样的事情？

更改以下内容：

Cell = Range("Select")

Target.Address = Cell.Address

进入：

此外，如果您比较以下各项，则不会得到预期结果：

Target.Address = Cell

这是永远不会实现的。请尝试以下操作：

Cell = Range("Select")

Target.Address = Cell.Address

还有一个建议。您可以将

if

和

select

条件组合为一个：

If Target.Address = Cell.Address And Left$(Cell.Value, 3) = "(a)" Then

最后，请记住“（a）”“（a）”是由于VBA中的大小写敏感性