Bôi đỏ chữ cần tìm ! (2 người xem)

[nguyentheviet86]

Nhờ các anh chị giúp đỡ !
Trong excel em đánh chữ Gà rang muối, Gà luộc. Khi em tìm kiếm, chữ Gà thì nó hiện chữ Gà màu đỏ.

Em cảm ơn anh chị !

 

[Nhattanktnn]

Nhờ các anh chị giúp đỡ !
Trong excel em đánh chữ Gà rang muối, Gà luộc. Khi em tìm kiếm, chữ Gà thì nó hiện chữ Gà màu đỏ.

Em cảm ơn anh chị !

View attachment 247131

Bạn chuyển bài sang box lập trình, đính kèm file để mọi người giúp nhé!

 

[SA_DQ]

Nói thêm: Bôi mỗi chữ 'gà' sẽ khó, chi bằng ta bội nguyên mệnh đề (Font bỡi 1 màu nào đó?

 

[VetMini]

Nói thêm: Bôi mỗi chữ 'gà' sẽ khó, chi bằng ta bội nguyên mệnh đề (Font bỡi 1 màu nào đó?

Khó với bạn hay khó với thớt?
Người ta "nhờ" mờ.

Trong cái khuôn viên của GPE:
1. khó là năng lực kích động cho các thành viên khác làm việc, động não.
2. vì có điều 1 trên, khó hoàn toàn vô nghĩa với người hỏi.

 

[batman1]

Nhờ các anh chị giúp đỡ !
Trong excel em đánh chữ Gà rang muối, Gà luộc. Khi em tìm kiếm, chữ Gà thì nó hiện chữ Gà màu đỏ.

Em cảm ơn anh chị !

View attachment 247131

Ý bạn định tìm kiếm thế nào thì nói rõ ra. Đó là những thao tác nào? Nên nhớ là bạn đang hỏi ở mục "Hàm và công thức Excel".

 

[Maika8008]

Năng lực trình bày câu hỏi cực kỳ sơ khai, tuy nhiên tôi cũng lờ mờ đoán ý của chủ thớt là sau khi bấm Ctrl+F gõ vào đó chữ gà thì trên sheet hiên hành chỗ nào có chữ gà đều rực lên màu đỏ để dễ nhận biết. Nếu không phải vậy thì thôi.

 

[VetMini]

Theo tôi thì hai vấn đề này có thể phân biệt nhau. Và cá nhơn thì tôi thường phân biệt chúng.
Người giúp có thể chỉ cần viết một sub/function làm cái việc "bôi đỏ". Bên "tìm" gọi sub/func này thôi. Có lẽ sau đó thớt sẽ nói "viết giùm em hàm 'tìm'"

Function BoiDo(s As String, Optional byVal rg As Range)
' tìm và bôi đỏ chuỗi cần tìm
If rg Is Nothing Then
Set rg = cả sheet hiện hành, hoặc cả workbook gì đó
End If
BoiDo = số ô tìm được
End Function

Nếu chuỗi cần tìm nằm trong ô A1 thì dùng một hàm bắt sự kiện và code gọi hàm này:

Private BatSuKien(...)
...
If Target.Address = "$A$1" Then BoiDo(Target.Value)
...

Nếu thớt có một macro liên hệ với shortcut gì đó, Alt+f chẳng hạn:

Sub MacroTimKiem()
...
s = hỏi lấy chuỗi
MsgBox "Tim duoc tat ca " & BoiDo(s) & " o chua chuoi"
...
End Sub