[已解决]写了一个VBA查询按钮，发现结果与预计不一致？

双飞叶 · 发表于 2011-10-26 20:46

爱疯 · 发表于 2011-10-26 21:58

本帖最后由爱疯于 2011-10-26 22:00 编辑

在网上搜了下：http://club.excelhome.net/thread-392243-1-1.html 9楼

JSSY版：在用Excel高级筛选时，一定要注意：如果以单元内容为筛选条件时，表示是模糊筛选；如果要精确筛选一定要在筛选条件内容前加“="号。

弄了半天，没想出怎么直接变成代码，最后建了2个辅助区（针对"预存内"和"预存外")。如果还有第3个、第4个 .... 这样的特例，依旧往下建辅助条件区。
最好等高手给你想更好办法，这样只为能用。

支付余额明细表3.rar (28.35 KB, 下载次数: 38)

双飞叶 · 发表于 2011-10-26 22:29

回复爱疯的帖子

问题倒是能解决，不知道有没有更好更简单的方法

爱疯 · 发表于 2011-10-26 22:31

双飞叶发表于 2011-10-26 22:29
回复爱疯的帖子

问题倒是能解决，不知道有没有更好更简单的方法

不急的话，先凑合用着。。。。等高手来给想好办法{:261:}

双飞叶 · 发表于 2011-10-26 22:33

回复爱疯的帖子

恩~
另外感觉奇怪，

JSSY版：在用Excel高级筛选时，一定要注意：如果以单元内容为筛选条件时，表示是模糊筛选；如果要精确筛选一定要在筛选条件内容前加“="号。

复制代码

既然是模糊筛选的原因，为什么日期这里不会出现错误，比如201109 201110不是很像么，但不会出现问题。

这里了谢谢你，提供了一个思路

爱疯 · 发表于 2011-10-26 22:38

201109是一个整体，201110是另一个整体。整体这样称呼不标准，但好理解吧。

它俩相互不存在，谁包含谁。而1楼问题中"预存内"和"预存内暂存"，则存在（"预存内"包含于"预存内暂存"中）

双飞叶 · 发表于 2011-11-1 14:07

本帖最后由双飞叶于 2011-11-1 14:09 编辑

爱疯发表于 2011-10-26 22:38
201109是一个整体，201110是另一个整体。整体这样称呼不标准，但好理解吧。

它俩相互不存在，谁包含谁。 ...

谢谢
这个内容也查了好多天了，感觉你的方法是最理想了~~~
你的辅助区，是不是照你的VBA代码

Option Explicit
Sub Macro1()
Dim tj As Range '条件区域
'选择对应的条件区域
Select Case Range("g3")
Case "预算内"
[aa3] = [b3]
[ac3] = [d3]
[ad3] = [e3]
[ae3] = [f3]
[ag3] = [h3]
Set tj = Range("aa2:ag3")
Case "预算外"
[aa6] = [b3]
[ac6] = [d3]
[ad6] = [e3]
[ae6] = [f3]
[ag6] = [h3]
Set tj = Range("aa5:ag6")
Case Else
Set tj = Range("B2:H3")
End Select
'高级筛选
Range("dd").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=tj, _
CopyToRange:=Range("A7:K65536"), _
Unique:=False
End Sub

复制代码

要是我要增加的外，是不是仿照下面

08.Case "预算内"
09.[aa3] = [b3]
10.[ac3] = [d3]
11.[ad3] = [e3]
12.[ae3] = [f3]
13.[ag3] = [h3]
14.Set tj = Range("aa2:ag3")

复制代码

双飞叶 · 发表于 2011-11-1 14:17

爱疯发表于 2011-10-26 22:38
201109是一个整体，201110是另一个整体。整体这样称呼不标准，但好理解吧。

它俩相互不存在，谁包含谁。 ...

'高级筛选
Range("dd").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=tj, _
CopyToRange:=Range("A7:K65536"), _
Unique:=False

复制代码

筛选的代码还跟原来有所小小的变动

爱疯 · 发表于 2011-11-1 15:18

不知，类似“预算内”、“预算外”这样的情况，有多少？

爱疯 · 发表于 2011-11-1 16:06

支付余额明细表4 (自动保存的).rar (31.68 KB, 下载次数: 13)

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