模糊查询，双击录入：灵活的_listview，由众多老师改进！

luckberry

原帖由 FXSHENG 于 2010-4-6 08:15 发表
综合老师的代码，按7楼的问题我最终的结果如附件：

不错不错非常好！！！

riltd

有问题。楼主试试先选择SHEET3.B15,然后再选择SHEET3.C16,再双击LISTVIEW里的条目，程序就产生错误了。

FXSHENG

原帖由 riltd 于 2010-4-13 21:49 发表
有问题。楼主试试先选择SHEET3.B15,然后再选择SHEET3.C16,再双击LISTVIEW里的条目，程序就产生错误了。

您是想让它打组合拳?那得有组合拳的套路。
本贴中的附件是有针对性的。
如有需要可自行挖掘。

excelhomeudk

学习中，感谢分享·~~~

susuperscorpis

学习中，感谢分享·~~~

gzy001

Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
   On Error GoTo myerr
    ListView1.SortKey = ColumnHeader.Index - 1
    If ListView1.SortOrder = lvwDescending Then
        ListView1.SortOrder = lvwAscending
    Else
        ListView1.SortOrder = lvwDescending
    End If
    ListView1.Sorted = True
myerr:
    Exit Sub
End Sub

FXSHENG

如开篇所说，“这是从家里搜到的“模糊查询_listview”，如获至宝。”
我是拿来用用，基本不懂VBA，不敢在此误人子弟，抱歉！

cygc

心中有个想法，不知可否实现
Dim rng As Range
    Set rng = Sheet1.Range("A2:C" & rw)     '   关键字所在的区域
    Dim dic As Object
    Set dic = CreateObject("scripting.dictionary")
    ListView1.ListItems.Clear   '   清除所有内容
    For i = 2 To rw
        For ii = 1 To 3
            Dim tmp As Range
            Set tmp = Sheet1.Cells(i, ii).Find(what, lookat:=xlPart, MatchCase:=False)      '   部分匹配, 不区分大小写
                If Not tmp Is Nothing Then
                    If Not dic.exists(tmp.Row) Then     '   因为是一行多列查找,所以只要有一个单元格符合要求,要需要换行,否则listitem数据重复
                        dic.Add tmp.Row, ""
                        Set ITM = ListView1.ListItems.Add()
                        ITM.Text = Sheet1.Cells(i, 1)
                        ITM.SubItems(1) = Sheet1.Cells(i, 2)
                        ITM.SubItems(2) = Sheet1.Cells(i, 3)
                        ITM.SubItems(3) = Format(Sheet1.Cells(i, 4), "#,##0")
                            total = total + Sheet1.Cells(i, 4).Value
                    End If
                End If
            Next ii
        Next i
        Label2.Caption = "共找到 " & ListView1.ListItems.Count & " 条记录"
        Label3.Caption = "总计: " & Format(total, "#,##0")
        Set dic = Nothing
查找是从电子表中重复查找，能不能当窗口SHOW时，就装载了数据，当查找时从  ListView1中查询，或是在RECORD中用字典再筛选出结果。

panpanluo

原帖由 kevinchengcw 于 2010-4-5 19:10 发表
稍做修改成这样就可以了吧
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = Sheet1.Name Then Exit Sub
If Target.Address  Cells.Find("商品代码").Addres ...

这个我几年前就做过了

sbfkgu

确实不错。