vba - 测试 NULL

Question

如果我运行:

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

如果工作表中所有占用的单元格有公式，则显示True；如果没有<，则显示False/strong>工作表中占用的单元格有公式。

但是，如果某些占用的单元格具有公式，则documentation

表示该属性将返回Null

如何制作 MsgBox 来显示此案例？

Answer 1

您可以使用 IsNull 函数

您可以使用函数而不是 Sub，这样您就可以测试调用它的位置。

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