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

  • Thread starter duongdaicb
  • Ngày gửi
D

duongdaicb

Sơ cấp
29/10/09
3
0
1
29
cao bằng
#1
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 ạ!
proxy.php?image=http%3A%2F%2Fupanh.com%2Fuploads%2F27-Oct-2009%2Fouge2n5rvtlke3bss.jpg&hash=cabb821c705327259d46df4d15d13987

đâ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 đỡ!!!
 
D

duongdaicb

Sơ cấp
29/10/09
3
0
1
29
cao bằng
#2
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)
 
A

atmt17

Sơ cấp
26/9/08
70
1
6
Đồng Nai
#3
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 ạ!
proxy.php?image=http%3A%2F%2Fupanh.com%2Fuploads%2F27-Oct-2009%2Fouge2n5rvtlke3bss.jpg&hash=cabb821c705327259d46df4d15d13987

đâ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:
Mã:
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)
 
Sửa lần cuối:
S

SA_DQ

Thành viên thân thiết
29/6/05
435
38
28
61
HCM city
#4
Macro của bạn hình như còn vài vấn đề cần giải quyết

[TABLE]A|B|
111234|45111|
112211|123123|
N21452145|123123M|
[/TABLE]

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

Thành viên trực tuyến

  • daongocnam0603
  • xediengiatot
  • Cty Kế toán Đầu Xuân Đức
  • takae




Xem nhiều