VBA 多条件筛选（详见附件）

tianyunjie · 发表于 2012-10-10 22:17

按照条件（起止时间、人员、账户和收支项目）筛选出，满足条件的行数据，本表只是样例，实际中，数据会有很多，而且还会不断增加，使用高级筛选和透视表不能满足使用，尤其是“收支明细表”在录入完毕之后，回自动保护起来，所以，不能在原表中直接操作，请各位老师按照VBA筛选的方法给做一下，谢谢啦~

在论坛上也搜索了相关内容，按照方法做了一个，但是做着做着，就会出错，现在也不知道怎么错的，也不知道怎么改了……

各位老师，如果能按照本附件中的代码继续的，可以优化这个代码，有更好的方法的谢谢不吝指教！

LangQueS · 发表于 2012-10-10 22:32

建议楼主在论坛搜索“高级筛选”相关主题。

关于管理数据的基本方法请参考：

★Excel数据管理的一般规律★ http://club.excelhome.net/thread-287461-1-1.html

tianyunjie · 发表于 2012-10-10 22:43

LangQueS 发表于 2012-10-10 22:32
建议楼主在论坛搜索“高级筛选”相关主题。

我这就看，谢谢超版的关注~

恩，如果能有人解答的话，我也等着呢，千万别因为超版的回复就没人看了啊……

tianyunjie · 发表于 2012-10-11 12:19

LangQueS 发表于 2012-10-10 22:32
建议楼主在论坛搜索“高级筛选”相关主题。

我按照你做的也试着做了一个，但是有个地方出错了，就是你做的原表中的 "表单!F2" 和 "表单!F5"是公式，然后在宏中定义了 "FFF"、"GGG"，在你的宏中 Range(GGG).Select 、Range(FFF).Select 都可以通过，但是，我做的时候，就不能通过，老是报错：1004 类 range 的 select 方法无效。

这是怎么回事呢？谢谢~

dudebad · 发表于 2012-10-11 15:42

第一行很长的公式看不懂，还是老实插入二行辅助吧

Sub 按钮2_Click()
[b2:j2].Clear
If [d3] <> "" Then [b2] = ">=" & [d3]
If [d4] <> "" Then [c2] = "<=" & [d4]
If [f3] <> "" Then [g2] = [f3]
If [f4] <> "" Then [d2] = [f4]
If [h3] <> "" Then [e2] = [h3]
If [h4] <> "" Then [f2] = [h4]
x = Sheet1.Range("b65536").End(xlUp).Row '最后行数
Sheet1.Range("b4:j" & x).AdvancedFilter 2, [b1:g2], [b6:j6] '高级筛选最简代码
End Sub

复制代码

dudebad · 发表于 2012-10-11 15:44

book.rar (11.01 KB, 下载次数: 1421)

山风 · 发表于 2012-10-11 15:45

book.rar (13.86 KB, 下载次数: 1226)

tianyunjie · 发表于 2012-10-12 16:54

dudebad 发表于 2012-10-11 15:42
第一行很长的公式看不懂，还是老实插入二行辅助吧

谢谢~满足要求了，很好使！

tianyunjie · 发表于 2012-10-12 16:55

dudebad 发表于 2012-10-11 15:44

谢谢~也满足要求了，很好使！

tianyunjie · 发表于 2012-10-12 16:57

山风发表于 2012-10-11 15:45

谢谢~同样满足要求了，很好使！

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

[求助] VBA 多条件筛选（详见附件）