Question

VBA怎么实现删除checkboxlist选中的选项？

VB中可以用removeitem实现，vba该怎么实现这个功能？有谁知道啊？谢谢

Answer 1

VBA Code (向窗体添加一个 CommandButton1 和一个 ListBox1):

Option Explicit

Private Sub CommandButton1_Click()
    Dim lngIndex As Long
    
    For lngIndex = 0 To ListBox1.ListCount - 1
        If lngIndex = ListBox1.ListCount Then
            Exit For
        End If
        
        If ListBox1.Selected(lngIndex) Then
            ListBox1.RemoveItem lngIndex
            lngIndex = lngIndex - 1
        End If
    Next
End Sub

Private Sub UserForm_Initialize()
    CommandButton1.Default = True
    
    Dim lngIndex As Long
    
    With ListBox1
        .IntegralHeight = False
        
        For lngIndex = 1 To 5
            ListBox1.AddItem "Item" & CStr(lngIndex)
        Next
        
        .MultiSelect = fmMultiSelectMulti
        .ListStyle = fmListStyleOption
    End With
End Sub

运行效果：

追问

虽然也不是我想要的答案。还是谢谢你

Answer 2

ListBox1.RemoveItem,你想删除哪条把index传进去就行了

追问

vba中checkboxlist没有这个功能。。。VB中有。我说的是VBA怎么实现。。。。。。。

追答

VBA中是有的，你再看看吧，是不是你拖得控件有问题，是Active的控件吗？

追问

不是啊。是PCVue画面与VBA代码结合的编程。用的是PCVue的控件AICheckBoxList。这个你了解吗？可以用别的方法迂回实现这个功能吗？谢谢