excel - 当目标值更改源自公式时更新 VBA 代码

Question

一个多星期以来，我一直在努力寻找一个可以适应我的问题的解决方案，但到目前为止我还做不到。

我有 2 个组合框可以更改预测表中的数据。数据行的数量因选择而异。

下面的 vba 代码允许我根据 A1 中的值隐藏预测表的行。A1 中的值显示将在表中的数据行数，这来自 countifs 公式。

此代码仅在我手动将值输入 A1 时才有效，我需要的是一种在公式更改 A1 中的值时使其工作的方法。我已尝试更改工作表，但找不到解决方案。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Target.Address = "$A$1" Then
      Rows("8:13").Hidden = False
      If Target.Value > 0 And Target.Value < 5 Then
         Rows(Target.Value + 8 & ":13").Hidden = True
      End If
   End If
End Sub

我希望有人可以提供帮助。

我有一个可以使用的示例表，但我不知道如何上传文件。

标签： excelvba