ListView中相同单元格地址的排除?

青阳

大家好,我用ListView做了一个查询小程序,比如在工作表sheets("4")中单元格A1=ABC,比如先查找A,查找到工作表名为4,单元格地址为A1添加到.ListView内,再查询H,得到另一个工作表名和单元格的地址添加到.ListView内.再查询C,这时又会查找到工作表和单元格都符合的相同记录sheets("4")中的单元格A1.这时就要判断listview中已经存在这个记录了,就跳过不要添加这条记录.请问详细判断的代码如何写.请高人相助,我想说得很明白了吧,就不要再上传附件了占空间了吧谢谢

[此贴子已经被作者于2006-3-9 0:35:57编辑过]

青山依旧

以下是引用[I]青阳[/I]在2006-3-9 0:33:13的发言：[BR]大家好,我用ListView做了一个查询小程序,比如在工作表sheets("4")中单元格A1=ABC,比如先查找A,查找到工作表名为4,单元格地址为A1添加到.ListView内,再查询H,得到另一个工作表名和单元格的地址添加到.ListView内.再查询C,这时又会查找到工作表和单元格都符合的相同记录sheets("4")中的单元格A1.这时就要判断listview中已经存在这个记录了,就跳过不要添加这条记录.请问详细判断的代码如何写.请高人相助,我想说得很明白了吧,就不要再上传附件了占空间了吧谢谢

不上传附件还要别人重新写代码吗?那可要沉到太平洋去了.

青阳

我是基本照搬清风老师的代码,修改了一下,还在调试之中,代码执行会出错,

不过我提到的这个问题清风老师没有.

清风_ll

楼主只需要再判断ListView控件的单元格地址中有没有存在当前地址就可以了,这个问题如果列表项不是很多的话,简单循环就可以了.

青阳

是啊,我就是要循环,可是具体的相关的listview属性语句我不会写,能把判断的代码代写一下吗,我是边写边学的,谢谢您

青阳

也许我的问题只是一个就是:

for i=0还是1 to listview的最后一个记录如何表达?

清风_ll

listView.listitems.count

青阳

With Workbooks(wb).Sheets(sht).Cells Set c = .Find(what:=sSearch, lookin:=lookin, lookat:=xlPart) If Not c Is Nothing Then firstaddress = c.Address Do If CheckBox1.Value = True Then cnt = 0 For j = 1 To k If InStr(c, strs(j)) >= 1 Then cnt = cnt + 1 Next If cnt = k Then Set itmx = Me.ListView1.ListItems.Add() itmx.Text = wb itmx.SubItems(1) = sht itmx.SubItems(2) = c.Address itmx.SubItems(3) = Trim(c.Value) itmx.SubItems(4) = Workbooks(wb).Sheets(sht).Cells(c.row, 1) itmx.SubItems(5) = Workbooks(wb).Sheets(sht).Cells(c.row, 2) End If Else tt = Me.ListView1.ListItems.Count If tt = 0 Then Set itmx = Me.ListView1.ListItems.Add() itmx.Text = wb itmx.SubItems(1) = sht itmx.SubItems(2) = c.Address itmx.SubItems(3) = Trim(c.Value) itmx.SubItems(4) = Workbooks(wb).Sheets(sht).Cells(c.row, 1) itmx.SubItems(5) = Workbooks(wb).Sheets(sht).Cells(c.row, 2) Else For i = 1 To tt If wb = Me.ListView1.ListItems(i).Text And sht = Me.ListView1.ListItems(i).SubItems(1) And c.Address = Me.ListView1. _ ListItems(i).SubItems(2) Then cout1 = cout1 + 1 Next If cout1 = 0 Then Set itmx = Me.ListView1.ListItems.Add() itmx.Text = wb itmx.SubItems(1) = sht itmx.SubItems(2) = c.Address itmx.SubItems(3) = Trim(c.Value) itmx.SubItems(4) = Workbooks(wb).Sheets(sht).Cells(c.row, 1) itmx.SubItems(5) = Workbooks(wb).Sheets(sht).Cells(c.row, 2) End If End If End If Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstaddress End If End With

[此贴子已经被作者于2006-3-10 20:09:11编辑过]