代码运行结果：

代码截图：

代码文本：

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

欢迎大家来到IT世界,在知识的湖畔探索吧!

注释：

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

VBA编辑神器放送

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

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

VBA密码激活成功教程代码混淆保护加密代码库输入提示

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

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

免责声明：本站所有文章内容,图片，视频等均是来源于用户投稿和互联网及文摘转载整编而成，不代表本站观点，不承担相关法律责任。其著作权各归其原作者或其出版社所有。如发现本站有涉嫌抄袭侵权/违法违规的内容,侵犯到您的权益，请在线联系站长,一经查实,本站将立刻删除。本文来自网络,若有侵权，请联系删除，如若转载，请注明出处：https://itzsg.com/35379.html