in đậm chuỗi văn bản bằng excel

[nghiahandsome1995]

chào các anh, chị em cần 1 vba excel như sau: +"toi ten la "&"abcxyz", em muốn in đậm phần ký tự toi ten la. Mong các anh chị giúp m voi, thanks all

 

[HeSanbi]

Xem thử hàm này có giúp được bạn không

Chủ đề 'FindFormat - Hàm tìm kiếm định dạng chuỗi trong ô, chú thích và hình dạng excel'

14/10/20

TÌM KIẾM, ĐỊNH DẠNG PHÔNG VÀ TÔ MÀU CHUỖI TRONG Ô, CHÚ THÍCH VÀ HÌNH DẠNG EXCEL
với Hàm FindFormat

Trong Excel khi bạn muốn tô đậm, hoặc đổi màu một đoạn văn bản trong ô nào đó, bạn phải thao tác tay, nhưng nếu rất nhiều ô cần thực hiện như vậy thì sẽ mất rất nhiều thời gian, chính vì vậy chức năng hàm FindFormat sẽ giúp bạn thực hiện nhanh hơn, với nhiều tùy chọn linh hoạt, với hai cách tìm kiếm: thường và biểu thức chính quy. Với biểu thức chính quy, bạn có thể tìm những cấu trúc văn bản...

• HeSanbi
• #sanbi udf làm nổi bật chuỗi tìm kiếm tìm kiếm tô màu
• Trả lời: 4
• Diễn đàn: Lập Trình với Excel

• 

 

[HUONGHCKT]

chào các anh, chị em cần 1 vba excel như sau: +"toi ten la "&"abcxyz", em muốn in đậm phần ký tự toi ten la. Mong các anh chị giúp m voi, thanks all

Tham khảo đoạn code sau:

Option Explicit

Sub InDam()
Dim Lr1&, Lr2&, i&, j&, t&, k&, rng1, rng2
With ActiveSheet
Lr1 = .Cells(Rows.Count, "J").End(xlUp).Row
Lr2 = .Cells(Rows.Count, "N").End(xlUp).Row
    For i = 2 To Lr1
        For j = 2 To Lr2
            t = InStr(1, .Range("J" & i), .Range("N" & j))
            If t Then
                k = Len(.Range("N" & j))
                With .Range("J" & i).Characters(Start:=t, Length:=k).Font
                    .Name = "Arial"
                    .FontStyle = "đậm"
                End With
            End If
        Next j
    Next i
End With
End Sub

Với N2:N... là liệt kê các Chuỗi cần in đậm
Với J2:J.... là các dữ liệu cần tìm chuỗi thỏa mãn với Nxxx để in đậm
bạn có thể tìm hiểu thêm hàm Ucase(Chuoi) để có thể Hoàn chỉnh code hơn.