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

FXSHENG · 发表于 2010-4-5 19:21

感谢kevinchengcw老师解答。
测试后出现如图画面,即代码与其他项目"分家"了
而且只有点击"商品代码"这一个单元格userform1 show；是想进入B10：B15的单元格userform1 show
烦请老师再看看！

[ 本帖最后由 FXSHENG 于 2010-4-5 19:24 编辑 ]

kevinchengcw · 发表于 2010-4-5 19:24

这回应该可以了，不论哪个页面，单击“商品代码”输入

kevinchengcw · 发表于 2010-4-5 19:26

蓝老师在这个文件里模块做的清晰，改起来也方便，希望蓝老师不要介意小生斗胆改了您的文件

FXSHENG · 发表于 2010-4-5 19:34

原帖由 kevinchengcw 于 2010-4-5 19:24 发表
这回应该可以了，不论哪个页面，单击“商品代码”输入

“稍等还有进化版噢”

非常感谢,是我想要的结果.
进化版我期待！
用着进化N，还想N+1，真是吃着碗里的看着盆里的，主要是想饿补啊！

另:
如果不想输入的条目自动下移可换成下面，便于反复修改。
Private Sub ListView1_DblClick()
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 Sub

[ 本帖最后由 FXSHENG 于 2010-4-5 20:19 编辑 ]

FXSHENG · 发表于 2010-4-5 20:32

说来惭愧，现在竟是中级了，可怜对VBA还是似是而非，最多的只是拼凑而已。
不怕老师笑话，本贴获得老师的赐教，不久将应用到我拼装的作品中去。
再次感谢原作者及各位老师！

FXSHENG · 发表于 2010-4-6 08:15

综合老师的代码，按7楼的问题我最终的结果如附件：

luckycc · 发表于 2010-4-6 15:11

支持个
高手是多的

好001 · 发表于 2010-4-6 15:41

赞一个
高手真牛

tjxy333 · 发表于 2010-4-6 20:10

真是不简单！！！

tjxy333 · 发表于 2010-4-6 20:13

其实网上例子太多了！

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

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