[已解决]再按大中小填色请老师帮忙

czh0066

按大中小数填色.rar (124.67 KB, 下载次数: 12)

2016-8-3 13:08 上传

点击文件名下载附件 谢谢

最佳答案

月排行榜 / 总排行榜

mathking77

2016-8-3 15:42

czh0066 发表于 2016-8-3 14:17
这样不能下拉,想用条件格式就好,这样有点复杂,先感谢老师,想老师再用条件格式写下谢谢

你的意思是不要限制行数对吧？改完了 你再试试

跳转到最佳答案楼层

mathking77

附件 如果满意请给最佳
Sub xx()
Set rng = Range("L4:AE22")
For Each cell In rng
If cell >= 0 And cell <= 2 Then
cell.Interior.ColorIndex = 3
ElseIf cell >= 3 And cell <= 6 Then
cell.Interior.ColorIndex = 4
ElseIf cell >= 7 And cell <= 9 Then
cell.Interior.ColorIndex = 5
End If
Next
End Sub

czh0066

这样不能下拉,想用条件格式就好,这样有点复杂,先感谢老师,想老师再用条件格式写下谢谢

13052565705

Sub color()
Dim i As Long
Dim j As Long
For i = 4 To 22
    For j = 12 To 31
        If Cells(i, j) >= 0 And Cells(i, j) <= 2 Then
        Cells(i, j).Interior.ColorIndex = 3
        Else
            If Cells(i, j) >= 3 And Cells(i, j) <= 6 Then
            Cells(i, j).Interior.ColorIndex = 4
            Else
                If Cells(i, j) >= 7 And Cells(i, j) <= 9 Then
                Cells(i, j).Interior.ColorIndex = 5
                End If
            End If
        End If
    Next
Next

13052565705

Sub color()
Dim i As Long
Dim j As Long
For i = 4 To 22
    For j = 12 To 31
        If Cells(i, j) >= 0 And Cells(i, j) <= 2 Then
        Cells(i, j).Interior.ColorIndex = 3
        Else
            If Cells(i, j) >= 3 And Cells(i, j) <= 6 Then
            Cells(i, j).Interior.ColorIndex = 4
            Else
                If Cells(i, j) >= 7 And Cells(i, j) <= 9 Then
                Cells(i, j).Interior.ColorIndex = 5
                End If
            End If
        End If
    Next
Next
End Sub

mathking77

czh0066 发表于 2016-8-3 14:17
这样不能下拉,想用条件格式就好,这样有点复杂,先感谢老师,想老师再用条件格式写下谢谢

你的意思是不要限制行数对吧？改完了 你再试试