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

luckberry · 发表于 2010-4-12 10:10

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

不错不错非常好！！！

riltd · 发表于 2010-4-13 21:49

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

FXSHENG · 发表于 2010-4-13 21:57

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

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

excelhomeudk · 发表于 2010-4-28 15:46

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

susuperscorpis · 发表于 2010-5-10 11:22

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

gzy001 · 发表于 2010-5-19 17:46

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 · 发表于 2010-5-19 17:58

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

cygc · 发表于 2010-5-23 17:55

心中有个想法，不知可否实现
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 · 发表于 2010-5-23 18:31

原帖由 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 · 发表于 2010-5-25 11:41

确实不错。

		自动登录	找回密码
密码			免费注册

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

谢谢楼主，能否帮解释一下里面的代码，以便学习，多谢了。

回复 36楼 gzy001 的帖子

出个难题。