求高手帮助模糊查询（已经解决）

lapchiu · 发表于 2010-7-25 21:49

昨天在家里下载了改进模糊查询_listview0406.rar，每次在我用方向键定位到我要的那一项后，在选择的时候要用鼠标点双击，很费时间啊，能不能请高手做一个既可以用鼠标双击，又能用回车来确认选择，谢谢。

[ 本帖最后由 lapchiu 于 2010-7-26 08:49 编辑 ]

zhangjimfu · 发表于 2010-7-25 22:19

没有试过，期待高手解决！

gfs57 · 发表于 2010-7-25 23:06

先行下载为妙 ! 就不知道能否啃得动

lapchiu · 发表于 2010-7-25 23:53

有没有高手研究出来了

FXSHENG · 发表于 2010-7-26 08:19

原帖由 lapchiu 于 2010-7-25 21:49 发表
昨天在家里下载了改进模糊查询_listview0406.rar，每次在我用方向键定位到我要的那一项后，在选择的时候要用鼠标点双击，很费时间啊，能不能请高手做一个既可以用鼠标双击，又能用回车来确认选择，谢谢。

也曾有此想法,并查得一句代码:
Application.SendKeys "%TMS%T%V{ENTER}"
不知道按在哪里,反复测试没成功,终放弃.
感谢楼主重提起,请路过的高手支招!

lapchiu · 发表于 2010-7-26 08:42

还是谢谢fxsheng，哪位大侠相助啊。。。。

蓝桥玄霜 · 发表于 2010-7-26 08:44

Private Sub ListView1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
With ActiveSheet
.Cells(Selection.Row, Selection.Column).Offset(0, 0) = ListView1.SelectedItem.Text
.Cells(Selection.Row, Selection.Column).Offset(0, 1) = ListView1.SelectedItem.SubItems(1)
.Cells(Selection.Row, Selection.Column).Offset(0, 2) = ListView1.SelectedItem.SubItems(2)
.Cells(Selection.Row, Selection.Column).Offset(0, 3) = ListView1.SelectedItem.SubItems(3)
End With
Unload Me
End If
End Sub

复制代码

lapchiu · 发表于 2010-7-26 08:49

谢谢楼上的，这里高手真多。已经解决了，再次谢谢蓝桥

FXSHENG · 发表于 2010-7-26 09:10

蓝老师出手相助，搞定！
感谢！

蓝桥玄霜 · 发表于 2013-1-25 13:52

复制代码

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

增加一段代码。