Thông báo dữ liệu thay đổi khi chuyển sheet?

[nqdn2010]

Giả sử đang làm việc trên Sheet1, khi chuyển sang Sheet2. Nếu dữ liệu trong Sheet1 đã thay đổi so với ban đầu thì hiện thông báo, con nếu dữ liệu không thay đổi thì không thông báo.
Tôi làm hoài không được, mong sự chia sẽ của các bạn. Cám ơn nhiều.

 

[VetMini]

Trong Module1:
Public Sheet1ChangedAt As String

Lập một Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) trong module "ThisWorkbook"
Trong đó, xét nếu là sheet1 thì gán trị cho Sheet1ChangedAt
If sh Is Sheet1 Then
Sheet1ChangedAt = Target.Address
End If

Lập một Private Sub Workbook_SheetDactivate(ByVal Sh As Object) cũng trong module "ThisWorkbook"
Trong đó:
If sh Is Sheet1 Then
If Sheet1ChangedAt <> Then
MsgBox "Sheet1 da thay tri o " & Sheet1ChangedAt
Sheet1ChangedAt = ""
End If

 

[Gà Công Nghệ]

Trong Module1:
Public Sheet1ChangedAt As String

Lập một Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) trong module "ThisWorkbook"
Trong đó, xét nếu là sheet1 thì gán trị cho Sheet1ChangedAt
If sh Is Sheet1 Then
Sheet1ChangedAt = Target.Address
End If

Lập một Private Sub Workbook_SheetDactivate(ByVal Sh As Object) cũng trong module "ThisWorkbook"
Trong đó:
If sh Is Sheet1 Then
If Sheet1ChangedAt <> Then
MsgBox "Sheet1 da thay tri o " & Sheet1ChangedAt
Sheet1ChangedAt = ""
End If

Bác VetMini có file mẫu cho tham khảo với bác. Thân!

 

[nqdn2010]

Theo HD của bác, Xin chỉ thêm chổ sai, hay hoàn chỉnh giúp tôi nhé. Cám ơn bác nhiều!

 

[VetMini]

TRong code ở bài #2, sửa cái này:
If Sheet1ChangedAt <> Then
Thành
If Sheet1ChangedAt <> "" Then

 

[nqdn2010]

TRong code ở bài #2, sửa cái này:
If Sheet1ChangedAt <> Then
Thành
If Sheet1ChangedAt <> "" Then

Tôi đã sửa rồi nhưng vẫn không thông báo.

 

[befaint]

chổ

Chỗ

 

[Ba Tê]

Giả sử đang làm việc trên Sheet1, khi chuyển sang Sheet2. Nếu dữ liệu trong Sheet1 đã thay đổi so với ban đầu thì hiện thông báo, con nếu dữ liệu không thay đổi thì không thông báo.
Tôi làm hoài không được, mong sự chia sẽ của các bạn. Cám ơn nhiều.

Làm kiểu hai lúa, có nhiêu chơi nhiêu.

 

[nqdn2010]

Cám ơn các bác nhiều nhe. Theo bài của bác
befaint
Tôi thực hiện được yêu cầu. 15h kẹt công việc.
Tối về Test tiếp có gì mong sự chỉ giáo của các bạn.

 

[syquyen1987]

Chỗ

Code hay quá, nhưng mình chưa hiểu hết ý nghĩa của code. Nếu ô đó chứa công thức mà gõ đúng giá trị vào ô đó làm ô đó mất công thức thì báo thay đổi là hợp lý. Nhưng có một chỗ hơi bất cập là: Gõ giá trị x đúng bằng giá trị trong ô đó mà ô đó k chứa công thức thì vẫn báo là thay đổi. K biết có cách nào khắc phục điều này k ạ? Có gì không phải mình mong được bỏ qua. Xin cảm ơn ạ

 

[befaint]

Gõ giá trị x đúng bằng giá trị trong ô đó

Mình chịu nha. Chỉ là chỉnh file bài #4 để 'chạy' được thôi.