使用VBA时隐藏带有行的Checbox

Question

在我的excel文件中，我根据单元格的值用VBA代码隐藏了一些行。

当属性数= 6时，所有72-82行都可见

image 1 rows 72-82

[当属性数= 4时，仅可见第72-78行

image 2 rows 72-78

我正在使用的VBA代码是这样：

ActiveSheet.Activate
If Target.Cells.Count <> 1 Then Exit Sub

If Not Application.Intersect(Range("U68"), Range(Target.Address)) Is Nothing Then

        Select Case Target.Value
        Case Is = "1": Rows("74:83").EntireRow.Hidden = True
                    
                        
        Case Is = "2": Rows("75:83").EntireRow.Hidden = True
                        Rows("72:75").EntireRow.Hidden = False
                        
        Case Is = "3": Rows("77:82").EntireRow.Hidden = True
                        Rows("72:77").EntireRow.Hidden = False
                        
        Case Is = "4": Rows("79:82").EntireRow.Hidden = True
                        Rows("72:79").EntireRow.Hidden = False
                        
       Case Is = "5": Rows("81:82").EntireRow.Hidden = True
                        Rows("72:81").EntireRow.Hidden = False
                        
       Case Is = "6":
                        Rows("72:83").EntireRow.Hidden = False
        End Select

End If

在这些行上，我还添加了一些复选框。如您所见，隐藏行时复选框不会隐藏。相反，它们是重叠的。

是否可以通过任何方式更新VBA代码以隐藏复选框？

我尝试使用“属性”窗格中的“使用单元格移动和调整大小”，但这不起作用。我的细胞仍然重叠。

Answer 1

取决于您为CheckBox命名的方式，请尝试以下操作：

    Select Case Target.Value
    Case Is = "1": 
        Rows("74:83").EntireRow.Hidden = True
        CheckBoxes("CheckBox1").Visible = False

依此类推...

用要隐藏的复选框的名称替换“ CheckBox1”