[已解决]如何用字典法删除listview未选择的 Sheet1中的数据？

sendsend

如何用字典法删除listview未选择的 Sheet1中的数据？

也就是 Listview中选择了的保留下来不删除，其他的全部删除Sheet1 中的数据？

最佳答案

月排行榜 / 总排行榜

zjdh

2013-8-24 22:12

1. Private Sub CommandButton3_Click()      '删除未选
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     With ListView1
   
5.         For I = .ListItems.Count To 1 Step -1
   
6.             If .ListItems(I).Checked = True Then
   
7.                 d(.ListItems(I).Text * 1) = "T"
   
8.             End If
   
9.         Next I
   
10.     End With
    
11.     With Sheet1
    
12.         For I = .Range("A65536").End(xlUp).Row To 2 Step -1
    
13.             If d(.Cells(I, 1).Value) = "" Then .Rows(I).Delete
    
14.         Next I
    
15.     End With
    
16.     Application.ScreenUpdating = True
    
17.     MsgBox "已成功删除了未选择的记录！"
    
18. End Sub

复制代码

跳转到最佳答案楼层

lisachen

如何删除listview未选择的 Sheet1中的数据.rar (12.75 KB, 下载次数: 9)

2013-8-24 22:01 上传

点击文件名下载附件

zjdh

删除listview未选择的数据.rar (13.75 KB, 下载次数: 12)

2013-8-24 22:09 上传

点击文件名下载附件

zjdh

1. Private Sub CommandButton3_Click()      '删除未选
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     With ListView1
   
5.         For I = .ListItems.Count To 1 Step -1
   
6.             If .ListItems(I).Checked = True Then
   
7.                 d(.ListItems(I).Text * 1) = "T"
   
8.             End If
   
9.         Next I
   
10.     End With
    
11.     With Sheet1
    
12.         For I = .Range("A65536").End(xlUp).Row To 2 Step -1
    
13.             If d(.Cells(I, 1).Value) = "" Then .Rows(I).Delete
    
14.         Next I
    
15.     End With
    
16.     Application.ScreenUpdating = True
    
17.     MsgBox "已成功删除了未选择的记录！"
    
18. End Sub

复制代码

sendsend

zjdh 发表于 2013-8-24 22:12

谢谢！符合要求！

但不知为什么我原来的代码 crr都是空值，只有crr的最后一个的值是brr最后的哪条记录？

sendsend

lisachen 发表于 2013-8-24 22:01

谢谢！单列时可以实现，但有6列数据时不行！

sendsend

zjdh 发表于 2013-8-24 22:12

d(.ListItems(I).Text * 1) = "T"

数值乘以1可以理解，等于 “T”  是什么意思？不是用 =“”吗？

zjdh

sendsend 发表于 2013-8-24 22:39
谢谢！符合要求！

但不知为什么我原来的代码 crr都是空值，只有crr的最后一个的值是brr最后的哪条记录 ...

没去研究你的代码。

zjdh

sendsend 发表于 2013-8-24 22:52
d(.ListItems(I).Text * 1) = "T"

数值乘以1可以理解，等于 “T”  是什么意思？不是用 =“”吗？

=“T" 是一个标志，意为true，用于后续语句中判别，因字典中查不到的结果为“空”，就可辨别了。