怎样用VBA获取筛选颜色的值？

LIUZHU

想做一个取消筛选和恢复筛选的代码，但第一步就卡住了。
附件中的表格按照颜色进行了筛选，以下代码是获取筛选颜色的值，以前Excel没卸载的时候，好像可行的，现在用了WPS后，这句“Criteria1.Color”报错。
请问下，用VBA怎样获取筛选的颜色的值？




Sub 获取筛选颜色的值()
    Debug.Print Sheet1.AutoFilter.Filters(1).Criteria1.Color
End Sub

liulang0808

楼主可以对于已经筛选出来的行的底色进行判断吧？

LIUZHU

liulang0808 发表于 2024-7-1 12:24
楼主可以对于已经筛选出来的行的底色进行判断吧？

也是可以，只是我想知道有没有其他方法

LIUZHU

liulang0808 发表于 2024-7-1 12:24
楼主可以对于已经筛选出来的行的底色进行判断吧？

请教，怎样获取已经筛选出的第一个单元格的地址？

fxl447098457

LIUZHU 发表于 2024-7-1 15:29
请教，怎样获取已经筛选出的第一个单元格的地址？

Sub 获取筛选颜色的值()
Dim rng As Range, AF As AutoFilter
Set AF = Sheet1.AutoFilter
If Not AF.FilterMode Then MsgBox "没有进行筛选": Exit Sub
Set rng = Intersect(AF.Range, AF.Range.Offset(1).SpecialCells(xlCellTypeVisible))
If AF.Filters(1).Operator = xlFilterCellColor Then
Debug.Print rng.Areas(1).Cells(1).Interior.Color
End If
End Sub

wang-way

LIUZHU 发表于 2024-7-1 15:29
请教，怎样获取已经筛选出的第一个单元格的地址？

笨办法 定位可见单元格 ？

LIUZHU

fxl447098457 发表于 2024-7-1 16:24
Sub 获取筛选颜色的值()
Dim rng As Range, AF As AutoFilter
Set AF = Sheet1.AutoFilter

rng.Areas(1).Cells(1)这个只能定位到表头的单元格，还是感谢，我已经找到方法了

LIUZHU

wang-way 发表于 2024-7-1 16:32
笨办法 定位可见单元格 ？

是的，JS中这么解决的
obj.单元格.Columns(i+1).SpecialCells(xlCellTypeLastCell).Interior.Color