Excel公式中为$BI$1设置字体颜色出现#Field错误，求解决方案

你原公式里的$BI$1.Font.Color = vbRed是VBA语法，工作表函数不能直接修改单元格格式，只能返回文本或数值，所以会触发#FIELD!错误。下面提供两种可行的解决方法：

方法一：条件格式实现高亮（无需VBA，推荐） #

这是最简便的方案，通过条件格式单独控制字体颜色，公式只负责返回值：

1. 选中公式所在的单元格（比如假设是BM2）
2. 点击「开始」→「条件格式」→「新建规则」→选择「使用公式确定要设置格式的单元格」
3. 在公式输入框中填入触发红色字体的条件：

   =AND(BI2<>"no",COUNTIFS(BI2:BL2,"yes")<>4,COUNTIFS(BK2:BL2,"no")=0,BJ2="no")
   

4. 点击「格式」→「字体」→选择红色→确定保存规则
5. 把原公式修改为仅返回值的版本：

   =IF(BI2="no","no",IF(COUNTIFS(BI2:BL2,"yes")=4,$BI$1,IF(COUNTIFS(BK2:BL2,"no")>0,"no",IF(BJ2="no",$BI$1,"NA"))))
   

当满足条件时，单元格会自动显示$BI$1的值并将字体设为红色。

方法二：VBA宏实现自动格式调整 #

如果需要单元格内容变化时自动触发格式修改，可使用工作表事件：

1. 右键目标工作表标签→选择「查看代码」
2. 在代码窗口粘贴以下代码（注意根据实际单元格位置调整）：

   Private Sub Worksheet_Change(ByVal Target As Range)
       Dim targetCell As Range
       Set targetCell = Me.Range("BM2") ' 公式所在单元格，按需修改
       
       ' 监控关键单元格变化（BI2-BL2、BJ2）
       If Not Intersect(Target, Me.Range("BI2:BL2,BJ2")) Is Nothing Then
           ' 写入公式
           targetCell.Formula = "=IF(BI2=""no"",""no"",IF(COUNTIFS(BI2:BL2,""yes"")=4,$BI$1,IF(COUNTIFS(BK2:BL2,""no"")>0,""no"",IF(BJ2=""no"",$BI$1,""NA""))))"
           
           ' 判断是否需要设置红色字体
           Dim highlightCondition As Boolean
           highlightCondition = (targetCell.Value = Me.Range("BI1").Value) And _
                               (Me.Range("BJ2").Value = "no") And _
                               (Me.Range("BI2").Value <> "no") And _
                               (Application.WorksheetFunction.CountIfs(Me.Range("BI2:BL2"), "yes") <> 4) And _
                               (Application.WorksheetFunction.CountIfs(Me.Range("BK2:BL2"), "no") = 0)
           
           targetCell.Font.Color = IIf(highlightCondition, vbRed, vbBlack)
       End If
   End Sub
   

3. 保存文件为「Excel启用宏的工作簿（.xlsm）」格式，后续修改相关单元格时会自动调整字体颜色。

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