Code không tự cập nhật

[anhtuan1066]

Tôi viết 1 hàm để lọc ra danh mục duy nhất như sau:

Function Unique(Vung As Range, STT As Long) As String
   Dim i, K As Long
   Dim Temp As String

   For i = 1 To Vung.Cells.Count
    If i = Application.WorksheetFunction.Match(Vung(i), Vung, 0) Then
      K = K + 1
    End If
    If K = STT Then Temp = Vung(i): Exit For
   Next i
   Unique = Temp
End Function

Kết quả thì đúng, nhưng mổi khi có sự thay đổi gì đó tôi phải bấm F2 edit từng cell thì nó mới cập nhật!
Nhờ các cao thủ xem file đính kèm và cho biết hướng giãi quyết

 

[ongtrungducmx25]

pác tuấn có thể rê công thức đó sao đó thì nhân ctrl+F5 thay thế dấu "=" bằng dấu "=" thế là xong không cần mỗi lần edit(F2) hoặc ghi macro thế nhé

 

[DOSNET]

pác tuấn có thể rê công thức đó sao đó thì nhân ctrl+F5 thay thế dấu "=" bằng dấu "=" thế là xong không cần mỗi lần edit(F2) hoặc ghi macro thế nhé

- Trời ...thế nói làm gì bạn ? bác Tuấn muốn tìm hiểu code sai ở đâu. Bác có muốn cập nhật bằng cách edit công thức đâu !

- Muốn F&R thì Ctrl+H thì đúng hơn là Ctrl+F5

- Mà hình như bạn lại "chở củi về rừng ", nhớ ko lầm cái trò thay dấu "=" tác giả cũng là bác Tuấn !

 

[Nguyễn Duy Tuân]

...
Kết quả thì đúng, nhưng mổi khi có sự thay đổi gì đó tôi phải bấm F2 edit từng cell thì nó mới cập nhật!
Nhờ các cao thủ xem file đính kèm và cho biết hướng giãi quyết

Em chạy thấy bình thường. Anh kiểm tra trong menu Tools->Options-> ở tab "Calculation" chọn chế độ :Automantic...

 

[anhtuan1066]

Ôi trời!
Rõ ràng lúc tôi thử thì nó ko cập nhật! Bây giờ lại dc! Khó hiểu
Sẳn đây cho hỏi luôn:
Tôi định đưa thêm điều kiện:
DK = SUMPRODUCT(1/COUNTIF(Vung,Vung))
If STT > DK then Unique = ""
Đại khái là vậy!
vào trong code (công thức này để đếm có bao nhiêu phần tử duy nhất)
Nhưng ko làm sao đưa vào dc! (có lẽ đây là công thức mãng và tôi chưa biết cách xử lý nó)
Dùng vòng lập cũng dc nhưng có vẽ chậm, tôi ko thích lắm!
Các bạn cho biết phải làm sao để đưa công thức trên vào code