Close theard

  • Thread starter Thread starter Ultra
  • Ngày gửi Ngày gửi
Liên hệ QC
Đâ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é.
Giờ mới có tg coi lại bài. Bạn thử code này
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
 
Giờ mới có tg coi lại bài. Bạn thử code này
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

Nó hoạt động rồi nhưng còn vài cái mình thắc mắc. Nếu có thể b giải thích dùm thì tốt quá.
[ Private Sub Worksheet_Change(ByVal Target As Range) ] (hàm 1) Mình thấy cái cũng hợp lý mà sao nó ko chạy vậy?
Khi worksheet thay đổi thì nó phải hiểu chứ ? Nhưng tại sao khi dùng [ Private Sub Worksheet_Calculate() ] (hàm 2) thì nó lại chạy ? Vậy ý nghĩa của hàm 1 và hàm 2 là thế nào vậy ?
 
Nó hoạt động rồi nhưng còn vài cái mình thắc mắc. Nếu có thể b giải thích dùm thì tốt quá.
[ Private Sub Worksheet_Change(ByVal Target As Range) ] (hàm 1) Mình thấy cái cũng hợp lý mà sao nó ko chạy vậy?
Khi worksheet thay đổi thì nó phải hiểu chứ ? Nhưng tại sao khi dùng [ Private Sub Worksheet_Calculate() ] (hàm 2) thì nó lại chạy ? Vậy ý nghĩa của hàm 1 và hàm 2 là thế nào vậy ?

Cái worksheet_change hoạt động khi bạn thay đổi giá trị bằng tay, còn cái caculate là so sánh giá trị tĩnh.
 
Một vấn đề tương tự mọi người giải quyết giúp mình với
mình hỏi vấn đề như trong file đính kèm
 

File đính kèm

Dạ, bạn nhờ em, mà em thấy khó nên đăng lên nhờ mọi người giúp.
Nên dẫn đến có 2 bài, Bài toán này đã được giải quyế xong rồi thầy, Topic này xin dừng lại ở đây.
 
Web KT

Bài viết mới nhất

Back
Top Bottom