代码运行结果：

代码截图：

代码文本：

Public Sub 技巧()
    Dim myRange As Range
    Set myRange = Range("A1")     '指定任意单元格
    If myRange.HasFormula = True Then
        MsgBox "单元格 " & myRange.Address & " 内有计算公式。"
    Else
        MsgBox "没有输入计算公式。"
    End If
    Set myRange = Nothing
End Sub

注释：

此处利用HasFormula属性：如果区域中所有单元格均包含公式，则该属性值为 True；如果所有单元格均不包含公式，则该属性值为 False；其他情况下为 null。 只读 Variant 类型。

VBA编辑神器放送

VBA编程神器 VBA代码助手 可以极大提高编程速度，降低编程门槛欢迎使用

私信回复 代码助手 即可获得

VBA密码破解 代码混淆保护加密 代码库输入提示

本提示数据库可完全自定义!

本人微信公众号 EXCEL880 每天分享Excel实战技术
私信回复 教程 可领取7天免费教程