Xác định địa chỉ của cell áp dụng hàm tự tạo (không dùng ActiveCell) (1 người xem)

[viehoai]

Tôi sử dụng hàm tự tạo dùng để tính tổng như sau

Option Explicit
Function TongKL(ByVal Rng As Range) As Variant
Dim EndR, FiR, Col As Long
FiR = Rng.Row + 1
Col = ActiveCell.Column
EndR = Rng.End(xlDown).Row - 1
If EndR > 65500 Then
  EndR = Cells(65500, Col).End(xlUp).Row
End If
   TongKL = Application.WorksheetFunction.Sum(Range(Cells(FiR, Col), Cells(EndR, Col)))
End Function

Tuy nhiên với cách dùng ActiveCell để xác định địa chỉ của hàm đang sử dụng thì khi thay đổi giá trị của tham chiếu thì hàm không cập nhật giá trị
Vậy xin hỏi các Anh Chị có giải pháp nào khác để hàm tự cập nhật giá trị hay không? (hay nói cách khác xác định địa chỉ cell sử dụng hàm mà không sử dụng ActiveCell)
Xin cảm ơn và chúc mọi người cuối tần vui vẽ
viehoai

 

[ndu96081631]

Tuy nhiên với cách dùng ActiveCell để xác định địa chỉ của hàm đang sử dụng thì khi thay đổi giá trị của tham chiếu thì hàm không cập nhật giá trị
Vậy xin hỏi các Anh Chị có giải pháp nào khác để hàm tự cập nhật giá trị hay không? (hay nói cách khác xác định địa chỉ cell sử dụng hàm mà không sử dụng ActiveCell)
Xin cảm ơn và chúc mọi người cuối tần vui vẽ
viehoai

Thử thay ActiveCell.Column thành Application.ThisCell.Column và thêm Application.Volatile ở đầu code xem

 

[viehoai]

Thử thay ActiveCell.Column thành Application.ThisCell.Column và thêm Application.Volatile ở đầu code xem

Xin Sư Phụ giả thích rõ hơn câu lệnh Application.Volatile
Em xin cảm ơn

 

[ndu96081631]

Xin Sư Phụ giả thích rõ hơn câu lệnh Application.Volatile
Em xin cảm ơn

Cái này chuyên dùng cho mấy vụ "không cập nhật" đây
Ví dụ hàm SUM theo màu sắc. Chúng ta biết rằng Excel không xem việc đổi màu là 1 sự kiện, chính vì thế khi thay đổi màu thì kết quả không tự cập nhất
Trong những trường hợp tương tự, ta thêm Application.Volatile vào nhằm mục đích cho nó tự cập nhật khi có thay đổi hoặc ít ra ta bấm F9 nó cũng có tác dụng
(hàm của bạn là thuộc dang này đây)