6,216
社区成员
发帖
与我相关
我的任务
分享如何给出条件后，用VBA筛选出符合条件的内容
有两个sheet。请问一下这需要怎么样来实现啊。真的很急，谢谢打家了
sheet1是原始数据 sheet2是空白内容页面输入字段查询数据
年龄 性别 费率 年龄 例如填写“0”岁 一个按钮
0 男 123 性别 例如填写“男”
1 男 123 之后点击按钮，在下面查询出根据上面条件的值
2 男 432 年龄 性别 费率
3 男 214 0 男 123
4 男 122
5 男 532
6 男 213
... ... ...
0 女 2131
1 女 234
2 女 1231
3 女 213
.... ... ....
sheet1是原始数据 sheet2是空白内容页面输入字段查询数据
年龄 性别 费率 年龄 例如填写“0”岁 一个按钮
0 男 123 性别 例如填写“男”
1 男 123 之后点击按钮，在下面查询出根据上面条件的值
2 男 432 年龄 性别 费率
3 男 214 0 男 123
4 男 122
5 男 532
6 男 213
... ... ...
0 女 2131
1 女 234
2 女 1231
3 女 213
.... ... ....
...全文
请发表友善的回复…
发表回复
lengcj 2011-05-06
- 打赏
- 举报
怎么知道是做报销的啊？谢谢
kl2010kl 2010-08-31
- 打赏
- 举报
还是简单一点好
line_us 2010-07-09
- 打赏
- 举报
[Quote=引用 17 楼 liujiaqiid 的回复:]
很简单的一个功能
你自己录制一个筛选后拷贝的宏，然后改改，加上判断条件是否为空的判断，就ok了
[/Quote]
就是，
其实不用做程序，
直接用筛选就行了。
很简单的一个功能
你自己录制一个筛选后拷贝的宏，然后改改，加上判断条件是否为空的判断，就ok了
[/Quote]
就是，
其实不用做程序，
直接用筛选就行了。
cphj 2010-07-09
- 打赏
- 举报
Range("A2:D21").Select //此处不知道怎么样能够确定筛选出来后的值是多少。
改成
Range(Cells(2, 1), Cells.SpecialCells(xlCellTypeLastCell)).Select
改成
Range(Cells(2, 1), Cells.SpecialCells(xlCellTypeLastCell)).Select
a286049351 2010-07-07
- 打赏
- 举报
你这个是要同时满足你输入的条件嘛，四个条件都得满足嘛
小乐乐101010 2010-06-30
- 打赏
- 举报
真是郁闷啊，上传了好多次图片，这次应该可以成功了~！
1.这是我的原始数据在sheet1里面。
2.这个是第二幅图，根据左边的条件，例如输入年龄、性别，点击提交数据，在右边数据框中，根据刚才的条件，在sheet1筛选出来，显示在右边的数据框中（sheet2）
1.这是我的原始数据在sheet1里面。
2.这个是第二幅图，根据左边的条件，例如输入年龄、性别，点击提交数据，在右边数据框中，根据刚才的条件，在sheet1筛选出来，显示在右边的数据框中（sheet2）
小乐乐101010 2010-06-30
- 打赏
- 举报
真郁闷图片上传不上去了
小乐乐101010 2010-06-30
- 打赏
- 举报
2.这个是第二幅图，根据左边的条件，例如输入年龄、性别，点击提交数据，在右边数据框中，根据刚才的条件，在sheet1筛选出来，显示在右边的数据框中（sheet2）
liujiaqiid 2010-06-30
- 打赏
- 举报
很简单的一个功能
你自己录制一个筛选后拷贝的宏，然后改改，加上判断条件是否为空的判断，就ok了
你自己录制一个筛选后拷贝的宏，然后改改，加上判断条件是否为空的判断，就ok了
langziliuheng 2010-06-29
- 打赏
- 举报
没看懂你的问题
小乐乐101010 2010-06-24
- 打赏
- 举报
啊图片没有上传成功，再上传一次
1.
2.
1.
2.
小乐乐101010 2010-06-24
- 打赏
- 举报
好的重新描述一下需求，请看图
1.这是我的原始数据在sheet1里面。
2.这个是第二幅图，根据左边的条件，例如输入年龄、性别，点击提交数据，在右边数据框中，根据刚才的条件，在sheet1筛选出来，显示在右边的数据框中（sheet2）
1.这是我的原始数据在sheet1里面。
2.这个是第二幅图，根据左边的条件，例如输入年龄、性别，点击提交数据，在右边数据框中，根据刚才的条件，在sheet1筛选出来，显示在右边的数据框中（sheet2）
ACMAIN_CHM 2010-06-24
- 打赏
- 举报
还是看不到图。
QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》
QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》
zjg303 2010-06-24
- 打赏
- 举报
需求不清楚，怎能帮助呀。
ACMAIN_CHM 2010-06-23
- 打赏
- 举报
没看懂你的需求是什么。
问题说明越详细，回答也会越准确！参见如何提问。（提问的智慧）
QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》
问题说明越详细，回答也会越准确！参见如何提问。（提问的智慧）
QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》
laoyebin 2010-06-23
- 打赏
- 举报
ActiveSheet.Range("$A$1:$D$2041").AutoFilter Field:=1, Criteria1:=range("e2").value
还有个问题没看懂
还有个问题没看懂
小乐乐101010 2010-06-23
- 打赏
- 举报
可以帮忙改下一下吗？？？或者大家重新给我一个也可以
Sub Macro5()
Sheets("Sheet1").Select
Range("A1:D1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$2041").AutoFilter Field:=1, Criteria1:="1" //此处怎么样设定，取某一个单元格的值
ActiveSheet.Range("$A$1:$D$2041").AutoFilter Field:=2, Criteria1:="M" //此处怎么样设定，取某一个单元格的值
Range("A2:D21").Select //此处不知道怎么样能够确定筛选出来后的值是多少。
Selection.Copy
Sheets("Sheet2").Select
Range("F3").Select
ActiveSheet.Paste
End Sub
Sub Macro5()
Sheets("Sheet1").Select
Range("A1:D1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$D$2041").AutoFilter Field:=1, Criteria1:="1" //此处怎么样设定，取某一个单元格的值
ActiveSheet.Range("$A$1:$D$2041").AutoFilter Field:=2, Criteria1:="M" //此处怎么样设定，取某一个单元格的值
Range("A2:D21").Select //此处不知道怎么样能够确定筛选出来后的值是多少。
Selection.Copy
Sheets("Sheet2").Select
Range("F3").Select
ActiveSheet.Paste
End Sub
小乐乐101010 2010-06-23
- 打赏
- 举报
兄弟们解决问题啊~！
laoyebin 2010-06-23
- 打赏
- 举报
[Quote=引用 2 楼 qishine 的回复:]
LZ做保险的啊
[/Quote]
牛逼啊，这都能看出来
LZ做保险的啊
[/Quote]
牛逼啊，这都能看出来
小乐乐101010 2010-06-23
- 打赏
- 举报
呵呵是啊~！
[Quote=引用 2 楼 qishine 的回复:]
LZ做保险的啊
[/Quote]
[Quote=引用 2 楼 qishine 的回复:]
LZ做保险的啊
[/Quote]
加载更多回复（2）
