Làm cách nào để thay đổi màu mỗi khi chiều dài của tôi lớn hơn 5 ký tự trong VBA


1

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

Câu trả lời:


0

Thay vì

Worksheets("sheet1").Character(cc, i).Font.Color = vbRed

Tôi đã đổi nó thành

Worksheets("sheet1").Range("C" & i).Font.Color = vbRed
Khi sử dụng trang web của chúng tôi, bạn xác nhận rằng bạn đã đọc và hiểu Chính sách cookieChính sách bảo mật của chúng tôi.
Licensed under cc by-sa 3.0 with attribution required.