Hàm tự tạo tô màu chuỗi kí tự

Liên hệ QC

toandiennuoc123

Thành viên thường trực
Tham gia
7/3/12
Bài viết
239
Được thích
9
Chào các bạn ! Mong các bạn giúp đỡ
Tôi có ví dụ thế này: Tại B1 có câu "Dưới ánh trăng vàng em cất tiếng hát vang", tại A1 có chữ "vàng". Tôi muốn tại B1(...) được tô màu có chữ "vàng" theo điều kiện tại A1. Cảm ơn các bạn
P/s: trong file đính kèm tôi đã tô màu lấy ví dụ
 

File đính kèm

  • Hàm tự tạo Tô màu chuỗi kí tự theo điều kiện.xlsx
    9.7 KB · Đọc: 14
PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim Vl, Vl1, Str1, LenStr
Vl = Target.Value
Vl1 = Target.Offset(0, 1).Value
Str1 = InStr(1, Vl1, Vl)
LenStr = Len(Vl)
If Str1 > 0 Then
    Target.Offset(0, 1).Font.ColorIndex = xlAutomatic
    With Target.Offset(0, 1).Characters(Start:=Str1, Length:=LenStr).Font
        .Color = -16776961
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
End If
End Sub
Thử cách này nhé thầy!
 

File đính kèm

  • Hàm tự tạo Tô màu chuỗi kí tự theo điều kiện.xlsm
    18 KB · Đọc: 17
Upvote 0
Bạn có thể tham khảo bài viết bên này để thực hiện mong muốn của bạn.
 
Upvote 0
Chào các bạn ! Mong các bạn giúp đỡ
Tôi có ví dụ thế này: Tại B1 có câu "Dưới ánh trăng vàng em cất tiếng hát vang", tại A1 có chữ "vàng".
Tôi muốn tại B1(...) được tô màu có chữ "vàng" theo điều kiện tại A1. Cảm ơn các bạn
P/s: trong file đính kèm tôi đã tô màu lấy ví dụ
Ví dụ thế này: "Dưới ánh trăng vàng, có em da vàng đeo nhẫn vàng" thì bạn muốn tô như thế nào"
 
Upvote 0
Ví dụ thế này: "Dưới ánh trăng vàng, có em da vàng đeo nhẫn vàng" thì bạn muốn tô như thế nào"
cứ có vàng là lấy thôi
Bài đã được tự động gộp:

PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim Vl, Vl1, Str1, LenStr
Vl = Target.Value
Vl1 = Target.Offset(0, 1).Value
Str1 = InStr(1, Vl1, Vl)
LenStr = Len(Vl)
If Str1 > 0 Then
    Target.Offset(0, 1).Font.ColorIndex = xlAutomatic
    With Target.Offset(0, 1).Characters(Start:=Str1, Length:=LenStr).Font
        .Color = -16776961
        .TintAndShade = 0
        .ThemeFont = xlThemeFontNone
    End With
End If
End Sub
Thử cách này nhé thầy!
Bạn có thể chỉnh lại code được không ? Ví dụ : có bao nhiêu từ "vàng" lấy tất
"Dưới ánh trăng vàng, có em da vàng đeo nhẫn vàng"
 
Lần chỉnh sửa cuối:
Upvote 0
Bạn có thể tham khảo bài viết bên này để thực hiện mong muốn của bạn.
Tải về và thử cái này của bạn Excel " đơ " luôn....
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom