Lấy một chuỗi trong cell khi được bôi đen

[anhkt08]

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.

 

[chuot0106]

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.

"Sẽ lấy chữ đó" là sao? Là làm biến mất hay copy sang chỗ khác...?

 

[Quang_Hải]

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.

Bôi đen xong thì copy, sau đó muốn dán đi đâu thì tự nhiên sẽ chỉ có phần bôi đen được copy thôi. ???

 

[anhkt08]

Cám ơn Anh Chuot0106 và Quang Hải 1969. Em muốn khi bôi đen phần text nào trong cell thì sẽ hiện lên msgbox thông báo phần text đó chẳng hạn

 

[Quang_Hải]

Cám ơn Anh Chuot0106 và Quang Hải 1969. Em muốn khi bôi đen phần text nào trong cell thì sẽ hiện lên msgbox thông báo phần text đó chẳng hạn

VBA chắc không có chức năng đó đâu. Có thể mình chưa biết khả năng này của VBA nhưng đoán là 99% không thể.

 

[be_09]

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:

 

[Quang_Hải]

Ví dụ dữ liệu bắt đầu là A4 trở xuống, thử hàm này xem sao?

=TrichBold(A4)

Xem File:

Anh hiểu sai ý chủ thớt rồi anh ạ. Dám cá không anh?

 

[be_09]

Anh hiểu sai ý chủ thớt rồi anh ạ. Dám cá không anh?

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.

 

[be_09]

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)

 

[anhkt08]

Cám ơn bác Be09. Nhưng ý em là các ký tự trong ô có định dạng giống nhau. Mình chỉ dùng con trỏ chuột quét ký tự. Và khi chạy vba thì sẽ lấy những ký tự đó thôi

 

[ultima_86]

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.

Cái này hay quá, mình cũng đang cần, nhưng mình cần có thêm 1 ký hiệu "-" hoặc "<>" ngăn cách giữa các kí tự được trích ra. Mình có để ví dụ trong file đính kèm, nhờ bạn giúp mình với. Cám ơn bạn nhiều.