如何在Excel中制作支持筛选自动更新的条件着色动态图表？

完全可行，以下是具体实现步骤：

1. 将数据转为结构化表格（实现筛选动态更新） #

• 选中你的姓名和结果数据区域（包含表头）
• 按下快捷键 Ctrl+T，勾选「我的表格有标题」，点击确定
• 此时表格会自动开启筛选功能，后续应用筛选时，关联的图表会自动增减显示的姓名条目

2. 插入基础图表 #

• 选中结构化表格的Name和Result列
• 插入簇状条形图（或柱形图，根据你的视觉偏好选择），图表会自动绑定表格数据，筛选时数据会同步更新

3. 设置条件着色（按Result值区分颜色） #

方法一：手动批量设置（无需VBA） #

• 先在表格中筛选Result=1，此时图表只显示成功的姓名
• 选中图表中所有数据点，设置填充色为绿色
• 取消筛选后，再筛选Result=0，选中对应数据点设置填充色为灰色
• 后续切换筛选条件时，图表会自动保留对应数据点的颜色设置

方法二：VBA自动维护颜色（更高效） #

如果需要每次筛选后自动同步颜色，可通过VBA实现：

1. 按下 Alt+F11 打开VBA编辑器
2. 插入新模块，粘贴以下代码（注意替换工作表和表格/图表名称）：

   Sub ColorChartByResult()
       Dim cht As Chart
       Dim ser As Series
       Dim i As Integer
       Dim ws As Worksheet
       
       Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为你的工作表名
       Set cht = ws.ChartObjects("Chart 1").Chart '替换为你的图表名
       Set ser = cht.SeriesCollection(1)
       
       For i = 1 To ser.Points.Count
           '假设表格名称为Table1，Result为结果列标题
           If ws.ListObjects("Table1").ListColumns("Result").DataBodyRange(i).Value = 1 Then
               ser.Points(i).Format.Fill.ForeColor.RGB = RGB(0, 176, 80) '成功绿色
           Else
               ser.Points(i).Format.Fill.ForeColor.RGB = RGB(191, 191, 191) '失败灰色
           End If
       Next i
   End Sub
   

3. 绑定筛选触发事件：
   • 在VBA编辑器中双击对应的工作表，选择Worksheet的Calculate事件
   • 粘贴以下代码，实现筛选后自动执行着色宏：

     Private Sub Worksheet_Calculate()
         ColorChartByResult
     End Sub
     

关键说明 #

• 结构化表格是实现动态更新的核心，它能让图表自动识别筛选后的数据范围
• VBA方法适合数据量较大或频繁切换筛选条件的场景，无需手动重复设置颜色

内容的提问来源于stack exchange，提问作者virazitch