Làm thế nào để tô màu biểu đồ dựa trên màu ô trong Excel?

Thông thường, khi bạn tạo biểu đồ, màu của thanh cột là màu mặc định. Nếu bạn cần định dạng màu tô trên mỗi thanh dựa trên màu ô như ảnh chụp màn hình sau đây, bạn có thể giải quyết nó như thế nào trong Excel?

Tô màu biểu đồ với một hoặc nhiều chuỗi dữ liệu dựa trên màu ô với mã VBA

Tô màu biểu đồ với một hoặc nhiều chuỗi dữ liệu dựa trên màu ô với một tính năng tuyệt vời

---

Tô màu biểu đồ với một hoặc nhiều chuỗi dữ liệu dựa trên màu ô với mã VBA

Tô màu biểu đồ bằng một chuỗi dữ liệu dựa trên màu ô

Với mã VBA sau, bạn có thể nhanh chóng thay đổi màu của biểu đồ chứa một chuỗi dữ liệu dựa trên màu giá trị ô ban đầu, vui lòng thực hiện như sau:

1. Đầu tiên, tạo biểu đồ thanh hoặc cột như ảnh chụp màn hình sau (Chọn dữ liệu và nhấp vào Chèn > Chèn biểu đồ cột hoặc thanh):

2. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

3. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Thanh biểu đồ màu với một chuỗi dữ liệu dựa trên màu ô:

Sub ColorChartColumnsbyCellColor() 'Updateby Extendoffice Dim xChart As Chart Dim I As Long, xRows As Long Dim xRg As Range, xCell As Range On Error Resume Next Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart If xChart Is Nothing Then Exit Sub With xChart.SeriesCollection(1) Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1)) xRows = xRg.Rows.Count Set xRg = xRg(1) For I = 1 To xRows .Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex) Next End With End Sub

Chú thích: Trong đoạn mã trên, Biểu đồ 1 là tên biểu đồ mà bạn muốn sử dụng, vui lòng thay đổi nó thành tên của riêng bạn.

4. Sau khi dán mã trên, vui lòng nhấn F5 để chạy mã này và màu của thanh biểu đồ đã được thay đổi dựa trên màu ô ban đầu, xem ảnh chụp màn hình:

---

Tô màu biểu đồ với nhiều chuỗi dữ liệu dựa trên màu ô

Nếu biểu đồ của bạn có nhiều chuỗi dữ liệu, vui lòng áp dụng mã VBA sau:

1. Vui lòng tạo biểu đồ thanh hoặc cột chứa nhiều chuỗi dữ liệu như hình minh họa sau:

2. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

3. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào cửa sổ Mô-đun.

Mã VBA: Thanh biểu đồ màu với nhiều chuỗi dữ liệu dựa trên màu ô:

Sub CellColorsToChart() 'Updateby Extendoffice Dim xChart As Chart Dim I As Long, J As Long Dim xRowsOrCols As Long, xSCount As Long Dim xRg As Range, xCell As Range On Error Resume Next Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart If xChart Is Nothing Then Exit Sub xSCount = xChart.SeriesCollection.Count For I = 1 To xSCount J = 1 With xChart.SeriesCollection(I) Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1)) If xSCount > 4 Then xRowsOrCols = xRg.Columns.Count Else xRowsOrCols = xRg.Rows.Count End If For Each xCell In xRg .Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex) .Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex) J = J + 1 Next End With Next End Sub

4. Sau đó nhấn F5 để chạy mã này, các thanh biểu đồ được tô bằng màu của các ô gốc cùng một lúc, xem ảnh chụp màn hình:

Ghi chú:

1. Trong đoạn mã trên, Biểu đồ 1 là tên biểu đồ mà bạn muốn sử dụng, vui lòng thay đổi nó thành tên của riêng bạn.

2. Mã này cũng có thể được áp dụng cho biểu đồ đường.

---

Tô màu biểu đồ với một hoặc nhiều chuỗi dữ liệu dựa trên màu ô với một tính năng tuyệt vời

Bằng cách sử dụng các mã trên, màu của biểu đồ không phải lúc nào cũng khớp với màu của ô, để giải quyết vấn đề này, ở đây, tôi sẽ giới thiệu một công cụ hữu ích - Thay đổi màu biểu đồ theo màu ô of Kutools cho Excel, với tính năng tiện dụng này, bạn có thể tô màu biểu đồ dựa trên màu ô một cách nhanh chóng và dễ dàng.

Sau khi cài đặt Kutools cho Excel, hãy làm như sau:

1. Trước tiên, vui lòng chèn biểu đồ mà bạn muốn sử dụng, sau đó chọn biểu đồ, sau đó nhấp vào Kutools > Bảng xếp hạng > Công cụ biểu đồ > Thay đổi màu biểu đồ theo màu ô, xem ảnh chụp màn hình:

2. Và sau đó, một hộp nhắc xuất hiện, vui lòng nhấp vào OK .

3. Bây giờ, biểu đồ bạn chọn đã được tô màu dựa trên các màu ô như ảnh chụp màn hình dưới đây:

Tô màu biểu đồ bằng một chuỗi dữ liệu dựa trên màu ô

Tô màu biểu đồ với nhiều chuỗi dữ liệu dựa trên màu ô

Tải xuống và dùng thử miễn phí Kutools cho Excel ngay!

---

Các bài viết về biểu đồ tương đối khác:

---