Lấy một chuỗi trong cell khi được bôi đen
Em xin chân thành cảm ơn.
Kính gửi các anh chị trên diễn đàn. Em có một vấn đề mãi mà không giải quyết được. Nhờ các anh chị xem giúp em. Đó là trong một cell khi mình bôi đen chữ nào thì vba sẽ lấy chữ đó.
Ví dụ trong một cell có chữ: "giai phap excel". Khi em dùng chuột bôi đen chữ "giai" và chạy vba thì nó sẽ lấy chữ "giai", bôi đen chữ "excel" thì nó chọn chữ "excel"
Em xin chân thành cảm ơn.
Ví dụ dữ liệu bắt đầu là A4 trở xuống, thử hàm này xem sao?
=TrichBold(A4)
Xem File:
www.giaiphapexcel.com/diendan/threads/l%E1%BA%A5y-m%E1%BB%99t-chu%E1%BB%97i-trong-cell-khi-%C4%91%C6%B0%E1%BB%A3c-b%C3%B4i-%C4%91en.113165/
Khóa học SprinGO phù hợp
Thiết kế Tổng đãi ngộ (Total Rewards) theo khung SHRM
Khóa học “Thiết kế Tổng phần thưởng (Total Reward) chuẩn khung SHRM” giúp bạn nắm vững toàn bộ hệ thống đãi ngộ theo chuẩn...
Xem khóa học
Nếu hiểu sai thì làm lại "chữ tô đỏ), nếu không đúng ý thì chủ Topic tự động la lên liềng.
Nếu dữ liệu bắt đầu là A4 thì dùng hàm:
=TrichChuDo(A4)
Xem File.
Thông thường Excel mặc định là chữ đen, vì vậy chủ Topic nên sử dụng code ở bài #8 để lấy dữ liệu cho thuận tiện mà không cần định dạng lại.
Còn muốn lấy chữ đen thì sửa code trên lại 1 tí:
Function TrichChuDen(Den As Range) As String
Dim ChuDen As String
With Den
For i = 1 To Len(.Value)
If .Characters(i, 1).Font.Color = RGB(0, 0, 0) Then
ChuDen = ChuDen & .Characters(i, 1).Text
End If
Next
End With
TrichChuDen = ChuDen
End Function
Sử dụng hàm sau:
=TrichChuDen(A4)