Giúp mình tham chiếu chuỗi trong signle cells với (3 người xem)

[ninh_lu]

Dear Thâỳ và các bạn.

Mình có bài toán như file đính kèm rất mong thầy vàmọi người giúp đỡ ạ.

Cơbản là nó sẽ tham chiếu các cột A,B,C,D,E tới cột F “ Answer “….Nếu các cộtA,B,C,D,E mà input “ Yes “ thì trong cột F tương ứng nó sẽ highlight màu đỏ ạ.

Em xin cảm ơn!

 

[giangleloi]

Dear Thâỳ và các bạn.

Mình có bài toán như file đính kèm rất mong thầy vàmọi người giúp đỡ ạ.

Cơbản là nó sẽ tham chiếu các cột A,B,C,D,E tới cột F “ Answer “….Nếu các cộtA,B,C,D,E mà input “ Yes “ thì trong cột F tương ứng nó sẽ highlight màu đỏ ạ.

Em xin cảm ơn!

Bạn muốn xài theo cách nào, VBA được chứ?

 

[giangleloi]

Dạ em muốn dùng VBA thầy ạ! Mong thầy giúp đỡ
P/s: nói hộ chủ thớt thôi nghe, đừng chém!!!

Đây code đây. Chả bao giờ thấy ông chat skype rủ nhậu cả >"<.

Sub LaiToMau()
Cells.Font.ColorIndex = vbBlack
Dim Arr(), I, J, lr
lr = Range("A" & Rows.Count).End(3).Row
Arr = Range("A4:F" & lr).Value
For I = 2 To UBound(Arr, 1)
  For J = 1 To 5
    If Arr(I, J) = "Yes" Then
     Range("F" & I + 3).Characters(InStr(Arr(I, 6), Arr(1, J)), 1).Font.Color = vbRed
    End If
  Next
Next
End Sub

 

[doveandrose]

Bạn muốn xài theo cách nào, VBA được chứ?

thầy ơi , em up file .xlsm lên rùi mà , thầy giúp em làm bằng VBA đi . cảm ơn thầy

 

[giangleloi]

thầy ơi , em up file .xlsm lên rùi mà , thầy giúp em làm bằng VBA đi . cảm ơn thầy

Mới làm và chỉnh sửa lại rồi. Làm thầy thì chưa dám nhận, nhất là với "chàng".

 

[ninh_lu]

Cam on moi nguoi nhe!

 

[giangleloi]

Cam on moi nguoi nhe!

Bạn post bài có dấu tiếng việt, sao cảm ơn lại không gõ nổi dấu thế.(Nói thật là biết thế chẳng làm).