hỏi về UDF tính trung bình bị lỗi (1 người xem)

[Tường_Vi]

Em viết thử 1 UDF đơn giản sau

Function Avg(KH As Range, KHdata As Range, Wt As Range) As Long
Dim Qty As Long
Dim Gr As Long
Qty = WorksheetFunction.CountIf(KHdata, "*" & KH & "*")
Gr = WorksheetFunction.SumIf(KHdata, "*" & KH & "*", Wt)
Avg = Gr / Qty
End Function

Giả sử vùng Wt cách vùng KHdata 01 cột

Em sửa code trên thành như sau, nhưng UDF không chạy
Anh chị chỉ ra giúp em nhé

Function Avg(KH As Range, KHdata As Range) As Long
Dim Qty As Long
Dim Gr As Long
Dim Wt as range
Wt = KHdata.offset(,1)
Qty = WorksheetFunction.CountIf(KHdata, "*" & KH & "*")
Gr = WorksheetFunction.SumIf(KHdata, "*" & KH & "*", Wt)
Avg = Gr / Qty
End Function

 

[huuthang_bd]

Biến Wt là biến dạng Range nên khi gán bạn phải dùng từ khóa Set. Tóm lại
Thay

Wt = KHdata.offset(,1)

Bởi

Set Wt = KHdata.offset(,1)