[已解决]边输入边逐步自动提示

布烈瑟侬

有没有办法实现
当在J列中输入的时候出现逐步提示科目明细中的科目供选择
比如 输入“水”会提示 “水利建设税”“水费”
比如 输入“管理”会提示“装修管理费”“办公管理费”

最佳答案

月排行榜 / 总排行榜

zjdh

2014-6-20 08:32

逐步提示窗口.rar (20.38 KB, 下载次数: 1603)

2014-6-20 08:32 上传

点击文件名下载附件

跳转到最佳答案楼层

zjdh

逐步提示窗口.rar (20.38 KB, 下载次数: 1603)

2014-6-20 08:32 上传

点击文件名下载附件

布烈瑟侬

大侠  拍些啦
我自己把题目搞错了 不是 J 列 是 H 列
还有 候选框 怎么变长一点啊
求继续指点啊

布烈瑟侬

布烈瑟侬 发表于 2014-6-20 12:57
大侠  拍些啦
我自己把题目搞错了 不是 J 列 是 H 列
还有 候选框 怎么变长一点啊

哦  我自己明白了 候选框 变长  进入设计模式就可以了

布烈瑟侬

哦哈 我看懂了  改成  ActiveCell.Offset(0, 0) = Me.ListBox1.Value 就行了  这个 太强大了 必须顶

zjdh

布烈瑟侬 发表于 2014-6-20 12:58
哦  我自己明白了 候选框 变长  进入设计模式就可以了

要修改这句
With ListBox1
        .Visible = True
        .Top = Selection.Offset(1).Top
        .Left = Selection.Offset(0, -1).Left
        .Width = Selection.Width * 2
        .Height = Selection.Height * 5
    End With

zjdh

布烈瑟侬 发表于 2014-6-20 12:57
大侠  拍些啦
我自己把题目搞错了 不是 J 列 是 H 列
还有 候选框 怎么变长一点啊

修改这句
If Target.Column = 10 And Target.Row > 1 And Target.Cells.Count = 1 Then
和这句
ActiveCell.Offset(0, -2) = Me.ListBox1.Value

qiurongzhuang

请老师门按照表格说明修改代码，谢谢！

zjdh

"请把入库记录表B6列名称采取逐步提示输入到出库记录表c6列" 啥意思？？

qiurongzhuang

入库记录表b列材料名称，输入到出库记录表c列材料名称栏，谢谢老师，帮我修改vba代码。