excel - 隐藏/取消隐藏excel中的特定行时要更改的单元格值？

Question

我目前正在使用一个 Excel 表，我将第 1-17 行分组并在单元格 B18 中写入了一个单元格值。我想知道当我在展开/折叠行时单击 +/- 符号时是否有办法更改 B18 中的值。

例如:我希望 B18 中的单元格值在我单击加号时为"is"，当我单击减号时为“否”。有没有办法做到这一点？

亲切的问候，
桑德拉

Answer 1

您好，欢迎来到 Stack Overflow!

一般情况下，你应该总是提供一些你之前尝试的证据(代码) ，这不仅有助于我们更好地理解您想要实现的目标，而且因为该网站背后的核心原则是帮助人们编写代码，而不是为他们编写代码!

无论哪种方式，我都会竭尽全力破例，因为这是您的第一个问题，而您想要实现的目标相当容易做到。

尽管我的答案取决于您要达到的目标，但从您的初始问题中尚不清楚。

如果所有行 (1:17) 都被隐藏

Private Sub check_hidden_area()
  If Rows("1:17").EntireRow.Hidden = True Then
    Range("B18") = True
  Else
    Range("B18") = False
  End If 
End Sub

如果 (1:17) 中至少有 1 行被隐藏:

Private Sub check_hidden_area()
Range("B18") = False
  For i = 1 To 17
     If Rows(i).EntireRow.Hidden = True Then
       Range("B18") = True
       Exit For
     End If
  Next i
End Sub

PS/注 :列出的程序确实有效，但到目前为止，除非您手动启动它们，否则它们不会自动触发(启动)。不幸的是，不可能触发“+/-”按钮上的代码。

最接近正确的方法是在每次工作表更改时触发宏，但这会降低程序的速度并占用 CPU/内存，尤其是在处理更大的数据范围时

Private Sub Worksheet_Change (ByVal Target as Range)
   '...
   Call check_hidden_area
End Sub

或者，只需创建一个按钮(或其他东西..)并调用 _Click 上的过程触发，例如。

Private Sub CommandButton1_Click 
   Call check_hidden_area
End Sub