按颜色筛选无法筛选无填充色

nyistjz · 发表于 2025-3-30 12:12

如附件，我写了一个进行颜色筛选的VBA，但是有个问题，目前只能对有填充颜色的单元格进行自筛选，无填充色的话，则无法进行筛选。

还请高手帮忙看一下，如何修正这个BUG，感谢

lss001 · 发表于 2025-3-30 13:05

本帖最后由 lss001 于 2025-3-30 13:55 编辑

'筛选参数修改一下：加上白色判断

'使用实际显示颜色进行筛选
filterRange.AutoFilter Field:=col, _
Criteria1:=FilterArray(0), _
Operator:=IIf(FilterArray(0) = 16777215,12, 8)

nyistjz · 发表于 2025-3-30 13:38

lss001 发表于 2025-3-30 13:05
'筛选参数修改一下：加上白色判断

'使用实际显示颜色进行筛选

大佬，不太行啊，您能帮忙把程序修改一下，上传附件吗？

lss001 · 发表于 2025-3-30 13:55

nyistjz 发表于 2025-3-30 13:38
大佬，不太行啊，您能帮忙把程序修改一下，上传附件吗？

Criterial←是123的1不是字母lmn的l

nyistjz · 发表于 2025-3-30 16:22

lss001 发表于 2025-3-30 13:55
Criterial←是123的1不是字母lmn的l

不行的，你们那边能成功吗？

lyfegf · 发表于 2025-3-30 18:21

筛选的时候判断下2

' 应用颜色筛选
With ws.AutoFilter
If .Filters(col).On Then
.ShowAllData
Else
If FilterArray(0) = 16777215 Then
filterRange.AutoFilter Field:=col, _
Operator:=xlFilterNoFill
Else
' 使用实际显示颜色进行筛选
filterRange.AutoFilter Field:=col, _
Criteria1:=FilterArray(0), _
Operator:=XlFilter
End If
End If
End With

复制代码

lss001 · 发表于 2025-3-30 19:12

本帖最后由 lss001 于 2025-3-31 13:31 编辑

nyistjz 发表于 2025-3-30 16:22
不行的，你们那边能成功吗？

使用Office测试通过！
使用WPS测试提示错误？
既然WPS不支持，建议使用其他方式

以下附件供参考

原始数据筛选测试.zip (32.96 KB, 下载次数: 3)

nyistjz · 发表于 2025-3-31 19:50

感谢朋友们的帮忙！

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

[求助] 按颜色筛选无法筛选无填充色

浏览过的版块