Trong bản của bạn với sản phẩm là "TD" thì trong bảng không co giá trị 99 hoặc 50 nên phải thêm tham chiếu. Hàm Vlookup và HLookup phải tìm giá trị chính xác chứ bạn. Bạn xem lại xem
Lỗi này xảy ra do công thức dò tìm =HLOOKUP(G7,$J$11:$Q$13,IF(D7="D T",2,3),1) diện tích dưới 100 bạn thêm 1 cột nữa ở vùng dò tìm là được
Option Explicit
Function DonGiaSF(LoaiSF As String, DT As Double, KhuVuc As String, TyLe As Long)
If UCase$(LoaiSF) = "TL" Then
DonGiaSF = 122369 * IIf(DT >= 10 ^ 4, DT / 10 ^ 4, 1)
Exit Function
End If
If DT > 10 ^ 4 Then
With Application.WorksheetFunction
DonGiaSF = .VLookup(TyLe, Range("ThCh02"), 2, True)
End With
Else
KhuVuc = UCase$(KhuVuc)
If KhuVuc = "DT" Then
DonGiaSF = Switch(DT <= 100, 383182, DT <= 300, 478972, DT <= 500, 574760, _
DT <= 1000, 718442, DT <= 3000, 957913, DT < 10 ^ 5, 1436855)
ElseIf KhuVuc = "NT" Then
DonGiaSF = Switch(DT <= 100, 571607, DT <= 300, 709772, DT <= 500, 757404, _
DT <= 1000, 1076516, DT <= 3000, 1428999, DT < 10 ^ 5, 2143493)
Else
DonGiaSF = "GPE.COM"
End If
End If
End Function
IF(AND(F7="TL";G7<=10000);122369;IF(F7="TL";122369*G7/10000;IF(G7<=10000;VLOOKUP(D7;$J$12:$P$13;LOOKUP(G7;{0;101;301;501;1001;3001};{2;3;4;5;6;7});0);VLOOKUP(E7;$J$19:$K$22;2;1)*E7/10000)))
