作业帮 > 综合 > 作业

excel vba统计表格中的计算数目

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 01:30:59
excel vba统计表格中的计算数目
如果在excel表格中输入=0.15*0.23+0.12*0.23那么统计的计算式的数量就是2,如果输入=0.15*0.23*2+0.12*0.23那么统计的计算式的数量就是2+1=3
就是统计一下有几个两位数的乘法公式,
我觉得应该是:
Function Cnt(r As Range)
    Dim n%, l%
    cFor = r.Formula
    arr = Split(Replace(cFor, "=", ""), "+")
    For i = 0 To UBound(arr)
        brr = Split(arr(i), "*")
        l = 0
        For j = 0 To UBound(brr)
            If Val(brr(j)) = Int(brr(j)) Then n = n + brr(j): l = l + 1
        Next
        If l = 0 Then n = n + 1
     Next
     Cnt = n
End Function
然后,假设计算式在A1,则在需要得到结果的单元格输入
=Cnt(A1)