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

FXSHENG · 发表于 2010-4-5 16:27

这是从家里搜到的“模糊查询_listview”，如获至宝。
目前想应用到实际工作中去，需要在sheet2表的A列将查询的结果双击录入，请问老师怎样写代码？

7楼的问题于12楼老师给予解答，最终结果在16楼，有类似需要者可做参考。
62楼:蓝桥玄霜大师有关于Enter确认录入的代码.

已将此功能加入到：
绝对拼装仓库管理Excel2010控制台
中，有兴趣的朋友请到此，下载4.06测试版

[ 本帖最后由 FXSHENG 于 2010-7-26 09:19 编辑 ]

cflood · 发表于 2010-4-5 16:36

不错，先收藏起来。
Private Sub ListView1_DblClick()
With Sheet2
      .Range("a65536").End(xlUp).Offset(1, 0) = ListView1.SelectedItem.Text
      .Range("b65536").End(xlUp).Offset(1, 0) = ListView1.SelectedItem.SubItems(1)
      .Range("c65536").End(xlUp).Offset(1, 0) = ListView1.SelectedItem.SubItems(2)
      .Range("d65536").End(xlUp).Offset(1, 0) = ListView1.SelectedItem.SubItems(3)
      End With
      Unload Me
End Sub

[ 本帖最后由 cflood 于 2010-4-5 16:37 编辑 ]

FXSHENG · 发表于 2010-4-5 16:42

感谢2楼老师。
再跟进问一下，如果在整个工作簿中的其他表任一位置也能双击录入，能否写成通用的代码呢？
谢谢，还请解答！

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

cflood · 发表于 2010-4-5 16:49

With activesheet

FXSHENG · 发表于 2010-4-5 16:57

原帖由 cflood 于 2010-4-5 16:49 发表
With activesheet

感谢老师再次解答！
加入后，其他表也只能在A列写入。
我的意思是如果想写在如H5这样任一单元格呢？
期待老师再次解答！

蓝桥玄霜 · 发表于 2010-4-5 18:17

请见附件。

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

感谢蓝桥玄霜老师解答!
由于我的考虑不周及表达能力欠缺，还不是我想要的结果。
现重加工附件，就是在sheet3的B10:B15
sheet4的B10:B15
sheet5的B2
进入单元格，userform1 show，双击可录入，请老师加入代码！

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

cflood · 发表于 2010-4-5 18:37

那需要在各个表的SelectionChange中都写上代码

FXSHENG · 发表于 2010-4-5 18:41

原帖由 cflood 于 2010-4-5 18:37 发表
那需要在各个表的SelectionChange中都写上代码

学生对VBA，似是而非的看懂一些，不会活用，可否在7楼我新做的附件中直接加入？
深深感谢！

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

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("商品代码").Address Then Exit Sub
UserForm1.Show
End Sub
试一下

稍等还有进化版噢

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

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

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