[已解决]VBA，请高手修改代码

yjwdjfqb · 发表于 2012-2-19 08:52

VBA，请高手修改代码

问题在附件中，请高手帮帮忙。。。。。谢谢大家了。

VBA请高手修改代码.rar (35.11 KB, 下载次数: 30)

lzclzch · 发表于 2012-2-19 10:37

本帖最后由 lzclzch 于 2012-2-19 10:40 编辑

楼主可以用高级筛选来完成的

bluexuemei · 发表于 2012-2-19 10:43

好长的代码，头晕！

yjwdjfqb · 发表于 2012-2-19 11:07

lzclzch 发表于 2012-2-19 10:37
楼主可以用高级筛选来完成的

相用VBA实现，以后可以方便的运用到其它文件中

lzclzch · 发表于 2012-2-19 11:09

yjwdjfqb 发表于 2012-2-19 11:07
相用VBA实现，以后可以方便的运用到其它文件中

本来就是用VBA来解决的

yjwdjfqb · 发表于 2012-2-19 11:22

不能支持，各字段无序

yjwdjfqb · 发表于 2012-2-19 12:08

lzclzch 发表于 2012-2-19 10:37
楼主可以用高级筛选来完成的

Sub 任意条件查询()
Range("D9:AX200").ClearContents
Sheet4.Range("E5:AY200").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"E4:AY5"), CopyToRange:=Range("D9:AX200"), Unique:=False
End Sub

老师你好，用高级筛选实现，查询到的结果是，必须满足条件区所有的条件

我是想，我在条件区输入，一个或多个条件时，只要满足其中任意条件都作为结果输出。

lzclzch · 发表于 2012-2-19 12:34

本帖最后由 lzclzch 于 2012-2-19 12:36 编辑

我不是老师
比如你要筛选医生只要在受聘专业中输入医生只要符合医生都可以筛选出来的
两条件中级和医生在相应的单元格中输入只要有符合条件的可以筛选出来的
多个条件也一样啊只要符合条件的都可以的
条件随便加，符合就行

yjwdjfqb · 发表于 2012-2-19 12:38

lzclzch 发表于 2012-2-19 12:34
我不是老师
比如你要筛选医生只要在受聘专业中输入医生只要符合医生都可以筛选出来的
两条件中级和医生 ...

如果，又想得到，　医生　　以想得到　　是否干部列　是　干部的

能实现吗

lzclzch · 发表于 2012-2-19 12:40

可以的，你测试一下

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

[已解决]VBA，请高手修改代码

浏览过的版块