ListView定位不准确，请教该怎么解决？

[oFeiBenDeWoNiu1]

各位老师好。请帮我看怎么改代码。我把问题描述一下：当单击‘单击查找’按钮，在查询窗口里面用姓名的首字母查找“吴维艺”，双击“吴维艺”后所定位的是在“吴国华”这一行。这个要怎么解决？金额这一列只要有数字是相同的就会导致不准确。
EXCEL文件论坛不能上传，请到这个地域下载http://club.excelhome.net/thread-1483916-1-1.html，或者直接联系我QQ245557980

引用

[/quote]

[milaoshu1020]

最后一个过程改成这样试试:

Private Sub ListView1_DblClick()

    Dim bh$, r1
    bh = ListView1.SelectedItem.Text
    Set r1 = Sheet1.Range("a:a").Find(bh, , , 1)
    If Not r1 Is Nothing Then
        Cells(r1.Row, 1).Select
    End If
    Unload Me
End Sub

你的这个文件我这里无法调试,老是蹦莫名其妙的错误...

[VB业余爱好者]

楼上正解。

原因如下：
你原来的代码中
bh = ListView1.SelectedItem.SubItems(1)
Set r1 = Sheet1.Range("b:b").Find(bh, , , 1)

你的这两句就是要在金额列里面找与你选择的那个人（吴维斌）的金额（800）相同的那一条数据，当然直接定位到“李明”了。至于定位到“吴国华”那一行，那是你自己点的吧

建议按姓名查找，修改为楼上给出的代码