Excel技术问询：如何基于单元格填充颜色创建赋值公式？

问题原因分析 #

你之前用GET.CELL失败，核心原因是：

• 名称管理器里的引用是固定单元格Sheet1!F7，并非相对引用，下拉填充时无法自动对应每行的F/G/H列；
• GET.CELL属于旧版XLM函数，单元格颜色变化后不会自动触发公式重算，必须手动刷新；
• 宏未正确绑定触发事件，导致颜色变更后值无法实时更新。

可行解决方案 #

方案1：VBA自定义函数+工作表公式 #

操作简单，适合初学者：

1. 按Alt+F11打开VBA编辑器，右键点击当前工作簿→插入→模块，粘贴以下代码：

Function CellColorIndex(rng As Range) As Integer
    ' 返回单个单元格的填充颜色索引值
    If rng.Cells.Count > 1 Then Exit Function
    CellColorIndex = rng.Interior.ColorIndex
End Function

2. 返回工作表，在J2单元格（假设数据从第2行开始）输入公式：

=IF(CellColorIndex(F2)=6,0,IF(CellColorIndex(G2)=6,1,IF(CellColorIndex(H2)=6,2,"")))

3. 下拉填充公式到所有需要的行。
4. 若颜色变化后J列未更新，按F9手动触发重算即可。

方案2：添加工作表事件实现自动更新 #

若希望修改颜色后J列自动刷新，无需手动操作：

1. 在VBA编辑器中，双击左侧面板的目标工作表（比如Sheet1），粘贴以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 切换单元格时自动重算
    Me.Calculate
End Sub

2. 保存工作簿为.xlsm格式（必须选启用宏的格式，否则代码会丢失）。

关键注意事项 #

• 黄色的ColorIndex可能不是6：选中一个黄色填充的单元格，打开VBA立即窗口（Ctrl+G），输入?ActiveCell.Interior.ColorIndex回车，得到的数值就是你需要替换公式里的6。
• 所有操作完成后，必须保存为.xlsm格式，否则宏和自定义函数会失效。

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