[Nhờ anh/ chị giúp đỡ] Tự động đánh dấu Cell có sự thay đổi nội dung tại Cell ở cột khác cùng hàng tương ứng

[YenLV]

Nội dung cụ thể em ghi rõ trong file ạ, mong anh chị giúp đỡ ạ !

 

[Ba Tê]

Nội dung cụ thể em ghi rõ trong file ạ, mong anh chị giúp đỡ ạ !

Gộp vào code cũ:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim expression, ketqua, bieuthuc As String, result, result2 As Double
      If Not Intersect(Target, Range("B1:B50000")) Is Nothing Then
          If Target.Count = 1 Then
              If Target.Value <> "" Then
                Cells(Target.Row, 5) = Cells(Target.Row, 5) + 1 '-------------->Thêm dòng này.'
                  If InStr(Target, "=") > 0 Then
                    ........................................................

 

[YenLV]

Ba Tê, Trân trọng cảm ơn sự giúp đỡ của anh ạ.