如何自定义函数（功能为将字符串中的数字提取出来并计算）

cdcxzj

问题：请问大佬们，如果通过自定义函数，实现将单元格中的数字提取出来并求和；
实际情况：如在流水账中，某单元格中含各明细（事项与费用），现需对数字进行求和计算；
目前进度：网上查找了一些代码并修改，目前只能对指定单元格（B2）计算，结果在指定单元格显示（B3）
请大神们指正：怎么样将此代码设置为自定义函数，对任何指定单元格均实际计算   如： B4=Tsum(e8)

yylucke

原理：
1、利用正则去除字符串中的数字，包含小数点（当然上面的函数没有考虑负数）
2、利用Application.Trim的特性：若连续空格，只保留一个空格
3、利用Evaluate计算字符串。

yylucke

yylucke

请参考附件
数字计算（单元格含字符，数字需提取）.rar (15.44 KB, 下载次数: 13)

2023-4-4 18:07 上传

点击文件名下载附件

cdcxzj

yylucke 发表于 2023-4-4 18:11
原理：
1、利用正则去除字符串中的数字，包含小数点（当然上面的函数没有考虑负数）
2、利用Application. ...

完美实现！！！谢谢您！~~~
结贴了@！~

zyhui1961

yylucke 发表于 2023-4-4 18:11
原理：
1、利用正则去除字符串中的数字，包含小数点（当然上面的函数没有考虑负数）
2、利用Application. ...

老师您好！
请你帮忙：下面是我录制的宏的内容，单独运行没有问题。
    Sheets("成绩查询").Select
    Range("AA5:AA69").Select
    Selection.Copy '复制文本
    Range("Z5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=F
alse, Transpose:=False '粘贴数值
    Range("Z5").Select
可是我加一个工作表事件，为什么就运行不了？
Private Sub Worksheet_Change(ByVal Target As Range) '工作表触发事件
    Set Myrng = Range("A1")   
    Sheets("成绩查询").Select
    Range("AA5:AA69").Select'老是从这个地方开始卡住了
    Selection.Copy '复制文本
    Range("Z5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False '粘贴数值
    Range("Z5").Select
End Sub

yylucke

改进了一点，可以计算负数
Function TQSUM(txt$)
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "(-?[0-9.]+)"
        Set mh = .Execute(txt)
        For k = 0 To mh.Count - 1
            TQSUM = TQSUM + Val(mh(k).SubMatches(0))
        Next
    End With
    Set mh = Nothing
End Function

yylucke

zyhui1961 发表于 2023-4-6 12:49
老师您好！
请你帮忙：下面是我录制的宏的内容，单独运行没有问题。
    Sheets("成绩查询").Select

你在前后增加：
Application.EnableEvents = False
你的代码
……………………
Application.EnableEvents = True

zyhui1961

yylucke 发表于 2023-4-14 09:49
你在前后增加：
Application.EnableEvents = False
你的代码

帮忙改一下呗，谢谢了！！！

准提部林

E3//一般公式//
=SUMPRODUCT(--(0&TRIM(MID(E2,ROW($1:$100),TEXT(FREQUENCY(-ROW($1:$99),-ISERR(-(0&MID(0&E2,ROW($1:$99),1)))*ROW($1:$99))-1,"[<]!0")))))