如何用 VBA 判断单元格是否有公式？

作者：绿色风分类：时间：2022-08-17 浏览：223

楼主 gvntw	Q：如何用 VBA 判断单元格是否有公式？ A：可以利用 Range.HasFormula 属性来判断，代码如下： Sub gvntw2009022401() If Range("A1").HasFormula Then MsgBox "有公式" Else MsgBox "没有公式" End If End Sub
2楼 xpm130	还是用定位功能方便啊.
3楼 gvntw	用定位的方法并没有更简单，定位方法写的代码： Sub test() Rem 定位公式单元格 Set FormulasCells = Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas) Rem 取交集 Set c = Application.Intersect([a1], FormulasCells) Rem 判断交集是否存在 If c Is Nothing Then MsgBox "A1没有公式" Else MsgBox "A1有公式" End If End Sub
4楼 snowangle007	原来hasformula是这样用的啊！我还以为后面要跟=true或是=false呢！

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表