Xin nhờ Giai phap excell gỡ rối giúp doan code sau (1 người xem)

[thaithin]

Đoạn code hàm noisuy1chieu Tôi viết từ trong sách Giải pháp excell nhưng nó bi lỗi, báo #value xin Giai phap excell goi rối giúp

Xin cám ơn

Public Function Noisuy1chieu(Giatri As Single, Mang1 As Range, Mang2 As Range)
Dim i As Integer, Sohang As Integer
Dim A1 As Single, A2 As Single 'cac diem chan tren, duoi mang 1
Dim B1 As Single, B2 As Single 'cac diem chan tren , duoi mang 2
Sohang = Mang1.Rows.Count ' xac dinh so hang mang 1
For i = 1 To Sohang
A1 = Mang1(i - 1) 'diem chan tran diem noi suy Mang1
A2 = Mang1(i) ' diem chan duoi diem noi sung mang1
B1 = Mang2(i - 1) 'diem chan tren diem noi suy Mang2
B2 = Mang2(i) ' diem chan duoi diem noi sung mang2
If Mang1(i) >= Giatri Then
Noisuy1chieu = Round((Giatri - A1) * (B2 - B1) / (A2 - A1) + B1, 3)
Exit For
ElseIf Mang1(i) >= A2 Then
Noisuy1chieu = Mang2(Sohang)
End If
Next
End Function

 

[SA_DQ]

Bạn đưa hàm lên không thôi, thì khó cho mọi người lắm!

Thực ra viết mới dễ hơn; Nếu bạn đưa các thông số của bảng tra trang tính lên thì lại là chuyện khác;