UDF函数 - IfFormat

Question

我正在尝试创建一个检查单元格格式是否与指定输入匹配的函数。理想情况下，我希望用户能够指定“粗体”，“欧元”等。我现在得到的错误是“用户定义的类型未定义”。任何人都可以帮我这个吗？非常感谢你。

Function IfFormat(C As Range, F As Text) As Boolean
    If F = C.NumberFormat Then
        IfFormat = True
        Else: IfFormat = False
    End If
End Function

Answer 1

也许是这样的

if F = "Euro" and C.NumberFormat = (whatever that custom format is) then
  IfFormat = True

Etc.