Hiện thị Msgbox khi giá trị 1 cell thay đổi.

[salam]

Em có một ô của một sheet (kiem tra) liên quan đến rất nhiều sheet giá trị ở ô này luôn = 0. Khi em là việc với bất kỳ sheet nào khác, nếu giá trị ô này khác 0 thì Em muốn hiện thông báo xxx...
Nhờ Các Bác Giúp đỡ.
Cám ơn các Bác nhiều.

 

[SA_DQ]

Đây là 1 cách

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim Sh As Worksheet  
 Set Sh = Sheets("KiemTra")
 If Sh.[a99].Value <> 0 Then MsgBox "[99] = " & Sh.[a99].Value 
End Sub

Ở trang tính nào bạn muốn có sự cảnh báo thì chép vô nó cái macro này!

Chúc vui!

 

[ndu96081631]

Em có một ô của một sheet (kiem tra) liên quan đến rất nhiều sheet giá trị ở ô này luôn = 0. Khi em là việc với bất kỳ sheet nào khác, nếu giá trị ô này khác 0 thì Em muốn hiện thông báo xxx...
Nhờ Các Bác Giúp đỡ.
Cám ơn các Bác nhiều.

Đương nhiên là được
1> Đầu tiên xây dựng 1 UDF

Function Check(Cel As Range) As Boolean
  If Cel <> 0 Then
    Check = True
    MsgBox "Cell da bi thay doi roi"
  End If
End Function

2> Giả sử cell cần kiểm tra là Sheet1!A1, bạn hãy gõ vào đâu đó công thức này:

=Check(Sheet1!$A$1)

3> Giả sử cell A1 này là công thức liên kết đến các sheet khác (ví dụ =Sheet2!A1*Sheet2!B1)
4> Giờ hãy thử thay đổi A1 và B1 của sheet 2, bạn sẽ nhận được MsgBox khi Sheet1!A1 <> 0
Nói có khi hơi khó hiểu, hãy xem file đính kèm

 

[salam]

Có cách nào mà không cần qua UDF không bác, mà vẫn không phải copy code cho từng sheet không Bác.