[分享]自动按拼音简码快速筛选数据

mxg825 · 发表于 2011-5-28 17:35

本帖最后由爱疯于 2011-10-25 21:50 编辑

应坛友要求！写了一个自动按拼音简码筛选数据功能！

1.先剔除重复内容（只保留一个）’导入ListBox1列表

2.用TextBox1输入拼音简码（首个字母，如：我们=WM）进行筛选，实时更新到 ListBox1列表
3.本例使用：ADO， SQL语句，自定函数，数组，转置，控件自动变换位置，等等语句
4.TextBox与ListBox 控件的组合使用！（本来用ComboBOX,但在事件处理过程不是很好!，特别是ComboBox1.DropDown 展开选项列表时，不选取，隐藏控件，选项列表还显示着，真郁闷）
5.2011-10-22 新增字典法（去重复字段）！
↓回贴后可下载附件↓

[hide
]

[/hide]

jinru · 发表于 2011-5-28 17:45

看看！！！

laosanjie · 发表于 2011-5-28 18:02

mxg825 又出新东西了！学习学习！

admin321 · 发表于 2011-5-28 18:17

学习下

admin321 · 发表于 2011-5-28 18:18

回复 mxg825 的帖子

老师，你能帮我解决这个问题吗？

http://www.excelpx.com/thread-179679-1-1.html

放浪形骸 · 发表于 2011-5-28 19:04

学习下看看~~

wbzxz · 发表于 2011-5-28 19:05

这个好，学习楼主的代码

mxg825 · 发表于 2011-5-28 23:38

好东西，路过不要错过，晚安

80013025 · 发表于 2011-5-29 08:59

将输入位置修改下，效果会更好，见人见智，哈哈
With ListBox1
         .Clear '清空
         .Left = Target.Left + Target.Width '左边距
         .Top = ActiveCell.Offset(1, 0).Top '上边距（当前单元格向下移动一行）
         .Width = ActiveCell.Width '宽度
         .Height = 150 '高库
         .List = 取不重复(Cells(Prow - 1, Pcol)) '筛选不重复数据
         .Visible = True '显示控件
      End With

      With TextBox1
         .Text = ""
         .Left = Target.Left + Target.Width
         .Top = ActiveCell.Top
         .Width = ActiveCell.Width * 1
         .Height = ActiveCell.Height
         .Visible = True
         .Activate '得到焦点
      End With

leolee82 · 发表于 2011-5-29 15:21

学习下....

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

[分享]自动按拼音简码快速筛选数据

本帖子中包含更多资源

评分