Cám ơn mọi người
Kính gửi các anh chị.
Mình có một danh sách về tên người. Mình muốn gõ một số chữ thì được một danh sách của các dòng có chứa tên của chữ đó (Xem file đính kèm). như vậy phải làm sao?
Rất mong được các anh chị hỗ trợ.
Cám ơn mọi người
Thử đoạn code này xem có được không bạn!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, j As Integer
Dim Kq(1 To 1000) As String
Application.ScreenUpdating = False
If Target.Address = "$E$12" Then
For i = 1 To Range("A65536").End(xlUp).Row
If InStr(1, Cells(i, 1).Value, Target.Value) Then
j = j + 1
Kq(j) = Cells(i, 1).Value
End If
Next i
Range("H9:H65536").ClearContents
For i = 1 To j
Cells(9 + i, 8).Value = Kq(i)
Next i
End If
Application.ScreenUpdating = True
End Sub
www.giaiphapexcel.com/diendan/threads/vba-vi%E1%BA%BFt-code-l%E1%BB%8Dc-d%E1%BB%AF-li%E1%BB%87u.80342/
Học Nhân sự Tổng hợp – Trở thành chiến binh nhân sự vững nghiệp vụ
Con người là một trong những yếu tố quan trọng của công ty, là tài sản quý giá của doanh nghiệp. Chính vì thế,...
Xem khóa học