Shari gửi câu hỏi về Excel của tuần này.
Tôi không thể tìm thấy câu trả lời cho câu hỏi này từ bộ phận CNTT của chúng tôi, các tệp trợ giúp Excel hoặc trợ giúp trực tuyến của Microsoft Excel và hy vọng bạn có thể giúp đỡ.
Tôi đang phân tích dữ liệu Excel trong khoảng thời gian hai mươi năm và cần lập biểu đồ hình tròn trong Excel cho mỗi năm. Biểu đồ Excel dựa trên bảng tổng hợp (hoặc Biểu đồ xoay vòng trong Excel 2000), với năm là trường trang. Vấn đề là không phải tất cả các năm đều chứa các mục giống nhau, vì vậy mỗi biểu đồ Excel sẽ sử dụng một màu khác nhau cho cùng một lát bánh.
Chúng tôi đang cố gắng so sánh dữ liệu trong 20 năm này, vì vậy, việc có các màu giống nhau cho mỗi biểu đồ là điều cần thiết. Cuối cùng, tôi phải thay đổi từng lát trên nhiều biểu đồ để phù hợp với biểu đồ đầu tiên, đôi khi nhiều lần vì màu sắc có thể thay đổi nếu dữ liệu thay đổi và tôi phải tính toán lại bảng tổng hợp mà biểu đồ dựa trên.
MrExcel đã thử biểu đồ xoay lần đầu tiên. Biểu đồ tổng hợp là một cách rất hiệu quả để tạo biểu đồ cho một số kịch bản dữ liệu khác nhau, nhưng chúng có một lỗ hổng khó chịu này. Tôi thiết lập bảng tổng hợp với năm lớp là hàng, năm là trang. Tôi yêu cầu năm lớp sắp xếp dựa trên điểm số giảm dần. Khi bạn thay đổi biểu đồ xoay từ năm này sang năm khác, màu sắc của các lát bánh liên quan đến Sinh viên năm nhất sẽ thay đổi. Có năm có thành viên từ cả 4 lớp, năm khác có thành viên chỉ từ 3 lớp.
Excel áp dụng thứ tự màu mặc định cho mỗi lát cắt, vì vậy các màu tương ứng sẽ thay đổi theo từng năm. Tôi có thể thấy người quản lý của mình lắc đầu ngán ngẩm khi tôi đưa cho anh ấy những biểu đồ này.
Có một cách với macro cơ bản trực quan để giải quyết vấn đề này. Nếu bạn thiết lập các cơ sở dữ liệu để hiển thị tên nhãn, thì bạn có thể tìm thấy tên của mỗi lát cắt từ bên trong cơ bản trực quan. Khi bạn đã có tên, bạn có thể tô màu lại màu của lát cắt đó dựa trên giá trị của tên.
Excel đã sử dụng các màu trên cho năm 1990, nhưng vào năm 1991, các màu thay đổi khi số lượng mục và trình tự của chúng thay đổi:
Macro sau được mã hóa cứng cho ví dụ cụ thể của Shari, nơi cô ấy có các giá trị có thể có của Sinh viên năm nhất, Năm hai, Thiếu niên và Cao cấp. Bằng cách thêm các câu lệnh Case bổ sung với các chỉ số màu khác nhau, bạn có thể tùy chỉnh điều này để xử lý tình huống cụ thể của mình.
Sub ColorPieSlices() ' Copyright 1999.com ' This macro will re-color the pie slices in a chart ' So that slices for a specific category are similarly colored ' Select the chart before calling the macro ' ' Find the number of pie slices in this chart NumPoints = ActiveChart.SeriesCollection(1).Points.Count ' Loop through each pie slice For x = 1 To NumPoints ' Save the label currently attached to this slice If ActiveChart.SeriesCollection(1). _ Points(x).HasDataLabel = True Then SavePtLabel = ActiveChart.SeriesCollection(1) _ .Points(x).DataLabel.Text Else SavePtLabel = "" End If ' Assign a new data label of just the point name ActiveChart.SeriesCollection(1).Points(x).ApplyDataLabels Type:= _ xlDataLabelsShowLabel, AutoText:=True ThisPt = ActiveChart.SeriesCollection(1).Points(x).DataLabel.Text ' Based on the label of this slice, set the color Select Case ThisPt Case "Freshman" ActiveChart.SeriesCollection(1). _ Points(x).Interior.ColorIndex = 3 Case "Sophomore" ActiveChart.SeriesCollection(1). _ Points(x).Interior.ColorIndex = 4 Case "Junior" ActiveChart.SeriesCollection(1). _ Points(x).Interior.ColorIndex = 5 Case "Senior" ActiveChart.SeriesCollection(1). _ Points(x).Interior.ColorIndex = 6 Case Else ' Add code here to handle an unexpected label End Select ' Return the label to it's original pre-macro state ActiveChart.SeriesCollection(1). _ Points(x).DataLabel.Text = SavePtLabel Next x End SubKhởi động trình soạn thảo VB với alt-F11. Do Chèn - Mô-đun. Thủ tục Chèn. Nhập ColorPieSlices làm Tên và nhấp vào OK. Nhập macro trên.
Để làm cho cuộc sống dễ dàng hơn, hãy gán macro cho một phím tắt trong Excel. Trong Excel, hãy thực hiện Công cụ - Macro. Đánh dấu ColorPieSlices và nhấp vào nút tùy chọn. Trong hộp phím tắt, hãy nhập "d". Nhấp vào OK và đóng hộp thoại Macro bằng cách nhấp vào "x" ở góc trên bên phải. Bây giờ, sau khi bạn thay đổi Biểu đồ Pivot, bạn có thể nhấn Ctrl + D để tô màu lại các lát bánh thành bộ màu ưa thích của bạn.
