Tìm kiếm kết quả dựa vào bảng dữ liệu cho trước

  • Thread starter Thread starter domjnjc
  • Ngày gửi Ngày gửi
Liên hệ QC

domjnjc

Thành viên chính thức
Tham gia
7/5/12
Bài viết
89
Được thích
13
Chào các anh/chị,

Các anh chị giúp em trích xuất dữ liệu sau khi nhập 2 đối tượng cần thì nó sẽ cho ra kết quả tương ứng với bảng dữ liệu cho trước, em có file ví dụ sau các anh chị giúp đỡ ạ
 

File đính kèm

Chào các anh/chị,

Các anh chị giúp em trích xuất dữ liệu sau khi nhập 2 đối tượng cần thì nó sẽ cho ra kết quả tương ứng với bảng dữ liệu cho trước, em có file ví dụ sau các anh chị giúp đỡ ạ
Bạn kiểm tra file đính kèm
 

File đính kèm

Nếu xài VBA thì vầy:
PHP:
Sub TimKiem()
 Dim Rng As Range, sRng As Range
 Dim MyAdd As String:       Const TB As String = "Không Có"
 Dim Rws As Long
 
 Rws = [C2].CurrentRegion.Rows.Count
 Set Rng = [C1].Resize(Rws)
 [I2:J2].Value = TB
 [M2].Resize(, 2).Value = Space(0)
 Set sRng = Rng.Find([K2].Value, , xlFormulas, xlWhole) 
 If Not sRng Is Nothing Then
    MyAdd = sRng.Address
    Do
        If sRng.Offset(, 1).Value = [L2].Value Then
            [I2:J2].Value = sRng.Offset(, -2).Resize(, 2).Value
            [M2:N2].Value = sRng.Offset(, 2).Resize(, 2).Value
            Exit Do
        End If
        Set sRng = Rng.FindNext(sRng)
    Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
 Else
   [K2].Value = TB
 End If
End Sub
 
Web KT

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

Back
Top Bottom