爱问知识人 爱问教育 医院库

判断单元格中是否有公式的VBA代码

首页

判断单元格中是否有公式的VBA代码

比如,在单元格区域C1:C10中,有的单元格含有公式,有的单元格没有公式(可能有数据,也可能为空)。我需要用VBA代码来判断这些单元格中哪个单元格有公式,哪个单元格无公式,并在D1:D10区域相应的单元格返回判断结果“有”或“无”。

比如,在单元格区域C……
提交回答
好评回答
  • 2011-07-27 09:17:09
    可以用如下代码来得到
    Sub mc1()
    Dim i%, en%
    en = [C65536].End(3).Row
    For i = 1 To en
        If Cells(i, "C").HasFormula Then
            Cells(i, "D") = "有"
        Else
            Cells(i, "D") = "无"
        End If
    Next
    End Sub
    申明一点你表中手工判断的结果是不对,C列都是有公式的,这个你可以再去查看一下。具体见附件。

    夏***

    2011-07-27 09:17:09

其他答案

    2011-07-27 09:24:53
  • 你手工填的有错误.
    代码是这样的
    Sub 按钮2_单击()
    For Each rng In Range("c1:c10")
        rng.Offset(, 1) = IIf(rng.HasFormula, "有", "无")
                 Next
    End Su

    1***

    2011-07-27 09:24:53

类似问题

换一换
  • 办公软件 相关知识

  • 电脑网络技术
  • 电脑网络

相关推荐

正在加载...
最新问答 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):