Làm thế nào để lấy đước một khoảng dữ liệu có sẵn

[trongntk]

Các bác có cách nào giúp tôi với: Ví dụ tôi có một số định mức, và nếu gọi một mã ra thì nó hiện cả ra một vùng diễn giải cần thiết, có kèm theo ví dụ:

 

[ndu96081631]

Các bác có cách nào giúp tôi với: Ví dụ tôi có một số định mức, và nếu gọi một mã ra thì nó hiện cả ra một vùng diễn giải cần thiết, có kèm theo ví dụ:

Bạn hỏi kiểu này mà có người giúp được mới lạ!
Chẳng hiểu tí nào
Số định mức là cái gì?
Mã là cái gì
Vùng diển giải là cái chi chi
Hỏng thấy file ---> THUA

 

[salam]

Các bác có cách nào giúp tôi với: Ví dụ tôi có một số định mức, và nếu gọi một mã ra thì nó hiện cả ra một vùng diễn giải cần thiết, có kèm theo ví dụ:

Bạn xem trong file kèm nhé.

 

[ChanhTQ@]

Bạn xài thử cái này (tham khảo)

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [h6]) Is Nothing Then
   Dim Rng As Range, sRng As Range
   Dim Rws As Long
 
   Set Rng = Range([A1], [A65500].End(xlUp))
   Target.Offset(, 1).Resize(Rng.Rows.Count, 5).Value = ""
   Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      MsgBox "Chua Co Ma Nay!", , "GPE.COM"
   Else
      With sRng.Offset(, 1).Resize(Rws, 5)
         Rws = sRng.Offset(1, 5).End(xlDown).Row - sRng.Row + 1
         Target.Offset(, 1).Resize(Rws, 5).Value = .Value
      End With
   End If
 End If
End Sub

 

[trongntk]

Mình đã tô màu rồi đó, nếu gõ một mã phía trước ( mình đã viết nghi chú) thì nó hiện ra toàn bộ phần mình bôi đổi màu. Thành thật mình không biết dùng code, bác nào có cách nào dùng công thức thì chỉ giúp mình với! xin cảm ơn nhieu!