Tự động cập nhật dữ liệu cho Worksheet (1 người xem)

[greeneagless]

Mình có vần đề như sau, mong được sự trợ giúp:

Trong Sheet1, ô A1, mình có giá trị random là 0, 1 và 2
Mình muốn dùng 1 Module để khi click vào sẽ làm cho Sheet 1 tự động thay đổi cho đến khi ô A1 = 0

Mình đã thử sử dụng hàm if như sau:

Private Sub Module1()
With Sheets("Sheet1")
If .Range("A1").Value = 1 Then
.Calculate
End If
End With
End Sub

Nhưng khi click vào module trong excel nó chỉ giống như ấn F9, tức là chỉ thay đổi dữ liệu 1 lần.
Có ai biết vấn đề này, mong giúp đỡ giùm.
Cảm ơn

 

[greeneagless]

Hic, không ai biết à...

 

[nhapmon]

chép cái này vào sheet1. thử coi đúng không, hen sui thôi...hihi..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
If Range("A1").Value = 1 Then
Range("A1").Value = 0
End If
End If


End Sub