Hỏi về liên kết màu trong excel (1 người xem)

[nthxe]

Dear các anh chị em,
Tôi có 2 sheet, sheet thứ nhất chứ mã hàng 6 số, sheet thứ 2 chứ mã hàng 4 số.

Mã hàng 4 số là 4 số đầu tiên của mã 6 số bên sheet 1.

Có yêu cầu này nhờ các anh chị em chỉ giúp:


Khi định dạng màu sắc cho mã hàng 4 số ở sheet 2 (font color hoặc fill color) thì mã hàng 6 số tương ứng bên sheet 1 cũng thay đổi màu sắc theo. (file đính kèm)

Cảm ơn mọi người

N

 

[concogia]

Dear các anh chị em,
Tôi có 2 sheet, sheet thứ nhất chứ mã hàng 6 số, sheet thứ 2 chứ mã hàng 4 số.

Mã hàng 4 số là 4 số đầu tiên của mã 6 số bên sheet 1.

Có yêu cầu này nhờ các anh chị em chỉ giúp:


Khi định dạng màu sắc cho mã hàng 4 số ở sheet 2 (font color hoặc fill color) thì mã hàng 6 số tương ứng bên sheet 1 cũng thay đổi màu sắc theo. (file đính kèm)

Cảm ơn mọi người

N

Bạn thử cái này, định dạng màu ở sheet2, chọn sheet1 xem kết quả

Private Sub Worksheet_Activate()
Dim Ws, VungA, VungB, I, J, Mau
    Set Ws = Sheets("sheet2")
    Set VungA = Ws.Range(Ws.[a2], Ws.[a1000].End(xlUp))
    Set VungB = Range([a2], [a1000].End(xlUp))
    VungB.Interior.ColorIndex = xlNone
        For I = 1 To VungA.Rows.Count
            Mau = VungA(I).Interior.ColorIndex
                If Mau > 0 Then
                    For J = 1 To VungB.Rows.Count
                        If Left(VungB(J), 4) = VungA(I) Then
                            VungB(J).Interior.ColorIndex = Mau
                        End If
                    Next J
                End If
        Next I
End Sub