Các bạn giúp mình code tô màu chữ cho vùng dữ liệu chọn bất kỳ với. Chân thành cảm ơn!

[khoang lang hg86]

Sub tomauchu ()
ActiveCeel. Select
With Selection. Font
.ThemeColor = xlThemeColorDarkl
. TintAndShade = 0
End sub

 

[befaint]

"tô màu chữ cho vùng dữ liệu chọn"

 

[khoang lang hg86]

"tô màu chữ cho vùng dữ liệu chọn"


View attachment 250510

Mình làm được rồi, cảm ơn bạn nhiều, nhưng cho mình hỏi, tại sao khi mình chuyển sang màu trắng thì lại ko được, vẫn chuyển về màu đen

 

[befaint]

màu trắng thì lại ko được,

Mình chép cái màu trắng ca ô được lên đây nhé.

 

[Maika8008]

Mình làm được rồi, cảm ơn bạn nhiều, nhưng cho mình hỏi, tại sao khi mình chuyển sang màu trắng thì lại ko được, vẫn chuyển về màu đen

Thế bạn dùng color_index là con số gì?

 

[khoang lang hg86]

Mình chép cái màu trắng ca ô được lên đây nhé.

Ở sub vidu mình sửa thành "call MarkByColor(Seleciton, xlThemeColorDarkl)". Nếu đang ở chữ màu đỏ, thì chỉ chuyển về được chữ màu đen

Bài đã được tự động gộp: 3/12/20

Ở sub vidu mình sửa thành "call MarkByColor(Seleciton, xlThemeColorDarkl)". Nếu đang ở chữ màu đỏ, thì chỉ chuyển về được chữ màu đen

Ngại quá, cảm ơn bạn nhiều nhiều, mình đã làm được rồi