Đổi màu chỉ một chữ trong dữ liệu nhiều nội dung

[vbano1]

Tôi có file như sau:

Bạn cần đăng nhập để thấy hình ảnh

Tôi cần tô màu đỏ và gạch chân chỗ nào có chữ Nghiệm Thu.
1. Tôi không thể gõ tiếng việt có dấu trong VBA nên tôi dùng Uniconvert.

Bạn cần đăng nhập để thấy link

2. Tôi dùng hàm Instr để phát hiện có ký tự nghiệm thu hay không.
3. Tôi cho tô màu và gạch chân.
4. Để đảm bảo code luôn tìm hết tất cả các chữ nghiệm thu trong văn bản, tôi cho vào vòng lặp Do~loop

File tôi đã code có thể download ở đây:

Bạn cần đăng nhập để thấy link

 

[Euler]

Cách nghĩ đúng rồi, cũng tương tự như chuyển đổi ký tự zenkaku←→hankaku:
Point của cả chương trình là cần phải dò tìm những cells nào đã được người dùng sờ mó sử dụng:

Dim cell As Range
For Each cell In ActiveSheet.UsedRange
 'Đoạn code xử lý ở trong này thì tùy ý
Next cell

 

[tuhocvba]

Nếu cells chỉ có một chữ "nghiệm thu", thì cũng phải tô. Do đó code chỗ này:

If n > 10 Then

nên sửa là

If n > 9 Then

thì hoàn thiện hơn.