在受保护的工作表excel中过滤数据时,复选框放置问题

时间:2018-04-28 15:17:12

标签: excel vba excel-vba

我有一个受保护的工作表,单元格保护为锁定和隐藏。在第一列中,我对每行都有复选框(表格控件)。

Unfiltered Data

问题是当我尝试过滤数据时,最后一行有一个额外的复选框。 Filtered Data

我尝试将单元格链接到复选框并启用了选项'移动但不要使用单元格'但仍然行为是一样的。有办法解决这个问题吗?

1 个答案:

答案 0 :(得分:2)

好像复选框似乎是坏人

但即使是他们也有监狱

  • 确保您的工作表至少有一个计算

  • 的单元格
  • 确保每个复选框完全在其单元格内,即其中 边框(出现在选择它时)必须完全落入单元格内 你选择它的地方

  • 将工作表计算设置为“自动”(公式 - >计算选项 - >自动)

  • 将以下代码放在工作表代码窗格

    Private Sub Worksheet_Calculate()
        Dim shp As Shape
    
        For Each shp In Me.Shapes
            shp.Visible = shp.TopLeftCell.EntireRow.Height <> 0
        Next
    End Sub