Dùng Exl tô màu các ô theo ý muốn được không?

[Baton1123]

Chúc mừng năm mới cả nhà.
Em có việc cần nhờ anh chị em giúp.
Em muốn trong bảng phân ca khi em đánh là A thì ô đó là tự đổi thành màu xanh, em đánh là B thì ô đó đổi thành màu đỏ và các ô khác tương tự. Em đã làm đổi màu ô khi trong ô là giá trị, còn trong ô là dạng kí tự thì không biết có làm được không?

 

[ChanhTQ@]

Bạn tham khảo tại đây: http://giaiphapexcel.com/forum/showthread.php?t=344&highlight=Colors (Mục IX: XI. Tìm các ô chứa giá trị chuỗi "JjWwZz")

Chúc bạn thành công

 

[ndu96081631]

Chúc mừng năm mới cả nhà.
Em có việc cần nhờ anh chị em giúp.
Em muốn trong bảng phân ca khi em đánh là A thì ô đó là tự đổi thành màu xanh, em đánh là B thì ô đó đổi thành màu đỏ và các ô khác tương tự. Em đã làm đổi màu ô khi trong ô là giá trị, còn trong ô là dạng kí tự thì không biết có làm được không?

Cũng vậy thôi mà... dùng Conditional Formating
Xem file

 

[Baton1123]

Cũng vậy thôi mà... dùng Conditional Formating
Xem file

Cảm ơn Bạn.
Mình vừa làm thử nhưng không được. Có thể là mình chưa hiểu cách sử dụng Conditional Formating. Bạn có thể cho mình một chỉ dẫn cụ thể hơn không."ChanhTQ" chỉ cho mình đọc bài 56 màu excel nhưng thú thật là mình không hiểu nhiều về cách làm code trog Ecl.Mình vẫn chưa biết cách tạo code.Nếu dùng Conditional Formating không được có thể chỉ cho mình cách tạo code được không?
Mình lấy ví dụ bảng phân công ca trực như mình đính kèm.

 

[TrungChinhs]

Mình đã làm theo cách của ndu96081631 cho bài của bạn!

 

[xuan_ha919]

Tuy nhiên nếu dùng Conditon Format trên Excel 2003 về trước thì không đủ màu theo yêu cầu của bạn đâu. Chỉ có 3 màu thôi.

 

[Baton1123]

Mình đã làm theo cách của ndu96081631 cho bài của bạn!

Cảm ơn bạn nhiều.
Mình đã làm được rồi.
Nhân tiện cho mình hỏi thêm về cách tạo code được không?Mình đọc rất nhiều bài viết nói về cách tạo code, nhưng mình chưa có chút kiến thức nào về nó cả. Mình luôn luôn không giấu dốt.hihihhii...

 

[ChanhTQ@]

Bạn phải chuột vô thanh SheetName (góc trải dười cùng của excel & chọn dòng cuối để cửa sổ VBE hiện ra;
Bạn Copy cái macro này & thử nghiệm B5:AF99 với 6-7 chữ cái đầu tiên xem sao:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("B5:AF99")) Is Nothing And Target.Count = 1 Then
    Target.Interior.ColorIndex = Choose(Asc(UCase$(Left(Target, 1))) - 64, _
                      35, 37, 40, 38, 34, 36, 39)
 End If
End Sub

Chúc bạn gặt hái nhiều thành công trong hôm nay & mai sau!

 

[longit_2006]

Chao Ban ChanhTQ

tui cung dang mu ve code excel

tui cũng view code ròi pass code bạn đua vao

nhưng làm sao để apply cái code đó vào trong sheet đó

cám ơn bạn nhiều

 

[ndu96081631]

Chao Ban ChanhTQ

tui cung dang mu ve code excel

tui cũng view code ròi pass code bạn đua vao

nhưng làm sao để apply cái code đó vào trong sheet đó

cám ơn bạn nhiều

Bạn không cần phải làm gì cả ---> khi bạn nhập liệu trong vùng B5:AF99 thì code sẽ tự động thực thi
Và nếu bạn sửa code thành vậy:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("B5:AF99")) Is Nothing And Target.Count = 1 Then
    Target.Interior.ColorIndex = (Asc(UCase(Left(Target, 1))) Mod 56)
 End If
End Sub

Có sẽ cho bạn cả 1 "trời" màu sắc luôn