excel - 更新更改而不取消选择/重新选择复选框

Question

我试图在以下情况下自动更新显示的复制和粘贴范围:1)复选框为 TRUE 和 2)当 ComboBox1 中的值发生变化时(在本例中从 OPEN 变为 CLOSED，反之亦然)。
代码按预期工作，但在更改为 OPEN 或 CLOSED 后，我必须取消选择并重新选择复选框，这就是我要克服的问题。

当 Checkbox 为 FALSE 时，将执行一组不同的执行(在代码中注释掉)。所以我想在复选框为真时进行更改。

我试图实现一个while循环，但最终陷入了循环。

这是代码:

Private Sub Checkbox1_Change()
If Checkbox1.Value = True Then
    ComboBox1.List = Array("Closed", "Open")
    With ComboBox1.Value = "Open"
        Worksheets("FSM Search Data").Range("$A$1:$AD$2000").AutoFilter Field:=4, Criteria1:=Worksheets("FSM Search").ComboBox1.Value
        Worksheets("FSM Search Data").Range("B2:AD2000").SpecialCells(xlCellTypeVisible).Copy
        AutoFilterMode = False
        Worksheets("FSM Search").Activate
        Worksheets("FSM Search").Range("B4").PasteSpecial xlPasteValues
        Range("B1:AD5").Columns.AutoFit
    End With

    With ComboBox1.Value = "Closed"
        Worksheets("FSM Search Data").Range("$A$1:$AD$2000").AutoFilter Field:=4, Criteria1:=Worksheets("FSM Search").ComboBox1.Value
        Worksheets("FSM Search Data").Range("B2:AD2000").SpecialCells(xlCellTypeVisible).Copy
        AutoFilterMode = False
        Worksheets("FSM Search").Activate
        Worksheets("FSM Search").Range("B4").PasteSpecial xlPasteValues
        Range("B1:AD5").Columns.AutoFit
    End With
End If

'If Checkbox1.Value = False Then
'With Worksheets("FSM Data")
'ComboBox1.List = .Range("B2:B" & .Range("B" & .Rows.Count).End(xlUp).Row).Value
'Worksheets("FSM Search").Activate
'Range("C4").Value = ComboBox1.Value
'Range("B1:AD5").Columns.AutoFit
'End With 'End If End Sub

感谢您的帮助!!!!

Answer 1

已更改 Private Sub Checkbox1_Change()
至

Private Sub ComboBox1_Change()

谢谢斯科特