Khó mà hiểu ý bạn như thế nào!Mình muốn giá trị bên sheet 1 bị tô màu thì giá trị bên sheet 2 khi tìm kiếm về cũng có màu để mình dễ phân biệt trong công việc. Các bạn giúp mình với nhé. Mình có gửi kèm file đính kèm (file này ví dụ thôi ). Cảm ơn các bạn nhé!!
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Columns("B:B")) Is Nothing And Target.Count = 1 Then
Dim Rng As Range, sRng As Range
Set Rng = Sheet2.Range("A2:A" & Sheet2.[A65500].End(xlUp).Row)
Set sRng = Rng.Find(what:=Target.Offset(, -1), LookIn:=xlFormulas, _
lookat:=xlWhole).Offset(, 1)
If Not sRng Is Nothing Then
sRng.Interior.ColorIndex = 34 + (sRng.Row Mod 6)
Target.Font.ColorIndex = 5
end If
Set sRng = Nothing
End If
End Sub
Bài toán của bạn nếu làm bằng công thức thì tạm thời chỉ có thể dùng cột phụ (nhưng cũng chưa hoàn hảo lắm)Mình muốn giá trị bên sheet 1 bị tô màu thì giá trị bên sheet 2 khi tìm kiếm về cũng có màu để mình dễ phân biệt trong công việc. Các bạn giúp mình với nhé. Mình có gửi kèm file đính kèm (file này ví dụ thôi ). Cảm ơn các bạn nhé!!
Chọn vào cell có màu... vào menu Format\Conditional Formating sẽ thấy...Bạn ơi,cho mình hỏi bạn chuyển bôi màu từ sheet này sang sheet kia thế nào vậy. Bạn bảo mình cách chuyển màu được không?Cảm ơn bạn.
