首页 > 编程语言 > 详细

VBA 判断单元格是否为公式,可用于数组

时间:2015-09-06 12:43:24      阅读:205      评论:0      收藏:0      [点我收藏+]

Function ISFORMULA(ByVal rg As Object) As Variant
      Dim temp As Variant
      Dim i As Integer, j As Integer
      temp = rg.Formula
     
      If IsArray(temp) Then
         For i = 1 To UBound(temp, 1)
            For j = 1 To UBound(temp, 2)
               temp(i, j) = IIf(InStr(temp(i, j), "=") > 0, True, False)
            Next j
         Next i
      Else
         temp = IIf(InStr(temp, "=") > 0, True, False)
      End If
      ISFORMULA = temp
End Function

VBA 判断单元格是否为公式,可用于数组

原文:http://www.cnblogs.com/lbnnbs/p/4784926.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!