Câu hỏi:

Đối với các mục nhập hoặc thay đổi giá trị công thức, một bằng chứng với các giá trị trước đó sẽ được bắt đầu. Nếu giá trị ô mới cao hơn, màu nền sẽ thay đổi thành

Trả lời:

Đặt đoạn mã dưới đây vào mô-đun chuẩn

Private Sub Worksheet_Calculate()

Dim rng As Range, rngAct As Range

Set rng = Me.UsedRange

With Worksheets("Dummy")

For Each rngAct In rng.Cells

If rngAct.Value < .Range(rngAct.Address).Value Then

rngAct.Interior.ColorIndex = 6

ElseIf rngAct.Value > .Range(rngAct.Address).Value Then

rngAct.Interior.ColorIndex = 3

End If

Next rngAct

.Range(rng.Address).Value = rng.Value

End With

End Sub

Sub OutOfOn()

With Worksheets("Dummy")

If .Visible = True Then .Visible = xlVeryHidden Else .Visible = True

End With

End Sub