[已解决]这个函数怎样写

cdcxdr

怎样将表中的入库数量计入累计数量中？

最佳答案

月排行榜 / 总排行榜

顺⑦.zì繎。

2013-4-20 07:47

{:912:}            

跳转到最佳答案楼层

1032446692

Function sumT(st$)
    Dim arr, reg As Object, r As New RegExp, i
    Set reg = CreateObject("VBScript.RegExp")
    With reg
        .Global = True
        .Pattern = "\s*\d\d/\d\d:"
        st = .Replace(st, " ")
    End With
    arr = Split(st, " ")
    For i = 0 To UBound(arr)
        sumT = sumT + Val(arr(i))
    Next i
End Function

1032446692

你给的数据太不规范了  说不定一个单元格还有更多的数据 用函数公式  我确实想不出 什么好方法  我想  自定义一个函数还是比较好的   如果你在很多工作簿中都会用到  保存为.xla文件，加载一下就可以随时调用了了

cdcxdr

1032446692 发表于 2013-4-18 20:02
你给的数据太不规范了  说不定一个单元格还有更多的数据 用函数公式  我确实想不出 什么好方法  我想  自定 ...

没理解！请再详细解答一下！

1032446692

cdcxdr 发表于 2013-4-19 11:27
没理解！请再详细解答一下！

哪里没懂？                                                     

cdcxdr

1032446692 发表于 2013-4-19 08:29
哪里没懂？

请把公式再写详细一点，我没有运行成功！应该用函数就可以，不必用宏。

1032446692

1. =IFERROR(IF(ISERROR(FIND(" ",RIGHT(F4,LEN(F4)-FIND(":",F4,1)),1)),RIGHT(F4,LEN(F4)-FIND(":",F4,1)),LEFT(RIGHT(F4,LEN(F4)-FIND(":",F4,1)),FIND(" ",RIGHT(F4,LEN(F4)-FIND(":",F4,1)),1)))+IFERROR(RIGHT(RIGHT(F4,LEN(F4)-FIND(":",F4,1)),LEN(RIGHT(F4,LEN(F4)-FIND(":",F4,1)))-FIND(":",RIGHT(F4,LEN(F4)-FIND(":",F4,1)),1)),),"")

复制代码

这是针对你当前数据写的公式   如果你哪个单元格的值为04/17:66  04/18:36  04/17:66   这就不行了数据越多越复杂  绝对比不上自定义函数简单方便

顺⑦.zì繎。

{:912:}            

cdcxdr

顺⑦.zì繎。 发表于 2013-4-20 03:47

只能计算两个日期的数量，如果是多个日期呢？

顺⑦.zì繎。

cdcxdr 发表于 2013-4-21 21:06
只能计算两个日期的数量，如果是多个日期呢？

在MID的 第2 参数上 在加 提取位置。。