恳请高手师傅们帮忙看下这个筛选红色的按钮要咋弄

qiongmei6

我希望求得一个代码，就是当我执行的时候，他会在c列隐藏不是红色的字那些行，红色的字则不隐藏，谢谢各位高手师傅们帮忙。

tanglf188

1. Sub 隐藏红色字体()
   
2.     For i = 3 To Sheet1.Range("C" & Rows.Count).End(xlUp).Row
   
3.         If Cells(i, 3).Font.Color = vbRed Then Cells(i, 3).EntireRow.Hidden = True
   
4.     Next
   
5. End Sub

复制代码

i3myself

直接用筛选功能的按颜色筛选不好吗

tanglf188

刚才看错了，改正如下，还有一个办法就是用筛选的方法也可以

Sub 隐藏非红色字体()
    If Sheet1.FilterMode = True Then Sheet1.ShowAllData
    If Sheet1.AutoFilterMode = True Then Sheet1.Range("A1").AutoFilter
    Sheet1.Cells.EntireRow.Hidden = False
    For i = 3 To Sheet1.Range("C" & Rows.Count).End(xlUp).Row
        If Cells(i, 3).Font.Color <> vbRed Then Cells(i, 3).EntireRow.Hidden = True
    Next
End Sub

Sub 筛选红色字体()
    If Sheet1.FilterMode = True Then Sheet1.ShowAllData
    If Sheet1.AutoFilterMode = True Then Sheet1.Range("A1").AutoFilter
    Sheet1.Cells.EntireRow.Hidden = False
    Sheet1.Cells(2, 3) = " "
    Sheet1.Range("C2:C" & Sheet1.Range("C" & Rows.Count).End(xlUp).Row).AutoFilter Field:=1, _
    Criteria1:=RGB(255, 0, 0), Operator:=9
End Sub

清风竹-

请看附件。