Excel中实现点击字段图表自动变色有三种方法：一、切片器+条件格式，通过辅助列和公式动态标记选中项并设置颜色；二、VBA事件监听透视表更新，实时修改图表系列颜色；三、动态命名区域绑定图表数据源，配合条件格式自动着色。
如果您在Excel中创建了数据透视表，并希望实现点击某个字段时图表自动变色以突出显示对应数据，这通常需要结合条件格式、切片器或VBA事件来完成。以下是实现Excel点击变色的交互图表与数据透视表联动的多种方法：
一、使用切片器+条件格式实现点击变色
切片器可作为可视化筛选控件，与数据透视表实时联动；配合辅助列和条件格式，可使图表中的对应系列高亮变色。该方法无需编程，兼容Excel 2013及以上版本。
1、选中数据透视表任意单元格，点击【分析】→【插入切片器】，勾选用于交互的字段（如“产品名称”）。
2、在源数据旁新增一列“是否选中”，输入公式：=IF(ISFILTERED(数据透视表字段),IF([@产品名称]=GETPIVOTDATA("产品名称",数据透视表单元格,"产品名称"),TRUE,FALSE),FALSE)。
3、为图表数据源添加该“是否选中”列作为辅助Y值，并设置柱形图/条形图的填充色为条件格式：当“是否选中”为TRUE时，填充RGB(255,102,0)；否则填充灰色。
4、调整图表图例与轴标签，确保切片器点击后，“是否选中”列动态更新，图表对应项立即变色。
二、利用VBA事件触发图表SeriesColor变更
VBA可监听切片器或透视表字段的更改事件，在运行时直接修改图表中对应数据系列的颜色。该方法响应精准，支持自定义色彩逻辑与多级联动。
1、按Alt+F11打开VBA编辑器，双击对应工作表对象（如Sheet1），粘贴以下代码：
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim cht As Chart, srs As Series, i As Long
Set cht = ActiveSheet.ChartObjects("Chart 1").Chart
For i = 1 To cht.SeriesCollection.Count
If cht.SeriesCollection(i).Name = Target.PivotFields("产品名称").CurrentPage Then
cht.SeriesCollection(i).Format.Fill.ForeColor.RGB = RGB(0, 176, 80)
Else
cht.SeriesCollection(i).Format.Fill.ForeColor.RGB = RGB(211, 211, 211)
End If
Next i
End Sub
2、确保图表名称为“Chart 1”，且透视表字段“产品名称”已启用页字段筛选。
3、保存文件为启用宏的.xlsx格式（.xlsm），启用内容后，每次切换透视表页字段，图表对应系列将实时刷新为绿色高亮，其余保持灰阶。
三、基于动态命名区域+图表源数据绑定
通过定义动态命名区域指向当前筛选下的透视表结果，再将图表数据源绑定至该名称，配合条件格式规则引用该区域，实现点击即变色的效果。此法避免VBA，适合企业级受控环境。
1、在【公式】→【名称管理器】中新建名称“ActiveProductData”，引用位置设为：=OFFSET(透视表数据起始单元格,1,MATCH(透视表页字段当前值,透视表首行,0)-1,COUNTA(透视表数据列)-1,1)。
2、插入簇状柱形图，右键图表→【选择数据】→编辑图例项，将“系列值”设为“=Sheet1!ActiveProductData”。
3、选中图表所有数据系列，应用条件格式：仅对等于“=ActiveProductData”的值应用渐变蓝填充，其余保留默认浅灰描边。
4、点击切片器任一选项，命名区域自动重算，图表仅显示当前筛选项，且其柱体因条件格式匹配而自动着色。
