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 đỡ!!!
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
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 đó!