Option Explicit
Function TongCK(SanFam As Range, CSDL As Range)
TongCK = Application.WorksheetFunction.Sum(CSDL) * (1 - _
Application.WorksheetFunction.VLookup(SanFam, Range("ChKhau"), 2, False))
End Function
Chú ý khi sử dụng:
"ChKhau" là vùng đã được gán tên trên trang tính