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

FXSHENG

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

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

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

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

cflood

不错，先收藏起来。
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

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

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

cflood

With activesheet

FXSHENG

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

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

蓝桥玄霜

请见附件。

FXSHENG

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

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

cflood

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

FXSHENG

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

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

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

kevinchengcw

稍做修改成这样就可以了吧
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 编辑 ]