Question

excel中vba中listview中复选框与单击条目被选中的配合使用

1、当我选中三个条目（用ctrl或shift多选）时（如选择1，2，3条后），我希望再点第2条时（这时系统会去掉1和3的选择状态），1和3的复选框同时被去掉。2、当我选中三个条目（用ctrl或shift多选）时（如选择1，2，3条后），我希望按ctrl键再点第2条时（这时系统会去掉第2条的选择状态），2的复选框同时被去掉。

我目前的状态是可以在单击未被选取的item条目时，不管单选还是多选（按ctrl或shitf）条目，相应的复选框都能相应的选中或取消。但单击已被选取的item条目时，相应的复选框就无法随之变化了。因为这时即使原来选中状态的item呈未选中状态，但vba依旧认为这些item是选中状态，而使复选框依然为true。目前代码是：Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)If Item.Selected = True Then For j = 1 To ListView1.ListItems.Count '这个for循环主要是为了能够实现多选时，复选框也相应选中。 If ListView1.ListItems(j).Selected = True Then ListView1.ListItems(j).Checked = True Else ListView1.ListItems(j).Checked = False End If NextEnd IfEnd Sub

如果大家没明白我的意思，可以看看win8资源管理器中文件夹的复选框。





Answer 1

你的条件不对，IF ITEM.SELECTED=TRUE改为SELECTEDITEM.CHECKED=TRUE

追问

运时时错误“424”， 要求对像

追答

指明对象是LISTVIEW1啊

指明对象是LISTVIEW1啊

指明对象是LISTVIEW1啊

指明对象是LISTVIEW1啊

指明对象是LISTVIEW1啊

追问

改成If ListView1.SelectedItem.Checked 。无法多选了，这个问题搞了我好几天了，你要是能搞定发个附件看看。谢谢

追答

实在不行你添个命令按钮来解决吧，要取消选择点击，要全选也可以点击
代码如下：
Private Sub 全选_Click()
If 全选.Caption = "全选" Then
全选.Caption = "全不选"
For j = 1 To ListView1.ListItems.Count
ListView1.ListItems(j).Selected = True
ListView1.ListItems(j).Checked = True
Next
Else
全选.Caption = "全选"
For j = 1 To ListView1.ListItems.Count
ListView1.ListItems(j).Selected = False
ListView1.ListItems(j).Checked = False
Next
End If
End Sub