[分享]用VBA判断单元格是否有公式方法

ljsandy

急需，在HOME里搜寻未果。此帖我在其他网站上找到，拿来分享。

两种方法：
1。利用HasFormula属性，可以判断单元格内是否有公式。

2。利用计算公式前面都有等号“=”这一性质来判断。





sub pd1()

dim mrg as range

set mrg = range("A1")    '指定任意单元格

if mrg.HasFormula =True Then

      MsgBox "单元格"& Mrg.Address & " 内有计算公式"

Else

     MsgBox "单元格内没有计算公式"

end if

end sub



--------------------------------------------------------------------------------


sub pd2()

dim mrg as range

set mrg = range("A1")    '指定任意单元格

if Left(mrg.HasFormula ,1)= "="  Then

      MsgBox "单元格"& Mrg.Address & " 内有计算公式"

Else

     MsgBox "单元格内没有计算公式"

end if

end sub

wangzqxa

好好学习，天天向上。

记忆de碎片

请问一下。判断有公式后，能否得到它公式的具体值额。。。

zealot30

range.value 就是值了

三流高手

请问一下，判断有公式后，如何再判断公式结果是否是错误值呢

mostin

刚好在找这个。回家试一下效果。。。