Code vba tìm kiếm, xin nhờ các bác giúp (1 người xem)

[minhtiep178]

Chào các bác e có một list danh sách các tên, công việc. E muốn nhờ bác viết hộ e đoạn code tìm kiếm text, number và bôi màu vàng vào những text, number tìm được như công cụ tìm kiếm của excel (Ctrl F). Mong bác giúp đỡ

 

[SA_DQ]

Thường trong những trường hợp tương tự như vầy, bạn cần cung cấp file giả lập mới mong mau có kết quả mĩ mãn!

 

[minhtiep178]

Thường trong những trường hợp tương tự như vầy, bạn cần cung cấp file giả lập mới mong mau có kết quả mĩ mãn!

Vâng cám ơn bác đã quan tâm. E gưi file bác xem giúp e nhé!

 

[Hau151978]

Vâng cám ơn bác đã quan tâm. E gưi file bác xem giúp e nhé!

Bạn dùng auto filter - custom - contains, nhập Km57+080 vào, OK. Bôi màu vàng vào những ô lọc được. Nếu bạn muốn code thì record macro thao tác trên.

 

[minhtiep178]

Bạn dùng auto filter - custom - contains, nhập Km57 080 vào, OK. Bôi màu vàng vào những ô lọc được. Nếu bạn muốn code thì record macro thao tác trên.

Cám ơn bác rất nhiều! cách của bác rất hay, e đã làm đc rồi

 

[ChanhTQ@]

Option Explicit
Sub TimVaToMau()
 Dim Rng As Range, sRng As Range, Sh As Worksheet
 Dim fAdd As String
 Set Sh = ThisWorkbook.Worksheets("List")
 Set Rng = Sh.Range(Sh.[c2], Sh.[c2].End(xlDown))
 Set sRng = Rng.Find("Km57+080", , xlValues, xlPart)
 If Not sRng Is Nothing Then
    fAdd = sRng.Address
    Do
        sRng.Interior.ColorIndex = 38
        Set sRng = Rng.FindNext(sRng)
    Loop While Not sRng Is Nothing And sRng.Address <> fAdd
 Else
    MsgBox "Nothing"
 End If
End Sub