Tô màu biểu đồ cột dựa trên màu ô trong excel

[ketoan113]

Em chào các anh chị,
Em đang tìm cách tô màu biểu đồ cột dựa vào màu ô trong excel.
Em có lấy code trên mạng (link dưới), tuy nhiên đang gặp vấn đề màu trên biểu đồ cột không giống màu trên ô trong excel.
(https://vi.extendoffice.com/documents/excel/4837-excel-color-chart-based-on-cell-color.html)


Em xin anh chị giúp em 2 việc:
1/ chỉnh sao cho màu của cột giống màu trong ô excel.
2/ tạo vòng lặp sao cho code áp dụng cho 3 chart luôn.

Em xin cám ơn các anh chị.

Bài đã được tự động gộp: 17/7/24

Em chào các anh chị,
Em đang tìm cách tô màu biểu đồ cột dựa vào màu ô trong excel.
Em có lấy code trên mạng (link dưới), tuy nhiên đang gặp vấn đề màu trên biểu đồ cột không giống màu trên ô trong excel.
(https://vi.extendoffice.com/documents/excel/4837-excel-color-chart-based-on-cell-color.html)


Em xin anh chị giúp em 2 việc:
1/ chỉnh sao cho màu của cột giống màu trong ô excel.
2/ tạo vòng lặp sao cho code áp dụng cho 3 chart luôn.

Em xin cám ơn các anh chị.

Mục số 2 trong link có hướng dẫn rồi, nên nhờ anh chị mục 1/ thôi

https://vi.extendoffice.com/documents/excel/4837-excel-color-chart-based-on-cell-color.html

Em xin cảm ơn.

 

[CHAOQUAY]

Em chào các anh chị,
Em đang tìm cách tô màu biểu đồ cột dựa vào màu ô trong excel.
Em có lấy code trên mạng (link dưới), tuy nhiên đang gặp vấn đề màu trên biểu đồ cột không giống màu trên ô trong excel.
(https://vi.extendoffice.com/documents/excel/4837-excel-color-chart-based-on-cell-color.html)

View attachment 302414
Em xin anh chị giúp em 2 việc:
1/ chỉnh sao cho màu của cột giống màu trong ô excel.
2/ tạo vòng lặp sao cho code áp dụng cho 3 chart luôn.

Em xin cám ơn các anh chị.

Bài đã được tự động gộp: 17/7/24

Mục số 2 trong link có hướng dẫn rồi, nên nhờ anh chị mục 1/ thôi

https://vi.extendoffice.com/documents/excel/4837-excel-color-chart-based-on-cell-color.html

Em xin cảm ơn.

Tìm dòng trên, thay = dòng dưới xem sao

'.Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
 .Points(J).Format.Fill.ForeColor.RGB = xCell.Interior.Color

 

[ketoan113]

Tìm dòng trên, thay = dòng dưới xem sao

'.Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
 .Points(J).Format.Fill.ForeColor.RGB = xCell.Interior.Color

Em cảm ơn anh nhiều nhé.

 

[ptm0412]

Thử làm ngược lại xem có đơn giản hơn không, khỏi code. Đổi thành "tô màu cell cùng màu với biểu đồ"