Excel VBA添加含定义名称与变量的公式失败，求代码修正

原代码存在几个核心问题：

• 公式单元格引用拼接错误："E""&i>0"的写法无法生成正确的E{i}单元格引用，导致公式无法识别目标单元格。
• 定义名称GreenCell是固定单元格绝对引用（指向B395），无法适配循环的每一行，所有行都会判断B395的背景色而非当前行对应单元格。
• 宏表函数GET.CELL本身不支持自动刷新，这也是手动输入公式后需按F2确认才能计算的根本原因。

方案一：修正公式拼接逻辑+调整定义名称 #

1. 先修改GreenCell为动态相对引用：

打开Excel「公式」选项卡→「定义名称」，编辑GreenCell的引用位置为：
=GET.CELL(38,INDIRECT("Data!B"&ROW()))
该定义会根据公式所在行，自动引用对应行的B列单元格。

2. 修正后的VBA代码：

Public Sub Refresh()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long
    
    Set ws = ActiveWorkbook.Sheets("Data")
    lastRow = ws.Range("E" & ws.Rows.Count).End(xlUp).Row
    
    ' 强制设置自动计算，触发宏表函数刷新
    Application.Calculation = xlCalculationAutomatic
    
    For i = lastRow To 1 Step -1
        ' 正确拼接公式，引用当前行E列单元格
        ws.Cells(i, "D").Formula = "=IF(AND(E" & i & ">0;GreenCell=43);""DONE"";"""")"
    Next i
    
    ' 强制全工作簿计算
    Application.CalculateFull
End Sub

方案二：直接用VBA判断背景色（更稳定，无需依赖宏表函数） #

跳过公式和宏表函数，直接通过VBA读取单元格属性并赋值，彻底解决刷新问题：

Public Sub Refresh()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long
    
    Set ws = ActiveWorkbook.Sheets("Data")
    lastRow = ws.Range("E" & ws.Rows.Count).End(xlUp).Row
    
    For i = lastRow To 1 Step -1
        ' 直接判断E列非空、B列背景色为绿色（颜色索引43）
        If ws.Cells(i, "E").Value > 0 And ws.Cells(i, "B").Interior.ColorIndex = 43 Then
            ws.Cells(i, "D").Value = "DONE"
        Else
            ws.Cells(i, "D").Value = ""
        End If
    Next i
End Sub

• 颜色索引43对应Excel标准绿色，若使用自定义绿色，需替换为目标单元格的Interior.ColorIndex值（可通过录制宏获取）。
• 方案二无需定义名称，也不存在公式刷新问题，是更可靠的解决方案。

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