TÔ MÀU BẰNG VBA

[nguyentritinhft]

Anh/Chị ơi, giúp em viết một macro có thể tự động tô màu và bold như hình với ạ? Em cám ơn các cao nhân nhiều.

 

[Maika8008]

Không tô màu chữ trên hình được!

 

[nguyentritinhft]

Dạ cao nhân giúp em viết macro tô màu như format ở cột A. Em cám ơn nhiều ạ.

 

[Maika8008]

Dạ cao nhân giúp em viết macro tô màu như format ở cột A. Em cám ơn nhiều ạ.

Khổ ghê! Kêu bằng anh được rồi, cao nhân với cao trăn cái gì. Mai mà chưa có ai làm tôi xem thử. Tôi chưa làm kiểu tô màu 1 đoạn chữ trong cell thế kia bao giờ.

 

[VetMini]

... Tôi chưa làm kiểu tô màu 1 đoạn chữ trong cell thế kia bao giờ.

Tại thớt lười tìm chứ dạng này GPE có cả đống.

 

[batman1]

Khổ ghê! Kêu bằng anh được rồi, cao nhân với cao trăn cái gì. Mai mà chưa có ai làm tôi xem thử. Tôi chưa làm kiểu tô màu 1 đoạn chữ trong cell thế kia bao giờ.

Cờ đến tay không phất lại chờ mai. Người ta cầm lên phất thì lại cuống lên.

 

[Maika8008]

Cờ đến tay không phất lại chờ mai. Người ta cầm lên phất thì lại cuống lên.

Ối giời! Lâu nay tưởng bác nói ai chứ, ai dè...

Đấy, tôi trao cờ cho đấy, ai phất thì phất đi nhé. Mà có phất thì phất khẽ, nhẹ thôi chứ lại có người châm.

 

[batman1]

Cờ nằm lăn lóc không ai thèm phất thì mình phất chơi.

Tôi đoán mò là nếu có [EN] thì từ đó đến cuối tô mầu đỏ. Nếu đoán sai thì dừng tại đây.

Lần sau mô tả kỹ, đừng bắt người khác đoán mò.

Nếu muốn tìm giá trị khác thì sửa hằng số GIATRI_CANTIM. Khi tìm thì không phân biệt chữ hoa chữ thường. Nếu muốn phân biệt thì sửa vbTextCompare thành vbBinaryCompare. Nếu tìm ở cột khác thì sửa COT_TIMKIEM.

Sub tomau()
Const GIATRI_CANTIM = "[EN]"
Const COT_TIMKIEM = "A"
Dim lastRow As Long, r As Long, pos As Long, text As String
    With ThisWorkbook.Worksheets("Sheet1")
        lastRow = .Cells(Rows.Count, COT_TIMKIEM).End(xlUp).Row
        For r = 1 To lastRow
            text = .Range(COT_TIMKIEM & r).Value
            pos = InStr(1, text, GIATRI_CANTIM, vbTextCompare)
            If pos Then
                With .Range(COT_TIMKIEM & r).Characters(pos, Len(text) - pos + 1).Font
                    .FontStyle = "Bold"
                    .Color = RGB(255, 0, 0)
                End With
            End If
        Next r
    End With
End Sub

 

[HeSanbi]

Anh/Chị ơi, giúp em viết một macro có thể tự động tô màu và bold như hình với ạ? Em cám ơn các cao nhân nhiều.

Bạn có thể tham khảo hàm tìm kiếm:
Với yêu cầu của bạn thì gõ như sau: sử dụng biểu thức chính quy nên đối số UseRegEx = True
Vì bạn cần tìm các ký tự hoa nên Comapre để False

=S_Find("(\[EN\]:[A-Z ]*)",A2:A5,15210984,0,FALSE,TRUE)

Để đặt Bold cho Font tìm được:
Hãy làm theo hướng dẫn TÌM KIẾM BẢNG 1 trong Sheet Ví Dụ

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

 

[nguyentritinhft]

Cờ nằm lăn lóc không ai thèm phất thì mình phất chơi.

Tôi đoán mò là nếu có [EN] thì từ đó đến cuối tô mầu đỏ. Nếu đoán sai thì dừng tại đây.

Lần sau mô tả kỹ, đừng bắt người khác đoán mò.

Nếu muốn tìm giá trị khác thì sửa hằng số GIATRI_CANTIM. Khi tìm thì không phân biệt chữ hoa chữ thường. Nếu muốn phân biệt thì sửa vbTextCompare thành vbBinaryCompare. Nếu tìm ở cột khác thì sửa COT_TIMKIEM.

Sub tomau()
Const GIATRI_CANTIM = "[EN]"
Const COT_TIMKIEM = "A"
Dim lastRow As Long, r As Long, pos As Long, text As String
    With ThisWorkbook.Worksheets("Sheet1")
        lastRow = .Cells(Rows.Count, COT_TIMKIEM).End(xlUp).Row
        For r = 1 To lastRow
            text = .Range(COT_TIMKIEM & r).Value
            pos = InStr(1, text, GIATRI_CANTIM, vbTextCompare)
            If pos Then
                With .Range(COT_TIMKIEM & r).Characters(pos, Len(text) - pos + 1).Font
                    .FontStyle = "Bold"
                    .Color = RGB(255, 0, 0)
                End With
            End If
        Next r
    End With
End Sub

Dạ em cám ơn anh. Lần sau em sẽ ghi rõ hơn thông tin mình cần.
Không biết em có run sai chỗ nào không, mà lại không ra kết quả như mong muốn. Anh có thể xem lại giúp em được không ạ? Cám ơn anh.

 

[batman1]

Dạ em cám ơn anh. Lần sau em sẽ ghi rõ hơn thông tin mình cần.
Không biết em có run sai chỗ nào không, mà lại không ra kết quả như mong muốn. Anh có thể xem lại giúp em được không ạ? Cám ơn anh.

Thế kết quả mong muốn nó thế nào? Bạn kiểm tra lại

 

[nguyentritinhft]

Dạ em làm được rồi á.
Em cám ơn anh nhiều ạ.