Nhờ giúp đỡ tô màu nền cho kí tự của kết quả tìm kiếm

[Huỳnh Chí]

Chào ac số là e tìm nát hết gg mà không thấy code nào hướng dẫn tô màu nền kí tự của kết quả tìm kiếm nên nhờ ac giúp đỡ ạ
VD: từ Ngôi nhà thì khi mình từ "hà" thì kết quả sẽ tô nền từ "hà"

 

[CHAOQUAY]

Chào ac số là e tìm nát hết gg mà không thấy code nào hướng dẫn tô màu nền kí tự của kết quả tìm kiếm nên nhờ ac giúp đỡ ạ
VD: từ Ngôi nhà thì khi mình từ "hà" thì kết quả sẽ tô nền từ "hà"

Lập sheet mới, đặt tên là "Sheet1". Tại A6, nhập "Ngôi nhà". Tại C6, nhập "hà". Chạy code dưới đây

Option Explicit

Sub xxx()
Dim Chuoi
Dim Mau
Dim i, j, k

With Sheets("Sheet1")
    Chuoi = .Range("A6")
    Mau = .Range("C6")
    
    k = InStr(Chuoi, Mau)
    If k Then
        For j = k To k + Len(Mau) - 1
            .Range("A6").Characters(j, 1).Font.ColorIndex = 3
        Next j
    End If
End With
End Sub

 

[bebo021999]

Không làm được việc này nhé.

Lập sheet mới, đặt tên là "Sheet1". Tại A6, nhập "Ngôi nhà". Tại C6, nhập "hà". Chạy code dưới đây
... .Range("A6").Characters(j, 1).Font.ColorIndex = 3

Làm hú hồn, tưởng tô màu nền được (Interior color), hóa ra là tô chữ (Fon color).
Đề bài yêu cầu tô nền (Interior color) cơ mà.
Yêu cầu này làm trực tiếp không được, làm lách thì được (Insert hình vẽ vào ô)