Thử cách củ chuối này xem sao. Code chỉ tô trên, dưới , trái, phải 1 ô.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").CurrentRegion.Interior.ColorIndex = 0
If Target.Row > 1 Then
Range(Target.Offset(1, 0), Target.Offset(-1, 0)).Interior.Color = vbRed
Else
Range(Target.Offset(1, 0), Target).Interior.Color = vbRed
End If
If Target.Column > 1 Then
Range(Target.Offset(0, -1), Target.Offset(0, 1)).Interior.Color = vbYellow
Else
Range(Target, Target.Offset(0, 1)).Interior.Color = vbYellow
End If
End Sub
www.giaiphapexcel.com
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lr&, lc&
lr = Cells(Rows.Count, "A").End(xlUp).Row
lc = Cells(6, Columns.Count).End(xlToLeft).Column
If Intersect(Target, Range(Cells(6, 1), Cells(lr, lc))) Is Nothing Then Exit Sub
Range(Cells(6, 1), Cells(lr, lc)).Interior.Color = xlNone
Union(Range(Cells(Target.Row, "A"), Cells(Target.Row, lc)), Range(Cells(6, Target.Column), Cells(lr, Target.Column))).Interior.Color = vbCyan
End SubDạ, vâng. Để chút em thử xem sao. Em cám ơn anh nhiều.
Code em mới thử, nhưng khi di chuyển sang ô khác thì ô trước đó vẫn còn tô màu mà không mất (ví dụ em di chuyển chuột đến D5, và em qua ô khác ô B7 thì ô D5 vẫn còn màu mà không mất).
Anh cho em hỏi, em coppy đoạn code rồi dán vô mà không thấy tô màu. Em không biết em làm sai chỗ nào, mong anh hướng dẫn thêm xíu.
Đặt ở trong sheet chứ không đặt trong module (Right click sheet name, sau đó chọn view code, dán vô)
Bạn copy code vào đâu? Hãy copy nó vào Modul Sheeet cần tô màu.
Bác hay quá. Liệu bác có thể chia sẻ code được không. Những cái em nói ở trên là những cái em sưu tầm được và nó đều có điểm chung như vậy
dạ, em coppy dán vô sheet, mà em không chuyển đổi đuôi xlsb, giờ nhìn file của anh thì thấy di chuyển qua ô khác thì ô cũ mất màu.
video này có code gì không bác?
nếu muốn giống Video trên Thử thay code này vào xem sao.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1").CurrentRegion.Interior.ColorIndex = 0
Range(Cells(1, Target.Column), Cells(Target.Row, Target.Column)).Interior.Color = vbYellow
Range(Cells(Target.Row, 1), Cells(Target.Row, Target.Column)).Interior.Color = vbYellow
End Sub
Cảm ơn anh đã xem bài. Ở bài #2 tôi đã viết " Tôi còn nhớ trước đây có 1 anh nào (SA-DQ, hay Hai lua Mien Tay...) đã có 1 code tô màu hàng và cột chứa con chỏ hay lắm (tự đổi sang màu khác khi thay đổi vị trí con chỏ)... nhưng tìm mãi mà không tìm thấy..." nên đành mới viết thế mà cũng xác định là bản thân file gốc không có tô màu, mà có tô màu mà dùng CF thì cũng không làm mất màu của ô đã CF.
Bài #11 là đoạn video của Anh HuwuThang chú có code đâu.
Không có code nên anh befaint mới nói chờ đó bác. Cái trả lại màu cũ thì cũng không quá khó , nhưng khó ở cái chỗ undo ấy bác
