六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

VBA检查单元格有没有使用函数

Admin | 2013-10-24 8:43:56 | ReadNums | 3166 | 标签 六合开奖结果现场直播 | 打印本页
     

  检查或判断单元格是否有函数或使用了公式,那么,在Excel里面,可以通过如下的两种代码来实现,下面是示例代码,你可以根据需要稍加修改即可使用。

  代码一:

  Rem 定位公式单元格
  Set FormulasCells = Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas)
  Rem 取交集
  Set c = Application.Intersect([B5], FormulasCells)
  Rem 判断交集是否存在
  If c Is Nothing Then
    MsgBox "B5没有公式"
  Else
    MsgBox "B5有公式"
  End If

  上述是检查B5单元格,你可以修改成为其它单元格,这样就能满足你的需要了。

  代码二:

  Select Case Selection.HasFormula
  Case True
    MsgBox "公式单元格!"
  Case False
    MsgBox "非公式单元格!"
  Case Else
    MsgBox "公式区域:" & Selection.SpecialCells(xlCellTypeFormulas, 23).Address(0, 0)
  End Select

  代码说明:检查所选择的单元格区域是否含有公式。

   第1行代码返回所选择单元格区域的HasFormula属性值。如果区域中所有单元格均包含公式,则该值为True;如果所有单元格均不包含公式,则该值为False。
  第2、3行代码,如果返回True,说明区域中所有单元格均包含公式。
  第4、5行代码,如果返回False,说明区域中所有单元格均不包含公式。
  第6、7行代码,如果是混合区域,则显示包含公式的单元格地址。


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日