扩展和折叠组，导致用户必须单击两次

Question

我意识到这有点挑剔，但如果有解决方案，我想知道。

在Excel工作表中，第4行到第6行被分组，它们的总和显示在第7行。

以下用于展开和折叠组的按钮代码可以正常工作。但是，我意识到在使用其中任何一个按钮后，当我单击+或 - 以手动展开或折叠该组（或任何其他组）时，它需要2次单击（错误），而不是1次单击（正确）在+或 - 符号上。这让我相信我可能需要在按钮事件中处理另一个设置。

Private Sub Btn_Collapse_Rows_Click()
   On Error Resume Next
   Rows("7:7").EntireRow.ShowDetail = False
   On Error Goto 0
End Sub

和

Private Sub Btn_Expand_Rows_Click()
   On Error Resume Next
   Rows("7:7").EntireRow.ShowDetail = True
   On Error Goto 0
End Sub

有没有人知道是否有解决方法吗？

Answer 1

好的，没关系。我想到了。按钮仍然具有焦点，第一次单击将焦点带回到工作表，因此第二次单击实际上单击了+或 - 。我通过添加

来修复它

Range("A1").Select

在展开和折叠代码的末尾。