如何根据C4-C13的颜色设置A4单元格：全红时设为黑色

普通Excel工作表函数（比如你尝试的IF）无法直接读取单元格的填充颜色属性，ColorIndex是VBA专属属性，不能直接在单元格公式中使用，所以你之前的公式无法生效。以下是两种可行方案：

方案一：用条件格式实现（无需编程） #

1. 选中A4单元格
2. 点击「开始」选项卡 → 「条件格式」 → 「新建规则」
3. 选择「使用公式确定要设置格式的单元格」，在公式框中输入：

   =AND(GET.CELL(63,C4)=3,GET.CELL(63,C5)=3,GET.CELL(63,C6)=3,GET.CELL(63,C7)=3,GET.CELL(63,C8)=3,GET.CELL(63,C9)=3,GET.CELL(63,C10)=3,GET.CELL(63,C11)=3,GET.CELL(63,C12)=3,GET.CELL(63,C13)=3)
   

   （注：GET.CELL(63,单元格)用于获取单元格填充颜色索引，3对应红色）
4. 点击「格式」 → 「字体」 → 颜色选择黑色，依次确定完成设置

方案二：用VBA宏实现（支持自动检测） #

如果需要自动检测C4:C13的颜色变化并调整A4，可使用以下代码：

Sub CheckAllRedCells()
    Dim targetRange As Range
    Dim cell As Range
    Dim isAllRed As Boolean
    
    Set targetRange = ThisWorkbook.ActiveSheet.Range("C4:C13")
    isAllRed = True
    
    '遍历检查每个单元格的填充颜色
    For Each cell In targetRange
        If cell.Interior.ColorIndex <> 3 Then
            isAllRed = False
            Exit For
        End If
    Next cell
    
    '设置A4的字体颜色
    With ThisWorkbook.ActiveSheet.Range("A4")
        .Font.ColorIndex = IIf(isAllRed, 1, xlAutomatic)
        '1对应黑色，xlAutomatic恢复默认字体颜色
    End With
End Sub

使用步骤： #

1. 按Alt+F11打开VBA编辑器
2. 右键工作簿 → 插入 → 模块，粘贴上述代码
3. 可添加表单按钮绑定该宏，或在工作表模块中加入Worksheet_SelectionChange事件实现自动触发

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