1、首先我们打开一个工作样表作为例子。
2、我们捂执涡扔使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:Option ExplicitSub setcap()With Range("a3")If .HasFormula = True ThenMsgBox "a3单元格中已存在公式"End Ifend withEnd Sub
3、这里我们现制定了单元格的区域为a3单元格。这是一个单单元格,目的就是判断这个单元格里有没有公式。如图所示:
4、hasformula方法是判断单元格内有公式的方法,值为true时表示有公式。false表示没有公式。这里使用if进行判断,如果有公式则执行下一个指令。如图所示:
5、我们看看a3单元格内的数据是什么内容,这样就可以知道运行的结果是如何的。如图所示:
6、我们看到a3单元格是个合并单元格,其内容为数据,而不是公式,所以运行代码,if判断为false不执行msgbox方法。如图所示:
7、先写到这里了,谢谢大家的观看。祝大家生活愉快。小编还有许多其他的经验可以观看,如果无法解决问题可以联系小编进行咨询。看不清楚图片的可以点击放大再看哦。