Nhận dạng được chữ tô màu trong ô (1 người xem)

[FPT_online]

Em muốn các chữ tô màu đỏ ở bên phải thì trả về dấu 01, các chữ tô màu đỏ bên trái thì trả về 10 ai làm giúp em với

 

[quanluu]

Em muốn các chữ tô màu đỏ ở bên phải thì trả về dấu 01, các chữ tô màu đỏ bên trái thì trả về 10 ai làm giúp em với

Bạn dùng function này
A là dữ liệu, B1 = mauvalue(A1)

Function mauvalue(rgn As Range) As Integer
    If rgn.Characters(Start:=1, Length:=1).Font.Color = vbRed Then
        mauvalue = 10
    Else
        mauvalue = 1
    End If
End Function

 

[FPT_online]

Đúng rồi bác thêm giúp em vào nếu cả 2 vế không có màu thì sẽ là 00 nhé

 

[quanluu]

Đúng rồi bác thêm giúp em vào nếu cả 2 vế không có màu thì sẽ là 00 nhé

Bạn thử thế này

Function mauvalue(rgn As Range) As Integer
    If rgn.Characters(Start:=1, Length:=1).Font.Color = vbRed Then
        mauvalue = 10
    ElseIf rgn.Characters(Start:=Len(rgn.Value), Length:=1).Font.Color Then
        mauvalue = 1
    Else
        mauvalue = 0
    End If
End Function