TÔ MÀU CHUỖI VĂN BẢN

[Nguyenhoangphong0902]

Chào mọi người mình cần tô màu chuỗi văn bản theo mong muốn.
Mình có đoạn code VBA nhưng nó chỉ lấy màu ở duy nhất vùng Range(“F3”) mà thôi.
Tức là lấy 1 dữ liệu duy nhất, nhưng nhu cầu của mình phải là nhiều dữ liệu, VD F3,F4,F5….Fn thì có làm được không mọi người.
Hoặc dùng công thức nào cũng được, tô màu cả ô cũng được, theo dữ liệu mình sắp đặt: VD mình muốn tô màu ô nào có chữ “data” và “dữ liệu”. Nói chung tô màu theo nhiều yêu cầu có chữ ký tự đó là tô, ko phải 1 giá trị duy nhất.
Code VBA
Sub to_mau_chuoi()
Dim ws As Worksheet
Dim my_rg, my_cell As Range
Dim txt_search As String
Dim sart_num As Integer
Dim color_cell As Double
Set ws = ThisWorkbook.Sheets("Sheet1")
Set my_rg = ws.Range("A2:E10000")
Set ws = ThisWorkbook.Sheets("Sheet1")
txt_search = ws.Range("F3")
color_cell = ws.Range("F3").Font.Color
my_rg.Font.Color = vbBlank
On Error Resume Next
For Each my_cell In my_rg
start_num = 1
While start_num + Len(txt_search) <= Len(my_cell)
If Excel.WorksheetFunction.Search(txt_search, my_cell, start_num) > 0 Then
my_cell.Characters(Start:=Excel.WorksheetFunction.Search(txt_search, my_cell, start_num), Length:=Len(txt_search)).Font.Color = color_cell
start_num = start_num + Len(txt_search)
End If
Wend
Next
End Sub





Thích

 

[HUONGHCKT]

bạn phải đưa file giả định lên thì mới hi vọng có người giúp bạn.

 

[HeSanbi]

Bạn có thể tham khảo hàm bên này:

Tìm kiếm, định dạng phông và tô màu chuỗi với hàm UDF Excel

TÌM KIẾM, ĐỊNH DẠNG PHÔNG VÀ TÔ MÀU CHUỖI TÌM ĐƯỢC với Hàm S_Find và S_Find2 S_Find - Tìm kiếm và định dạng trực tiếp tại ô chứa giá trị S_Find2 - Mang giá trị đến một vùng mới sau đó tìm kiếm và định dạng (Vì Excel không cho phép định dạng phông thành phần chuỗi tại một ô...

www.giaiphapexcel.com