Tô màu chữ/số theo điều kiện (1 người xem)

[Duong gia]

Chào các bạn, mong các bạn chỉ giúp: trong bảng tính excel mình có 7 cột (A:G) mình muốn bất kỳ dòng nào cột: A có 3 ký tự : chữ đen A có 4 ký tự : chữ xanh A có 5 ký tự : chữ hồng A có 6 ký tự : chữ đỏ Thanks

 

[huuthang_bd]

Chào các bạn, mong các bạn chỉ giúp: trong bảng tính excel mình có 7 cột (A:G)
mình muốn bất kỳ dòng nào cột:
A có 3 ký tự : chữ đen
A có 4 ký tự : chữ xanh
A có 5 ký tự : chữ hồng
A có 6 ký tự : chữ đỏ
Thanks

Hỏi lại cho rõ một chút: Dữ liệu trong cột A có độ dài trong khoản từ 3 đến 6 hay là còn các trường hợp khác nữa. Nếu có thì các trường hợp đó màu chữ là màu gì?

 

[Duong gia]

Hỏi lại cho rõ một chút: Dữ liệu trong cột A có độ dài trong khoản từ 3 đến 6 hay là còn các trường hợp khác nữa. Nếu có thì các trường hợp đó màu chữ là màu gì?

Cám ơn bạn, độ dài ký tự là chỉ từ 3-> 6 ký tự thôi. Bạn có thể làm bằng VBA không? Thanks

 

[huuthang_bd]

Cám ơn bạn, độ dài ký tự là chỉ từ 3-> 6 ký tự thôi. Bạn có thể làm bằng VBA không? Thanks

Tôi tưởng bạn muốn dùng Conditional Formatting thì còn bị giới hạn với Excel 2003 chứ Macro thì khoẻ rồi.
Bạn dùng thử Macro này:

Sub ToMau()
Dim Cll As Range
Range([A1], [A65536].End(xlUp)).EntireRow.Font.ColorIndex = xlAutomatic
For Each Cll In Range([A1], [A65536].End(xlUp))
    Select Case Len(Cll.Value)
        Case 3
            Cll.EntireRow.Font.Color = 1
        Case 4
            Cll.EntireRow.Font.Color = -65536
        Case 5
            Cll.EntireRow.Font.Color = -65281
        Case 6
            Cll.EntireRow.Font.Color = 255
    End Select
Next
End Sub

 

[Duong gia]

Tôi tưởng bạn muốn dùng Conditional Formatting thì còn bị giới hạn với Excel 2003 chứ Macro thì khoẻ rồi. Bạn dùng thử Macro này:

Sub ToMau() Dim Cll As Range Range([A1], [A65536].End(xlUp)).EntireRow.Font.ColorIndex = xlAutomatic For Each Cll In Range([A1], [A65536].End(xlUp)) Select Case Len(Cll.Value) Case 3 Cll.EntireRow.Font.Color = 1 Case 4 Cll.EntireRow.Font.Color = -65536 Case 5 Cll.EntireRow.Font.Color = -65281 Case 6 Cll.EntireRow.Font.Color = 255 End Select Next End Sub

Còn cho chữ nghiêng thì sao hả bác?

 

[huuthang_bd]

Còn cho chữ nghiêng thì sao hả bác?

Selection.Font.Italic = True

Recode Macro là sẽ thấy ngay.