代码或者函数都可以,代码的话希望能附上代码谢谢。
应该是B单元格判断A单元格字体是否为红色,为红色则B单元格数值为B单元格上方单元格的数值+1
因为自己不能调用自己,所以必须另一列。比如B1=2,这时候B1你又设置了公式那么B1的值就会是公式,而不是你原来的值。
代码如下:
Function 颜色(URange As Range)
If CStr(URange.Font.Color) = "255" Then
If URange.Row > 1 Then
颜色 = URange.Parent.Cells(URange.Row - 1, URange.Column + 1).Value + 1
Else
颜色 = ""
End If
Else
颜色 = URange.Parent.Cells(URange.Row, URange.Column + 1).Value
End If
End Function
效果: