excel vba给单元格填充颜色

Question

1。E3：J16
2。单元10个字符时，填充单元格为红色（详细见上图片）

Answer 1

用条件格式：

 

 

追问

vba

追答

Private Sub CommandButton1_Click()
Dim rng As Range
For Each rng In ActiveSheet.Range("e3:j16")
If Len(rng) = 10 Then
rng.Interior.ColorIndex = 3
ElseIf Len(rng) = 9 Then
rng.Interior.ColorIndex = 6
ElseIf Len(rng) = 8 Then
rng.Interior.ColorIndex = 10
ElseIf Len(rng) = 7 Then
rng.Interior.ColorIndex = 5
End If
Next
End Sub

Answer 2

Sub xx()
Dim c As Range
For Each c In [e3:j16]
Select Case Len(c)
Case 10: x = 3
Case 9: x = 6
Case 8: x = 10
Case 7: x = 5
Case Else: x = xlNone
End Select
c.Interior.ColorIndex = x
Next
End Sub