User Function không tự cập nhật?

[sealand]

Mình viết 1 hàm để tổng hợp số liệu, nhưng nó không tự động cập nhật mà mình fải dùng lệnh CalculateFull thì nó mới chạy (Như file kèm). Nhờ các bạn xem giùm và hoàn thiện giúp.

 

[ndu96081631]

Xóa code Application.CalculateFull đi, thêm vào Function code: Application.Volatile xem thế nào nhé:

Public Function thop(ma_nao As String, ky_tu As String, cot_nao As Integer)
Dim ma, kt As String
Dim cot As Integer
Dim cong As Double
[COLOR=Red][B]Application.Volatile[/B][/COLOR]
...............
..............

 

[sealand]

Cám ơn ndu 96081631 nhé. "Ngon" rồi