giúp đỡ sửa sai trong hàm VBA

[quanghao262]

em đang tập lập hàm nội suy giữa 2 cột

Function noisuy(vungtra As Range, X As Double) As Double
Dim ktra As Boolean
Dim i As Integer
Dim x1 As Double, x2 As Double, y1 As Double, y2 As Double
For i = 1 To vungtra.Cells.Count
ktra = False
If vungtra.Cells(i, 1) <= X And vungtra.Cells(i + 1, 1)>=X Then
x1 = vungtra.Cells(i, 1): x2 = vungtra.Cells(i + 1, 1)
y1 = vungtra.Cells(i, 1): y2 = vungtra.Cells(i + 1, 2)
noisuy = y1 + (y2 - y1) * (X - x1) / (x2 - x1)
ktra = True
End If
Next i
If ktra = False Then
MsgBox "ngoai vung phu song", vbInformation
Exit Function
End If
End Function

nhưng không hiểu là sai ở đâu.mong anh chị giúp đỡ

 

[ChanhTQ@]

Nghi ngờ dòng lệnh thứ 7 cần chỉnh sửa.

​

 

[quanghao262]

em đã sửa,nhưng ko hiểu sao có vẫn ko tìm được lỗi,hy vọng có ai có thể xem giùm em
khi em nội suy thì bất kỳ dù trong vùng tra hay ngoài vùng tra đều cho bảng vBinformation rồi mới xuất kết quả.

 

[quanghao262]

bỗng em thử xóa dòng ktra=true thì được anh à.không hiểu sao lại thế nhỉ?