Kiểm tra giá trị của 1 cell bất kì có bị thay đổi hay không? (1 người xem)

[lizzy]

Hi all,
Hiện tại mình muốn kiểm tra giá trị của 1 cell có bị thay đổi nội dung so với nội dung trước đó hay không, nhưng chưa biết làm cách nào, nội dung nhu sau:

status | date
A |10/15/2009
B |10/20/2009
C |10/21/2009
(giả sử A ở cell A2, các giá trị cột status là vadilation list)

Tổng quát: nếu thay đổi giá trị hiện tại của cell thuộc cột status thi gia tri của cell cột date tương ứng sẽ thay dổi.
* Nếu click vào cell A2 chọn giá tri khác "A" (thay đổi nọi dung) thi cell B2 đổi thành ngày hiện tại cua hệ thống (10/22/2009 = hôm nay)
* Nếu click vào cell A2 chọn lại giá tri "A" (ko thay đổi nội dung) thì cell B2 giữ nguyên giá trị hiện tại (10/15/2009)

Nhờ mọi người góp ý dùm mình.

 

[ptlong04x1]

Hi all,
Hiện tại mình muốn kiểm tra giá trị của 1 cell có bị thay đổi nội dung so với nội dung trước đó hay không, nhưng chưa biết làm cách nào, nội dung nhu sau:

status | date
A |10/15/2009
B |10/20/2009
C |10/21/2009
(giả sử A ở cell A2, các giá trị cột status là vadilation list)

Tổng quát: nếu thay đổi giá trị hiện tại của cell thuộc cột status thi gia tri của cell cột date tương ứng sẽ thay dổi.
* Nếu click vào cell A2 chọn giá tri khác "A" (thay đổi nọi dung) thi cell B2 đổi thành ngày hiện tại cua hệ thống (10/22/2009 = hôm nay)
* Nếu click vào cell A2 chọn lại giá tri "A" (ko thay đổi nội dung) thì cell B2 giữ nguyên giá trị hiện tại (10/15/2009)

Nhờ mọi người góp ý dùm mình.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    Target.Offset(, 1) = Now()
End Sub

Bạn xem file, nhớ Enable macro.

 

[lizzy]

Mình có thắc mắc sau:

Trong file cua ptlong04x1, nếu chọn vào giá trị A, gõ chữ A thì date vẫn thay đổi, có cách nào để khi nhập đúng giá tri ban đầu thì ko thay đổi date được ko nhỉ?

Cám ơn ptlong04x1 nhiều nhé.

 

[ndu96081631]

Mình có thắc mắc sau:

Trong file cua ptlong04x1, nếu chọn vào giá trị A, gõ chữ A thì date vẫn thay đổi, có cách nào để khi nhập đúng giá tri ban đầu thì ko thay đổi date được ko nhỉ?

Cám ơn ptlong04x1 nhiều nhé.

Sửa lại thế này:

Private OldVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Target, [A:A]) Is Nothing And Target.Count = 1 Then _
  OldVal = Target.Value
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, [A:A]) Is Nothing And Target.Count = 1 Then _
    If Target.Value <> OldVal Then Target(, 2) = Date
End Sub