quanluu
Thành viên gắn bó
Giờ mới có tg coi lại bài. Bạn thử code nàyĐây nè b ơi.
Ở đây giá trị chấp nhận từ 0.4 đến 0.6 .A2 sẽ tìm MAX cột A ở sheet1 và tham chiếu giá trị đến cột tương ứng.
Khi trong khoảng 0.4 đến 0.6 sẽ hiển thị màu đỏ và ngoài khoảng này thì hiển thị màu xanh.
Mong b chỉ dùm với nhé. Mò 2, 3 ngày rồi mà ko ra gì hết. Thank nhiều nhé.
Mã:
Private Sub Worksheet_Calculate()
Static oldval
If Sheets("Sheet2").Range("A2").Value <> oldval Then
oldval = Sheets("Sheet2").Range("A2").Value
With Sheets("Sheet2").Shapes.Range(Array("Rounded Rectangle 1"))
If Sheets("Sheet2").Range("A2").Value < 0.4 Or Sheets("Sheet2").Range("A2").Value > 0.6 Then
.Fill.ForeColor.RGB = RGB(255, 0, 0)
Else
.Fill.ForeColor.RGB = RGB(0, 255, 0)
End If
End With
End If
End Sub