Làm thế nào có thể biến màu của tôi thành màu xanh lá cây khi chiều dài của tôi vượt quá 5 ký tự. Tôi liên tục nhận được lỗi "đối tượng không hỗ trợ thuộc tính này"
Sub deme()
Dim lastrow As Long
Dim a As Integer
a = 1
Dim cc As String
Dim i As Long
lastrow = Worksheets("sheet1").Range("C1").End(xlDown).Row - 1
For i = a To lastrow
cc = Worksheets("sheet1").Range("C" & i)
If Len(cc) > 5 Then
Worksheets("sheet1").Character(cc, i).Font.Color = vbRed
End If
Next i
End Sub