Hỏi cách gán địa chỉ cho cột cần lấy thông tin ????? (1 người xem)

[moonsun1130]

Các AE cho mình hỏi với. Mình có 1 file excel gồm 3 sheet :
Sheet 1 là TTKH (có khoảng 1000 KH)
Sheet 2 là QH (thông tin quan hệ với KH chẳng hạn như : bố, mẹ, chồng....)
Sheet 3 là sheet tổng hợp
Tại Sheet 3 mình đặt ô K1 là ô tìm kiếm
khi mình nhập số thứ tự bất kỳ chẳng hạn số 2 thì ngay lập các thông tin liên quan đến KH thư 2 đều hiện ra vào các ô tương ứng
cách gán địa chỉ cho các cột như thế nào nhỉ các AE giúp mình với. xin cảm ơn

 

[thuyyeu99]

Cái này mình nghĩ bạn dùng hàm Vlookup được mà.Bạn dùng K1 là giá trị tìm và ứng với các ô nào thị bạn tìm trên sheet đó.
Vlookup($K$1,QH!A2:AA1000,"Cột cần lấy KQ",0)

 

[moonsun1130]

Sao mình gửi file đính kèm không thấy lên nhỉ

 

[SA_DQ]

Xem trong file đính kèm & cho biết những điều chưa vừa ý, nha!

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [D2]) Is Nothing Then
   Dim Rng As Range, sRng As Range, Clls As Range, Sh As Worksheet
   Dim MyAdd As String, MyColor As Byte, Jj As Byte
   
   [b4].CurrentRegion.Offset(1).ClearContents
   [b7].CurrentRegion.Offset(1).ClearContents
   MyColor = Target.Interior.ColorIndex + 1
   If MyColor = 42 Then MyColor = 34
   For Jj = 1 To 2
      Set Sh = Sheets(Choose(Jj, "KhHg", "QHe"))
      Set Rng = Sh.Range(Sh.[b1], Sh.[B65500].End(xlUp))
      Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
      If sRng Is Nothing Then
         MsgBox "Chua Có"
      Else
         If Jj = 1 Then
            [a5].Value = sRng.Offset(, -1).Value
            [B5].Resize(, 5).Value = sRng.Offset(, 1).Resize(, 5).Value
         Else
            MyAdd = sRng.Address
            Do
               With [A99].End(xlUp).Offset(1)
                  .Value = WorksheetFunction.VLookup(sRng.Offset(, 1).Value, Sh.Range("QHe"), 2, False)
                  .Offset(, 1).Resize(, 5).Value = sRng.Offset(, 2).Resize(, 5).Value
               End With
               Set sRng = Rng.FindNext(sRng)
            Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
         End If
      End If
   Next Jj
   Target.Interior.ColorIndex = MyColor
 End If
End Sub

 

[sealand]

Em e bạn ấy hỏi như vậy mà Bác HYen17 đưa Code VBA như vậy chưa chắc hiểu và dùng thấu đáo ngay được. Trước hết bạn nên dùng cột phụ và công thức cho đơn giản, sau này nghiên cứu dùng Name và công thức hay VBA.
Em gửi file ví dụ để bạn ấy tham khảo thêm.