list - Excel VBA 在填充和取消填充列表框时出错

Question

我希望在勾选复选框时填充列表框，并在删除勾选时清空列表框。

这段代码在我以前的模块中适用于这个函数，但现在我收到一个错误(我猜测它与 Range 的参数有关)，我想了解为什么。此外，当取消选中该复选框时，列表框将保持原样。

这是我的代码:

Private Sub CheckBox1_Click()
    If Me.CheckBox1.Value = True Then
        ListBox1.List = Sheets("DATA").Range("C22").Value
    Else
        ListBox1.ListFillRange = ""
    End If
End Sub

Answer 1

试试这个:

Private Sub CheckBox1_Click()
    If Me.CheckBox1.Value = True Then
        Me.ListBox1.AddItem Sheets("DATA").Range("C22").Value
    Else
        Me.ListBox1.Clear
    End If
End Sub