如何给出条件后，用VBA筛选出符合条件的内容

小乐乐101010 2010-06-23 02:13:33
有两个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
.... ... ....
...全文
2236 22 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
22 条回复
切换为时间正序
请发表友善的回复…
发表回复
lengcj 2011-05-06
  • 打赏
  • 举报
 回复
怎么知道是做报销的啊？谢谢
kl2010kl 2010-08-31
  • 打赏
  • 举报
 回复
还是简单一点好
line_us 2010-07-09
  • 打赏
  • 举报
 回复
[Quote=引用 17 楼 liujiaqiid 的回复:]
很简单的一个功能
你自己录制一个筛选后拷贝的宏，然后改改，加上判断条件是否为空的判断，就ok了
[/Quote]
就是，
其实不用做程序，
直接用筛选就行了。
cphj 2010-07-09
  • 打赏
  • 举报
 回复
Range("A2:D21").Select //此处不知道怎么样能够确定筛选出来后的值是多少。

改成
Range(Cells(2, 1), Cells.SpecialCells(xlCellTypeLastCell)).Select
a286049351 2010-07-07
  • 打赏
  • 举报
 回复
你这个是要同时满足你输入的条件嘛，四个条件都得满足嘛
小乐乐101010 2010-06-30
  • 打赏
  • 举报
 回复
真是郁闷啊，上传了好多次图片，这次应该可以成功了~！
1.这是我的原始数据在sheet1里面。


2.这个是第二幅图，根据左边的条件，例如输入年龄、性别，点击提交数据，在右边数据框中，根据刚才的条件，在sheet1筛选出来，显示在右边的数据框中（sheet2）
小乐乐101010 2010-06-30
  • 打赏
  • 举报
 回复
真郁闷图片上传不上去了
小乐乐101010 2010-06-30
  • 打赏
  • 举报
 回复

2.这个是第二幅图，根据左边的条件，例如输入年龄、性别，点击提交数据，在右边数据框中，根据刚才的条件，在sheet1筛选出来，显示在右边的数据框中（sheet2）
liujiaqiid 2010-06-30
  • 打赏
  • 举报
 回复
很简单的一个功能
你自己录制一个筛选后拷贝的宏，然后改改，加上判断条件是否为空的判断，就ok了
langziliuheng 2010-06-29
  • 打赏
  • 举报
 回复
没看懂你的问题
小乐乐101010 2010-06-24
  • 打赏
  • 举报
 回复
啊图片没有上传成功，再上传一次
1.

2.
小乐乐101010 2010-06-24
  • 打赏
  • 举报
 回复
好的重新描述一下需求，请看图

1.这是我的原始数据在sheet1里面。


2.这个是第二幅图，根据左边的条件，例如输入年龄、性别，点击提交数据，在右边数据框中，根据刚才的条件，在sheet1筛选出来，显示在右边的数据框中（sheet2）

ACMAIN_CHM 2010-06-24
  • 打赏
  • 举报
 回复
还是看不到图。

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等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》
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
小乐乐101010 2010-06-23
  • 打赏
  • 举报
 回复
兄弟们解决问题啊~！
laoyebin 2010-06-23
  • 打赏
  • 举报
 回复
[Quote=引用 2 楼 qishine 的回复:]

LZ做保险的啊
[/Quote]

牛逼啊，这都能看出来
小乐乐101010 2010-06-23
  • 打赏
  • 举报
 回复
呵呵是啊~！
[Quote=引用 2 楼 qishine 的回复:]
LZ做保险的啊
[/Quote]
加载更多回复（2）
Excel VBA 筛选
用vba的代码来实现excel的筛选功能，在制作excel模版有大量数据的情况下非常有用，有效的提高查询速度
VBA筛选拆分脚本
采用vba根据对excel表某一列进行筛选拆分
VBA多条件查询
VBA多条件查询
VBA数据整理工具使用说明
本人上传的一个使用工具“VBA数据整工具”由于受字数限制没法说清，特在此上传同名的使用说明一份，如有需要可在CSDN查找同名的对应资料使用。
最新Excel VBA活用范例大辞典 光盘
最新Excel VBA活用范例大辞典光盘 作　　者：韩小良，周宁　编著 出 版 社：中国铁道出版社 内容简介 本书以大量的示例，详细介绍了利用Excel VBA操作Excel进而操作Windows的方法和技巧，包括操作管理Excel VBA常见对象（Application对象、Workbook对象、Worksheet对象、Range对象、Chart对象、Shape对象、窗体控件对象以及对象事件）、创建自定义菜单和自定义工具栏、操作数据库、设计程序结构、打印工作表、操作VBA工程、操作文件和文件夹、操作其他Office应用程序和Windows应用程序等。本书还兼顾了Excel 2007的新特点，介绍了Excel 2007 VBA的常用使用技巧。 　　本书适用于具有Excel与Excel VBA基础知识的各类人员阅读，同时适用于从事公司信息管理应用系统开发的各类人员阅读，也可作为相关专业大中专教材或参考书。 目录 Chapter1 Application对象实用操作技巧 Chapter2 Workbook（工作薄）对象实用操作技巧 Chapter3 Worksheet（工作表）对象实用操作技巧 Chapter4 Range（单元格）对象实用操作技巧 Chapter5 Chart（图表）对象实用操作技巧 Chapter6 Shape（图形）对象实用操作技巧 Chapter7 窗体控件实用操作技巧 Chapter8 自定义菜单和自定义工具栏实用操作技巧 Chapter9 Excel2007的条件格式实用操作技巧 Chapter10 Excel数据清单实用操作技巧 Chapter11 工作薄作为数据库的实用操作技巧 Chapter12 Access数据库实用操作技巧 Chapter13 SQL Server数据库实用操作技巧 Chapter14 文本文件实用操作技巧 Chapter15 函数、公式及数组实用操作技巧 Chapter16 程序流程控制实用操作技巧 Chapter17 打印工作表实用操作技巧 Chapter18 VBA工程实用操作技巧 Chapter19 文件和文件夹实用操作技巧 Chapter20 其他Office应用程序实用操作技巧 Chapter21 Windows应用程序实用操作技巧 活用848个实用范例定能将工作效率提高到一个全新高度。 　　以大量的范例为基础，内容涉及Excel 2003 VBA和Excel 2007 VBA几乎全部知识； 　　每个范例就是一个技巧，同时还介绍了该技巧的相关内容，使读者通过一个个范例学习到尽可能多的方法和技巧； 　　提供了详细的源代码，并尽可能采用变量的方法，读者只需改变变量的值，就可以将范例提供的程序应用于其他方面； 　　采用速查手册结构，可通过目录快速查找所需的技巧范例。 　　1CD-ROM内附848个范例详细源代码。 　　《最新Excel VBA活用范例大辞典》主要内容： 　　第1章～第7章主要介绍了操作、管理ExcelVBA常见对象，诸如Applicatiotl对象、Workbook对象、Workstleet对象、Ratlge对象、Chart对象、Shape对象、窗体控件对象以及对象事件的一些实用技巧。 　　第8章介绍了创建自定义菜单和自定义工具栏的一些实用操作范例，利用这些方法和技巧，可以帮助我们创建符合个人风格的操作界面和应用程序界面。 　　第9章介绍了Excel2007的条件格式实用操作范例,这些技巧为我们灵活使用Excel2007特有的条件格式来分析数据提供了方便。 　　第10章介绍了Excel数据清单实用操作范例，这些技巧主要包括如何实现自动排序、筛选、查找数据等常见的操作。 　　第11章～第14章主要介绍了如何利用ExcelVBA来操作数据库（包括Excel工作簿、Access数据库、SQLServer数据库和文本文件），尤其是将ExcelVBA与ADO和SQL结合起来，充分发挥利用数据库保存数据和利用Excel计算分析处理数据的特长。使得数据管理更加有效，为开发各种应用系统提供了方法和参考依据。 　　第15章和第16章介绍的范例是程序设计中的一些常规性的方法和技巧，以及使用工作簿函数和VBA函数的方法和技巧。 　　第17章介绍的范例是有关打印工作表时的一些方法和技巧。使用这些技巧，可以完成各种打印风格下的打印任务。 　　第18章介绍的范例是如何获取VBA工程的信息、如何操作VBA工程、如何在运行时创建用户窗体和控件、如何在运行时自动编写程序代码等技巧。这些技巧可以作为提高ExcelVBA使用技能的基础和参考依据。 　　第19章介绍的范例是有关操作文件和文件夹的方法和技巧，为我们在运行程序时操作文件和文件夹提供了丰富的方法和技巧。 　　第20章和第21章介绍的范例是如何利用ExcelVBA操作其他Office应用程序和Windows应用程序的一些基本方法和技巧。
Microsoft Office应用

6,216

社区成员

23,066

社区内容

发帖
与我相关
我的任务
社区描述
Microsoft Office应用
社区管理员
  • Microsoft Office应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章