Question

我想隐藏未选中复选框的行。如果您不小心忘记检查正确的行，也就是我想得到的选项，即您留下了本应检查为未选中的行，我希望该选项使其不被隐藏。

首先，消息框提供了我在excel中具有的3个复选框中的13、14、15的正确行，但是随后当我执行“重置”按钮然后又想将其隐藏时，我得到了16、16、16作为行

为什么会这样？

使用我拥有的代码，第一次单击第一个按钮，然后单击第二个按钮，它的功能完全符合我的要求。当我再次隐藏相同的行和复选框时，它不起作用。

''''''如果用户使错误遍历和取消隐藏并使所有隐藏的行和复选框可见，则重置设置选项

'如果选择了该选项，则删除行

'find the row the checkbox is associated with
For Each cb In ActiveSheet.OLEObjects
    If TypeName(cb.Object) = "CheckBox" Then
      If cb.Object.Value = False Then
        theRow = cb.TopLeftCell.row
        MsgBox cb.TopLeftCell.row
        cb.Visible = False
        Rows(theRow).Hidden = True
        End If
    End If
Next cb

结束子

为什么我的行有时仅隐藏或向下移动而隐藏？

0 个答案: