Chủ yếu là hàm IF
Trong trường hợp này nếu dùng hàm IF thì về nguyên tắc là được nhưng rất dài, nhiều vòng IF lồng nhau nên rất khó cho việc kiểm tra lại.
Theo mình biết thì nếu L = 1 thì sẽ tìm gần đúng với dữ liệu cần tìm thôi chứ không phải là tìm trong khoảng.
Không khó nhưng hơi cực, tạm làm cho bạn 2 "khúc" thôi, còn 2 khúc sau bạn tự làm nhé (mình làm biếng quá)
Lâu lâu không sài đến công thức, tôi thử chút xem sao, hy vọng có thể giúp bạn
Mình thấy nó có trật tự tuần hoàn nên mình viết vầy cho đơn giản nha!
Câu này của bạn có ý nghĩa gì nhỉ? Bạn nói rõ hơn 1 chút được không?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("B:B")) Is Nothing Then
Dim Sh As Worksheet, Rng As Range, sRng As Range, Cls As Range
Dim sValue As String
Set Sh = Sheets("Standard")
Set Rng = Sh.Range(Sh.[A1], Sh.[A65500].End(xlUp))
With Target.Offset(, -1)
If .Value <> "" Then
sValue = .Value
Else
sValue = .End(xlUp).Value
End If
End With
Set sRng = Rng.Find(sValue, , xlFormulas, xlWhole)
If Not sRng Is Nothing Then
Set Rng = Sh.Range(sRng, sRng.End(xlDown)).Offset(, 1)
Target.Offset(, 1).Value = "GPE: Nothing"
For Each Cls In Rng
If Cls.Value = Target.Value Then
Target.Offset(, 1).Value = Cls.Offset(, 1).Value
Exit For
End If
Next Cls
End If
End If
End SubFunction SeaLook(Dk1, Dk2 As String, rg As Range) As Double
Dim mg(), i, j
Dim rg1 As Range
Set rg1 = rg.Cells(1, 1)
ReDim mg(rg.Rows.Count - 1, rg.Columns.Count - 1)
For i = 0 To rg.Rows.Count - 1
For j = 0 To rg.Columns.Count - 1
mg(i, j) = rg.Cells(i + 1, j + 1).Value
If rg.Cells(i + 1, 1) = "" Then
mg(i, 0) = rg1.Text
Else
Set rg1 = rg.Cells(i + 1, 1)
End If
Next
Next
For i = 0 To rg.Rows.Count - 1
If mg(i, 0) = Dk1 Then
If mg(i, 1) = Dk2 Then SeaLook = mg(i, 2)
End If
Next
End Function
Bạn thử nhập 1 chữ cái thích hợp vô cột 'B' - vùng có dữ liệu của trang đó xem sao.
