用VBA筛选 H2列等于满意， 给H2单元标注绿颜色 ，到最后一行非空值为止

331787386

用VBA筛选  查看D2列65以下，K2列大于等于140的   H2列等于满意， 给H2单元标注绿颜色 ，到最后一行非空值为止

arthas133

1. Sub 筛选()
   
2.     With ActiveSheet.Range("A1").CurrentRegion
   
3.         .AutoFilter Field:=4, Criteria1:="<65"
   
4.         .AutoFilter Field:=11, Criteria1:=">=140"
   
5.     End With
   
6. End Sub

复制代码

331787386

arthas133 发表于 2020-8-14 23:11

谢谢       筛选给不满意单元标注绿颜色
Sub zx()
    With ActiveSheet.Range("A1").CurrentRegion
        .AutoFilter Field:=4, Criteria1:="<65"
        
        .AutoFilter Field:=11, Criteria1:=">=140"
        .AutoFilter Field:=8, Criteria1:="=不满意"
    End With
End Sub

331787386

arthas133 发表于 2020-8-14 23:11

谢谢       筛选给不满意单元标注绿颜色
Sub zx()
    With ActiveSheet.Range("A1").CurrentRegion
        .AutoFilter Field:=4, Criteria1:="<65"
        
        .AutoFilter Field:=11, Criteria1:=">=140"
        .AutoFilter Field:=8, Criteria1:="=不满意"
    End With
End Sub

liulang0808

Sub zx()
    On Error Resume Next
    With ActiveSheet.Range("A1").CurrentRegion
        r = .Rows.Count
        .AutoFilter Field:=4, Criteria1:="<65"
        
        .AutoFilter Field:=11, Criteria1:=">=140"
        .AutoFilter Field:=8, Criteria1:="=不满意"
        Application.Intersect(ActiveSheet.Range("A1").CurrentRegion.SpecialCells(xlCellTypeVisible), [h2].Resize(r - 1)).Interior.ColorIndex = 4
    End With
End Sub

331787386

liulang0808 发表于 2020-8-16 21:14
Sub zx()
    On Error Resume Next
    With ActiveSheet.Range("A1").CurrentRegion

谢谢