模糊录入--基于EXCEL自动筛选功能++应用实例 0707更新

ntitsjh81 · 发表于 2009-6-23 15:35

努力学习！

gxl00 · 发表于 2009-6-23 15:40

要看的,正需要呢!!!

hzz137 · 发表于 2009-6-23 15:46

看看学习学习！

烧钱职业 · 发表于 2009-6-23 16:49

EXCEL自带的自动筛选功能本来就很强，就是如何驾驭运用的问题，很值得一搞

gameawnu2 · 发表于 2009-6-23 16:55

好东西，一定要看一下

taoguohui · 发表于 2009-6-23 18:02

谢谢，学习学习！

weiqiang2007 · 发表于 2009-6-23 18:32

谢谢了，楼主辛苦了。

zzaaqqwx · 发表于 2009-6-23 19:18

昨晚利用自动筛选的功能写了一些代码，现在正好观摩一下楼主的代码。

蓝桥玄霜 · 发表于 2009-6-23 19:20

版主的好东西，要学习的。

守中 · 发表于 2009-6-23 20:33

原帖由 ldy 于 2009-6-16 18:05 发表
模糊录入（逐步提示）的例子论坛上有几个例子都很不错。

但这个例子是基于EXCEL的自动筛选工能的，EXCEL的自动筛功能效率还不错，难点是读取自动筛选后的数据，
只要掌握了方法，就能很方便的在ＶＢＡ代码中使用 ...

请教版主，怎么设置为筛选三列内容？

If Sheet1.FilterMode = False Then Sheet1.Range("A1:B1").AutoFilter
改为
If Sheet1.FilterMode = False Then Sheet1.Range("A1:C1").AutoFilter

Set x = Sheet1.Cells(2, 1).Resize(Sheet1.[A65536].End(xlUp).Row - 1, 2).SpecialCells(xlCellTypeVisible)
改为
Set x = Sheet1.Cells(2, 1).Resize(Sheet1.[A65536].End(xlUp).Row - 1, 3).SpecialCells(xlCellTypeVisible)

[ 本帖最后由 ldy 于 2009-6-23 21:33 编辑 ]

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

[分享] 模糊录入--基于EXCEL自动筛选功能++应用实例 0707更新