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 )
thì bạn chọn 1 ô chưa highlight rồi dùng chổi sơn quét đến địa chỉ không cần highlight nữa .
Đúng vậy, kết hợp Conditional Formatting và VBA. Rất hay!bạn xem lại file giup do (4) code bố trí như vậy có được ko
---> chỉ cần đặt (ActiveSheet.Names.Add Name:="curRow", RefersToR1C1:="=1") tại sheet đó + Conditional Formatting từ R2:R23 là đủ mà
Chủ đề Hignlight thì như thày NDU đã nói có cả thúng , nên mỗi người ứng dụng theo cách của mình . Thực ra theo mình code để highlight thì dòng lệnh trong thisworbook thực hịện, nếu không thì chỉ là Conditional Formatting đơn thuần .bạn xem lại file giup do (4) code bố trí như vậy có được ko
---> chỉ cần đặt (ActiveSheet.Names.Add Name:="curRow", RefersToR1C1:="=1") tại sheet đó + Conditional Formatting từ R2:R23 là đủ mà
'- - - -
quái, Excel 2003 muốn chỉnh CF ko phải dễ ---> chẳng biết đã cài CF vào vùng nào nữa
View attachment 117181
View attachment 117182
---> 2013 thì điều chỉnh vị trí cột rất dễ
Dim clls As Range
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not clls Is Nothing Then
clls.Interior.ColorIndex = 0
End If
Set clls = Target
clls.Interior.ColorIndex = 36
End Sub
Mong thầy tiếp tục hoàn thiện addins mày ạ.
Đúng rồi bạn ! có thể kết hợp và kể cả bạn tô mầu . Bạn xem file đính kèm , sau khi highlight mọi thứ lại trả về như cũ .
Đúng là rất tuyệt. Cảm ơn Ngoai Thanh!
