Link màu của vùng excel sang 1 vùng khác

[hvthinh77]

Chào anh chị,

Em cần định dạng một vùng bảng tính excel tương tự như màu của 1 vùng bảng tính có sẵn. Cụ thể là màu của vùng N47:EL85 sẽ được tô màu theo màu vùng N4:EL42, việc tô màu này sẽ theo vị trí tương đối nghĩa là:
+ Ô N47 sẽ thay đổi màu theo ô O4
+ Ô O47 sẽ thay đổi màu theo màu ô O4

Em gửi bảng tính kèm theo để mọi người dễ hình dung ạ.
Thật ra em có hình kèm theo là em đã có code VBA để link màu của ô C1 theo màu của ô A1 rồi, nhưng chỉ làm được cho 1 ô thôi. Bảng tính em cần cả vùng.

Nhờ mọi người hỗ trợ ạ

 

[Maika8008]

Chào anh chị,

Em cần định dạng một vùng bảng tính excel tương tự như màu của 1 vùng bảng tính có sẵn. Cụ thể là màu của vùng N47:EL85 sẽ được tô màu theo màu vùng N4:EL42, việc tô màu này sẽ theo vị trí tương đối nghĩa là:
+ Ô N47 sẽ thay đổi màu theo ô O4
+ Ô O47 sẽ thay đổi màu theo màu ô O4

Em gửi bảng tính kèm theo để mọi người dễ hình dung ạ.
Thật ra em có hình kèm theo là em đã có code VBA để link màu của ô C1 theo màu của ô A1 rồi, nhưng chỉ làm được cho 1 ô thôi. Bảng tính em cần cả vùng.

Nhờ mọi người hỗ trợ ạ

Làm thế này được không bạn? Chép toàn bộ format.

Sub CopyFormats()
    Sheets("KPI ").Range("N4:EL42").Copy
    Range("N47").PasteSpecial xlPasteFormats
End Sub

Mà bạn đặt tên sheet cũng hiểm, chữ KPI có thêm dấu cách đàng sau.