EXCEL với dự đoán kết quả WORLD CUP 2010 (2 người xem)

[bangkd]

Chào ACE GPE,

Tôi đang làm bảng excel để cho ae công ty dư đoán kết quả WC 2010. Có một vấn đề tôi còn vướng mắc là làm sao có thể làm màu của cells ghi kết quả của mỗi người thay đổi theo kết quả thực (tỉ số thực)

ACE giúp sức nhé. Xin mời các cao thủ trợ giúp (hơi khó).

Xem câu hỏi chi tiết trong file excel đính kèm.

Thân,

BangKD

 

[lypt]

Conditional Formating

Bạn thử xem đúng chưa nhé?

 

[bangkd]

Đúng rồi bạn à. Bạn đã sử dụng Conditional formatting với điều kiện format là hàm (Formula Is).

Thanks

 

[SA_DQ]

Chỉ là thêm 1 tham khảo

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 Const Vg As Byte = 6:       Const Gh As Byte = 16:        Const Xh As Byte = 8
 If Not Intersect(Target, [e15].Resize(99)) Is Nothing Then
   If Target.Offset(, -1).Value = "" Then Exit Sub
   Dim jJ As Byte, Col As Byte, MyColor As Byte, Rws As Long
   Dim ST1 As Integer, ST2 As Integer, SD1 As Integer, SD2 As Integer
   
   Col = Cells(Target.Row, "iV").End(xlToLeft).Column
   Rws = Target.Row
   ST1 = Target.Offset(, -1).Value:             ST2 = Target.Value
   For jJ = Target.Offset(, 1).Column To Col Step 2
      SD1 = Cells(Rws, jJ).Value:      SD2 = Cells(Rws, jJ + 1).Value
      If (ST1 = ST2 And SD1 = SD2) Or _
         (ST1 > ST2 And SD1 > SD2) Or (ST1 < ST2 And SD1 < SD2) Then
         
         If ST1 = SD1 And ST2 = SD2 Then MyColor = Vg Else MyColor = Xh
         
      End If
      If (ST1 = ST2 And (SD1 > SD2 Or SD1 < SD2)) Or _
         (ST1 > ST2 And (SD1 = SD2 Or SD1 < SD2)) Or _
         (ST1 < ST2 And (SD1 > SD2 Or SD1 = SD2)) Then
         MyColor = Gh
      End If
      
      Cells(Rws, jJ).Resize(, 2).Interior.ColorIndex = MyColor
   Next jJ
 End If
End Sub