數字含數字括號內的數值加總

x7334103 · 发表于 2023-3-4 20:54

本帖最后由 x7334103 于 2023-3-5 03:12 编辑

目前有一個程式碼但是只能單獨加總括號內的數字，如果想要包含括號前的數字和括號內的數字還有沒有括號的數字一起加總的話，能用VBA來滿足這個需求嗎？感謝各位了。

shiruiqiang · 发表于 2023-3-4 21:14

nie414006 · 发表于 2023-3-4 21:15

nie414006 · 发表于 2023-3-4 21:17

看错版块了

gwjkkkkk · 发表于 2023-3-4 21:29

Function Sumbracket(Target As Range) As Double
'UpdatebyExtendoffice20160901
Application.Volatile
Dim xcell As Range
Dim xobjs As Object, xobj As Object
Dim xsum As Double
Set xobjs = CreateObject("vbscript.REGEXP")
xsum = 0
With xobjs
.Global = True
.Pattern = "\d+?"
For Each xcell In Target
   If xcell.Value <> "" Then
   For Each xobj In .Execute(xcell.Value)
      xsum = xsum + xobj
   Next
   End If
Next
End With
Sumbracket = xsum
End Function

洋务德雷 · 发表于 2023-3-4 21:36

是不是这个意思。

x7334103 · 发表于 2023-3-4 23:04

洋务德雷发表于 2023-3-4 21:36
是不是这个意思。

對，但是能把沒有括號的數字也ㄧ併算在一起嗎？

x7334103 · 发表于 2023-3-4 23:08

gwjkkkkk 发表于 2023-3-4 21:29
Function Sumbracket(Target As Range) As Double
'UpdatebyExtendoffice20160901
Application.Volatile
...

感謝但是我是要括號內和括號前的數字還有沒有括號的數字一起加總

x7334103 · 发表于 2023-3-5 03:29

nie414006 发表于 2023-3-4 21:15

如果是excel2016的也有類似的方式這樣寫嗎

hcm19522 · 发表于 2023-3-5 10:28

本帖最后由 hcm19522 于 2023-3-5 10:30 编辑

B8=SUMPRODUCT((0&TRIM(MID(SUBSTITUTE(SUBSTITUTE(B1:B6,")",),"(",REPT(" ",9)),{1,10},9)))*1)

		自动登录	找回密码
密码			免费注册

[求助] 數字含數字括號內的數值加總