Cho 2 biến - kết quả trả về giá trị của hàng đầu tiên

Liên hệ QC
Tôi tuân thủ nội quy khi đăng bài

vic_it

Thành viên mới
Tham gia
31/7/10
Bài viết
22
Được thích
4
Em nhờ Anh/Chị xử lý giúp các tìm kiếm dữ liệu trả về giá trị của hàng đầu tiên
File mẫu và kết quả mong muốn e gửi kèm file.

Cám ơn Anh/Chị.
 

File đính kèm

Em nhờ Anh/Chị xử lý giúp các tìm kiếm dữ liệu trả về giá trị của hàng đầu tiên
File mẫu và kết quả mong muốn e gửi kèm file.

Cám ơn Anh/Chị.
Mã:
C9=INDEX($H$5:$N$5, MATCH($D$8, INDEX($H$6:$N$15, MATCH($C$8, $G$6:$G$15, 0), 0), 0))

Tương tự cho ô bên trên
 
Nhàn cư vi hướng thiện:

PHP:
Function TraBang(Hang As String, Cot As Integer, Optional Bang As Range)
 If Bang Is Nothing Then Set Bang = [G5:N15]
 Dim Rng As Range, sRng As Range, Cls As Range
 
 Set Rng = Bang(1).Resize(Bang.Rows.Count)
 TraBang = "Nothing!"
 Set sRng = Rng.Find(Hang, , xlFormulas, xlWhole)
 If Not sRng Is Nothing Then
    For Each Cls In sRng.Resize(, Bang.Columns.Count)
        If Cls.Value = Cot Then
            TraBang = Bang(Cls.Column - Bang(0).Column).Value
            Exit Function
        End If
    Next Cls
 End If
End Function
 
Mã:
C9=INDEX($H$5:$N$5, MATCH($D$8, INDEX($H$6:$N$15, MATCH($C$8, $G$6:$G$15, 0), 0), 0))

Tương tự cho ô bên trên
Dạ, đúng cái em cần tìm.
Em có lồng INDEX & MATCH nhưng mãi ko ra.
Dùng SUMPRODUCT thì nó lại ra toạ độ của điểm giao.
Cám ơn Anh/Chị.
Bài đã được tự động gộp:

Nhàn cư vi hướng thiện:

PHP:
Function TraBang(Hang As String, Cot As Integer, Optional Bang As Range)
 If Bang Is Nothing Then Set Bang = [G5:N15]
 Dim Rng As Range, sRng As Range, Cls As Range
 
 Set Rng = Bang(1).Resize(Bang.Rows.Count)
 TraBang = "Nothing!"
 Set sRng = Rng.Find(Hang, , xlFormulas, xlWhole)
 If Not sRng Is Nothing Then
    For Each Cls In sRng.Resize(, Bang.Columns.Count)
        If Cls.Value = Cot Then
            TraBang = Bang(Cls.Column - Bang(0).Column).Value
            Exit Function
        End If
    Next Cls
 End If
End Function
Dạ, nhúng VBA thì cũng hay, nhưng với case này thì nặng tay quá ạ :)
Cám ơn Anh/Chị.
 
Web KT

Bài viết mới nhất

Back
Top Bottom