当单元格值被公式结果更改为基于公式结果隐藏/取消隐藏行的代码时，如何运行宏？

Question

我有一个工作表，它根据单元格的值隐藏或取消隐藏行。我最终得到一个运行时错误，内容如下：

-2147417848 (80010108): 对象 'Range' 的方法 'Hidden' 失败，黄色箭头指向第一个 Rows 方程

然后是另一个运行时错误“1004”： 无法设置范围类的隐藏属性。

Option Explicit

Private Sub Worksheet_Calculate()
  Rows("1:26").EntireRow.Hidden = [a1] = 0
  Rows("27:52").EntireRow.Hidden = [a27] = 0
  Rows("53:78").EntireRow.Hidden = [a53] = 0
  Rows("79:104").EntireRow.Hidden = [a79] = 0
  Rows("105:130").EntireRow.Hidden = [a105] = 0
  Rows("131:156").EntireRow.Hidden = [a131] = 0
  Rows("157:182").EntireRow.Hidden = [a157] = 0
  Rows("183:208").EntireRow.Hidden = [a183] = 0
  Rows("209:234").EntireRow.Hidden = [a209] = 0

End Sub

Answer 1

应该是这样的：

Private Sub Worksheet_Calculate() 
    Dim v
    v = Me.Range("A1").Value
    Me.Range("1:26").EntireRow.Hidden = (v = 0)
End Sub

不知道是否需要处理A1公式结果中的潜在错误值。

编辑：试试这个 - 看起来你的工作表正在进入一个循环，其中隐藏/显示正在重新触发另一个计算等

Private Sub Worksheet_Calculate()

  On Error GoTo haveError

  Application.EnableEvents = False

  Me.Range("1:26").EntireRow.Hidden = [a1] = 0
  Me.Range("27:52").EntireRow.Hidden = [a27] = 0
  Me.Range("53:78").EntireRow.Hidden = [a53] = 0
  Me.Range("79:104").EntireRow.Hidden = [a79] = 0
  Me.Range("105:130").EntireRow.Hidden = [a105] = 0
  Me.Range("131:156").EntireRow.Hidden = [a131] = 0
  Me.Range("157:182").EntireRow.Hidden = [a157] = 0
  Me.Range("183:208").EntireRow.Hidden = [a183] = 0
  Me.Range("209:234").EntireRow.Hidden = [a209] = 0

haveError:
  Application.EnableEvents = True

End Sub