in đậm chuỗi văn bản bằng excel (1 người xem)

[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.

 

[nghiahandsome1995]

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.

b làm vào 1 file excel được không để mình mò, chứ mình xem không hiểu gì , thanks

 

[HUONGHCKT]

b làm vào 1 file excel được không để mình mò, chứ mình xem không hiểu gì , thanks

Khuyên bạn:
1/ Hãy bỏ thói quen viết tắt, tây bồi, ...trong cuộc sống hàng ngày. Nhất là trên diễn đàn này để có thêm nhiều sự hỗ trợ tốt hơn.
2/ Nếu hỏi bài , thì nên đưa 1 file giả định, trong đó mô tả rõ kết quả mong muốn. Chứ không để người trợ giúp lại tạo file giả định luôn cho bạn.
Còn đây là file của tôi.
Nhấn nút Button để được kết quả.
Thay đổi dữ liệu và điều kiện để thử lại.
Bài này có thể phát triển thêm các vấn đề khác như: Xóa chuỗi theo đkiện; Tô màu Ô theo điều kiện và màu ô cho trước; Xóa các chuỗi trùng trong chuỗi mẹ,...

 

[nghiahandsome1995]

Khuyên bạn:
1/ Hãy bỏ thói quen viết tắt, tây bồi, ...trong cuộc sống hàng ngày. Nhất là trên diễn đàn này để có thêm nhiều sự hỗ trợ tốt hơn.
2/ Nếu hỏi bài , thì nên đưa 1 file giả định, trong đó mô tả rõ kết quả mong muốn. Chứ không để người trợ giúp lại tạo file giả định luôn cho bạn.
Còn đây là file của tôi.
Nhấn nút Button để được kết quả.
Thay đổi dữ liệu và điều kiện để thử lại.
Bài này có thể phát triển thêm các vấn đề khác như: Xóa chuỗi theo đkiện; Tô màu Ô theo điều kiện và màu ô cho trước; Xóa các chuỗi trùng trong chuỗi mẹ,...

file này của bạn mình ấn sao nó không in đậm bạn ơi, mong bạn xem lại giúp

 

[HUONGHCKT]

file này của bạn mình ấn sao nó không in đậm bạn ơi, mong bạn xem lại giúp

Có thể bạn chưa Unblock file trước khi mở file

cách làm
1/ Phải chuột vào file==> chọn properties
2/Hiện bảng chọn UnBlock ===> chọn Apply==> Chọn OK
3/ mở file
Nếu vẫn chưa thành công Thì bạn có Utralview không? Kết nối với tôi (gửi ID và pass qua hộp thư hoặc Zalo- hoặc công khai) để tôi hỗ trợ bạn.
Thêm file đính kèm

 

[HeSanbi]

Gõ hàm như thế này nếu bạn sử dụng hàm FindFormat

=FindFormat("Tôi tên là: ","Tôi tên là: "&B1,fff_Target(B3),fff_Bold())

 

[nghiahandsome1995]

Gõ hàm như thế này nếu bạn sử dụng hàm FindFormat

hàm này nếu em thay đổi ô B1 thì ô B3 nó lại đậm hết cả, mong anh fix

 

[thuytrangbp28]

file này của bạn mình ấn sao nó không in đậm bạn ơi, mong bạn xem lại giúp

Trong code của @HUONGHCKT có chữ "đậm", bạn sửa thành "Bold" xem. Và code này chỉ mới làm đúng yêu cầu của bạn là tô đậm, nếu điều kiện thay đổi thì chỗ tô đậm đó vẫn còn nguyên

 

[nghiahandsome1995]

Có thể bạn chưa Unblock file trước khi mở file

cách làm
1/ Phải chuột vào file==> chọn properties
2/Hiện bảng chọn UnBlock ===> chọn Apply==> Chọn OK
3/ mở file
Nếu vẫn chưa thành công Thì bạn có Utralview không? Kết nối với tôi (gửi ID và pass qua hộp thư hoặc Zalo- hoặc công khai) để tôi hỗ trợ bạn.
Thêm file đính kèm

cảm ơn b nhiều nhé mình làm được rồi

 

[HUONGHCKT]

Trong code của @HUONGHCKT có chữ "đậm", bạn sửa thành "Bold" xem. Và code này chỉ mới làm đúng yêu cầu của bạn là tô đậm, nếu điều kiện thay đổi thì chỗ tô đậm đó vẫn còn nguyên

Tin rằng bạn chủ thớt biết cách code để đưa tất cả trở về không đậm trước khi dò tìm điều kiện để tô đậm. NHư tôi đã nói bài này có thể phát triển thêm các vấn đề như: huỗi theo đkiện; Tô màu Ô theo điều kiện và màu ô cho trước; Xóa các chuỗi trùng trong chuỗi mẹ,...