Bạn có nêu yêu cầu của bạn là dò tìm như nào đâu?
Option Explicit
Function TraLuuLuong(LuuLuong As Double, VungTra As Range)
Dim R As Long, C As Long, BangTra, Nguyen As Long, Le As Double
BangTra = VungTra.Value: Nguyen = Int(LuuLuong): Le = Round(LuuLuong - 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
TraLuuLuong = 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
TraLuuLuong = BangTra(R, C) + (Le - BangTra(1, C)) * (BangTra(R + 1, 2) - BangTra(R, C)) / (1 - BangTra(1, C))
Else
TraLuuLuong = CVErr(xlErrNA)
Exit Function
End If
End If
Exit Function
End If
Next
End Function
Bởi vì bạn cứ quan tâm tới cái hàm, cái code trong file đó. Trong khi người khác lại không quan tâm cái đó.- Trong vùng tìm kiếm nếu giá trị vùng tìm kiếm ở cột A >1 thì khi tra giá trị cần tìm ở vùng này là đúng. và nếu giá trị cùng tìm kiếm ở cột A<1 thì khi tra giá trị cần tìm trong vùng này là sai.
- Có lẽ code mình thiếu điều kiện gì đó, và sai ở đoạn này Nguyen= int(luuluong). Hic mình đang nhờ mọi người giúp mà bạn hỏi ngược lại mình
Option Explicit
Function TraLuuLuong(LuuLuong As Range, VungTra As Range)
Dim R As Long, C As Long, BangTra, Nguyen As Double, Le As Double
BangTra = VungTra
[COLOR=#ff0000]If UBound(BangTra) = 16 Then[/COLOR]
[COLOR=#ff0000] Nguyen = WorksheetFunction.RoundDown(LuuLuong, 1)[/COLOR]
[COLOR=#ff0000]Else[/COLOR]
[COLOR=#ff0000] Nguyen = WorksheetFunction.RoundDown(LuuLuong, 0)[/COLOR]
[COLOR=#ff0000]End If[/COLOR]
Le = Round(LuuLuong - Nguyen, 6)
For R = 2 To UBound(BangTra, 1)
If BangTra(R, 1) = Nguyen Then
For C = 2 To UBound(BangTra, 2)
[COLOR=#ff0000] If BangTra(1, C) = Le Then[/COLOR]
[COLOR=#ff0000] TraLuuLuong = BangTra(R, C)[/COLOR]
[COLOR=#ff0000] Exit Function[/COLOR]
[COLOR=#ff0000] End If[/COLOR]
If BangTra(1, C) > Le Then Exit For
Next
C = C - 1
If C < UBound(BangTra, 2) Then
TraLuuLuong = 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
TraLuuLuong = BangTra(R, C) + (Le - BangTra(1, C)) * (BangTra(R + 1, 2) - BangTra(R, C)) / [COLOR=#ff0000](0.01)[/COLOR]
Else
TraLuuLuong = CVErr(xlErrNA)
End If
End If
Exit Function
End If
Next
End Function
Chắc không phải cùng nghềCảm ơn bác HuuThang_bd và bác HieuCD. cả 2 code chạy tốt, code bác huuthang có thể sử dụng thêm nhiều việc đối với mình. Có vẻ người cùng ngành nghề. Hic lâu ko ghé diễn đàn giờ kiến thức trả lại hết. Chán thật.
. Cái bảng đó là tôi lấy từ file của một bạn khác để minh họa cách sử dụng thôi chứ tôi chẳng biết cái đó là cái gì đâu .Cảm ơn bác HuuThang_bd và bác HieuCD. cả 2 code chạy tốt, code bác huuthang có thể sử dụng thêm nhiều việc đối với mình. Có vẻ người cùng ngành nghề. Hic lâu ko ghé diễn đàn giờ kiến thức trả lại hết. Chán thật.
