testingNULL

如果我运行：

Sub dural() MsgBox ActiveSheet.Cells.HasFormula End Sub 

如果工作表中所有占用的单元格都有公式，则它将显示为True，如果工作表中没有任何占用的单元格有公式，则将显示False 。

但是，如果一些占用的单元格有公式， 文档

说财产将返回Null

我如何制作一个MsgBox来显示这种情况？

Answer 1

您可以使用IsNull函数

你可以使用一个函数而不是一个Sub，所以你可以testing你从哪里调用它。

 Function dural() As Variant dural = ActiveSheet.Cells.HasFormula If IsNull(dural) = True Then MsgBox "It's null" End If End Function 

或者把它作为一个子

 Sub dural() Dim test as Variant test= ActiveSheet.Cells.HasFormula If IsNull(test) = True Then MsgBox "It's null" End If End Sub