Function TraMucNuoc(MucNuoc As Double, VungTra As Range)
Dim R As Long, C As Long, BangTra, Nguyen As Long, Le As Double
BangTra = VungTra.Value: Nguyen = Int(MucNuoc): Le = Round(MucNuoc - Nguyen, 6)
For R = 2 To UBound(BangTra, 1)
If BangTra(R, 1) = Nguyen Then
For C = 2 To UBound(BangTra, 2)
If BangTra(1, C) > Le Then Exit For
Next
C = C - 1
If C < UBound(BangTra, 2) Then
TraMucNuoc = BangTra(R, C) + (Le - BangTra(1, C)) * (BangTra(R, C + 1) - BangTra(R, C)) / (BangTra(1, C + 1) - BangTra(1, C))
Else
If R < UBound(BangTra, 1) Then
TraMucNuoc = BangTra(R, C) + (Le - BangTra(1, C)) * (BangTra(R + 1, 2) - BangTra(R, C)) / (1 - BangTra(1, C))
Else
TraMucNuoc = CVErr(xlErrNA)
Exit Function
End If
End If
Exit Function
End If
Next
End Function
