Help: tô màu của một số ( hoặc chữ) trong một ô???

[duongdaicb]

E đang làm việc với bảng lớn, em muốn tô màu của một số ( hoặc chữ) trong một ô thì làm thế nào a!
Ví dụ như này ạ!

đây là e chỉ muốn tô màu toàn bộ số 1 trong bảng thôi
Mong các anh chị giúp đỡ!!!

 

[duongdaicb]

Nhờ các anh chị em giúp giùm câu này với nhé. nghe họ nói dùng VBA thì được. mong tin hồi âm các anh chị. Thank (sẽ bấm thank sau)

 

[atmt17]

E đang làm việc với bảng lớn, em muốn tô màu của một số ( hoặc chữ) trong một ô thì làm thế nào a!
Ví dụ như này ạ!

đây là e chỉ muốn tô màu toàn bộ số 1 trong bảng thôi
Mong các anh chị giúp đỡ!!!

Yêu cầu này chỉ có thể làm được nếu dử liệu của bạn được định dạng TEXT. Nếu là Number thật sự thì trời cứu, kể cả VBA cũng không làm được
Bạn cứ thử tô bằng tay, nếu tô được thì VBA cũng theo nguyên tắc ấy
Tôi làm tạm cho bạn 1 code:

Sub ToMauSo1()
  Dim Clls As Range, i As Long
  For Each Clls In Application.InputBox("Chon vung", Type:=8)
    i = InStr(Clls.Value, "1")
Tomau:
    If i Then Clls.Characters(i, 1).Font.ColorIndex = 3
    i = InStr(i + 1, Clls.Value, "1")
    If i Then GoTo Tomau
  Next Clls
End Sub

Code này tô màu số 1, nếu có nhu cầu tô màu khác số 1 thì sửa "1" thành số gì đó (trong code)

 

[SA_DQ]

Macro của bạn hình như còn vài vấn đề cần giải quyết

A|B|
111234 |45111|
112211 | 123123 |
N2 1 452 1 45| 1 23 1 23M|

Kết quả trên đây thể hiện điều đó!

 

[atmt17]

A|B|
111234 |45111|
112211 | 123123 |
N2 1 452 1 45| 1 23 1 23M|

Kết quả trên đây thể hiện điều đó!

Vâng! Nhưng nó đã được giải quyết xong tại đây rồi anh à:
http://www.giaiphapexcel.com/forum/showthread.php?t=29665