有没有可能使用VBA宏始终检查您刚刚编辑的每个单元格，然后如果它是硬编码的或公式，则将其着色为特定的颜色？

Sub ColorCellsBasedOnContent()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要检查的工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 设置要检查的范围（例如整个工作表）
    Set rng = ws.UsedRange
    
    ' 遍历每个单元格
    For Each cell In rng
        If IsHardcoded(cell) Then
            cell.Interior.Color = RGB(255, 0, 0) ' 红色表示硬编码值
        ElseIf cell.HasFormula Then
            cell.Interior.Color = RGB(0, 255, 0) ' 绿色表示公式
        Else
            cell.Interior.Color = xlNone ' 清除颜色
        End If
    Next cell
End Sub

Function IsHardcoded(cell As Range) As Boolean
    ' 检查单元格是否为硬编码值（非公式且不为空）
    IsHardcoded = Not cell.HasFormula And Not IsEmpty(cell.Value)
End Function