在单元格内集成视觉指南以隐藏/取消隐藏行

Question

我有 5 行数据，想隐藏其中 4 行。

此宏有效但似乎有点不稳定。必须单击单元格外J8然后返回才能使其工作。

此外，当单元格中有文本时，双击似乎不起作用。并且当您设置此项时，单元格将无法自动调整其高度。

最重要的是，用户不太可能知道这是可以做到的，因为单元格内没有视觉提示，您可以双击它并取消隐藏行/隐藏行。还有其他选择吗？

我进行了大量搜索但未能找到更好的解决方案。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim xRgHidden As Range
    If (Not Intersect(Target, Range("J8")) Is Nothing) And (Target.Count = 1) Then
        Set xRgHidden = Range("9:12")
        xRgHidden.EntireRow.Hidden = Not xRgHidden.EntireRow.Hidden
    End If
End Sub

Answer 1

第一的，摆脱点击取消J8隐藏行。

• 双击任意单元格时，Excel 切换到编辑模式（you find the cursor in the cell, Double clicked On）。

• 将此代码添加为行 nu 4（after If (Not Intersect行）。

  Cancel = True

第二，J8在点击隐藏和取消隐藏行时获得视觉效果。

• 选择单元格J8，R右键单击，然后从磷点击上一级菜单我插入註釋。

• 插入适当的文本，当您将鼠标悬停在单元格上时会出现J8。