Em thấy trên diễn đàn có rất nhiều nhưng nó toàn tô màu cho cả dòng và cột thôi. Có cách nào chỉ tô màu 1 ô không ạ?
Chắc bạn hiểu sai ý mình rồi. Mình muốn đổi màu nền cơ chứ không phải màu chữ. Và chỉ đổi màu khi được chọn nếu không được chọn nữa thì ô lại trở về trạng thái ban đầu.
Không biết thế này có đúng ý bạn không nữa ? bạn xem file .
Rất đúng ý em anh ạ! Lại còn tự đổi màu khi điểm yếu nữa. Đúng cái em cần nhưng không biết liệu có làm nặng File nhiều không vì File của em nhiều công thức lắm ạ. Rất cảm ơn anh.
Bạn cư thử so sánh 2 file thì rõ thôi . Chắc không vấn đề gì đâu .
thì mình cũng làm đúng y vậy mà
Bạn ơi sao khi chạy code này thì thao tác copy và paste lại không thực hiện được vậy?bạn down lại file thử,
Mình đã xem ý tưởng của bạn Ngoai Thanh và đã chỉnh lại, bạn test tiếp file giupdo (3) nhé
'- - -
to Ngoai Thanh
mình ko biết điều kiện của bạn cài thế nào nhưng thấy hình như chưa hợp lý, mình kích toàn bộ R2:R23, chỉ có R14 bị fill đỏ. + công thức và code được cài rất nhiều -> phức tạp
Cái của bạn cài có 1 điểm hay là chọn tử cột A-> Q thì vẫn kích hoạt được cột R
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range([r2], [r2000].End(3))) Is Nothing And Target.Count = 1 Then
With Target.FormatConditions(1).Font
.Bold = True
.ColorIndex = Target.Row
End With
End If
End SubHình như code của bạn bị lỗi.tôi viết lại code của bạn NgoaiThanh, file của bạn PhucBugis mình tải xuống bị máy cảnh báo nên ko mở ra..........
chép nó vào sheet 1 nha,nhớ xoá hết code trong "thisworkbook"
Mã:Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range([r2], [r2000].End(3))) Is Nothing And Target.Count = 1 Then With Target.FormatConditions(1).Font .Bold = True .ColorIndex = Target.Row End With End If End Sub
Có thể bạn dùng office 2010 hay 2013 gì đó nên được em dùng office 2003 cứ coppy xong đưa chuột sang ô khác là vùng copy bị mất luôn. File của Ngoai Thanh thì không sao.
Chiều mìmh có việc nên không có nhà, giờ mới vào mạng . Nói chung nguyên tắc code của mình là tại ô được chọn sẽ Highlìht riêng 1 ô đó . Sau đó bạn muốn copy highlight đến ô nào hoặc vùng nào bạn chỉ việc đặt chuột tại ô đã highlight dùng " chổi sơn " quét copy định dạng tới nợi cần highlght . Bạn có thể thí nghiệm hoặc đưa file yêu cầu lên để mọi người giúp .
Mình đã thử và đúng như bạn nói. Nhưng nếu mình muốn bỏ highlight ở cột nào đó thì làm sao hả bạn?
Bạn phát hiện đúng rồi đó ! Mình xin lỗi không hướng dẫn cụ thể . Tại ô hiện tại bạn phải gõ số mã màu ( từ 1 - 56 : trong ví dụ trên mình chọn mã màu nền là 6, các bạn tùy chọn thôi , khi nào được màu mình thích ) .sau đó dùng chổi sơn quét copy định dạng thôi .bạn down lại file thử,
Mình đã xem ý tưởng của bạn Ngoai Thanh và đã chỉnh lại, bạn test tiếp file giupdo (3) nhé
'- - -
to Ngoai Thanh
mình ko biết điều kiện của bạn cài thế nào nhưng thấy hình như chưa hợp lý, mình kích toàn bộ R2:R23, chỉ có R14 bị fill đỏ. + công thức và code được cài rất nhiều -> phức tạp
Cái của bạn cài có 1 điểm hay là chọn tử cột A-> Q thì vẫn kích hoạt được cột R
Bạn làm theo hướng dẫn trên , còn bạn muốn áp dụng cho file khác thì copy hết code ( kể cả trong this worbook )
