我正在尝试根据条件格式对范围求和 - 在本例中为粗体

问：

我有VBA代码，如果单元格实际上是粗体，则可以工作，但如果通过条件格式加粗，则不起作用。如果单元格实际上为粗体，则此代码求和：

Function SumIfNotBold(MyRange As Range) As Double
    Dim cell As Range
    For Each cell In MyRange
        If cell.Font.Bold = False Then
            SumIfNotBold = SumIfNotBold + cell
        End If
    Next cell
End Function

是否可以对其进行修改以处理有条件格式化的单元格。

我试图找到查找条件格式粗体的 vb 代码，并且仅在范围不是粗体时才求和。