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

解决方案 »

  1.   

    最后一个过程改成这样试试: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你的这个文件我这里无法调试,老是蹦莫名其妙的错误...
      

  2.   

    楼上正解。原因如下:
    你原来的代码中
    bh = ListView1.SelectedItem.SubItems(1)
    Set r1 = Sheet1.Range("b:b").Find(bh, , , 1)你的这两句就是要在金额列里面找与你选择的那个人(吴维斌)的金额(800)相同的那一条数据,当然直接定位到“李明”了。至于定位到“吴国华”那一行,那是你自己点的吧建议按姓名查找,修改为楼上给出的代码