Re: [算表] 計算儲存格()內數字的合計--TEXT,文本求和(VBA)
如果要在一格內，我只想得到 VBA 囉，加入以下VBA
然後 B1 =sumNumber(A1) 即可
Function sumNumber(ByVal r As Range) As Integer
Dim c As Range
Dim s As String
Dim sum As Integer, index As Integer, index2 As Integer
sum = 0
index = 1
index2 = 0
For Each c In r
s = c.Value
index = InStr(index, s, "(")
While (index > 0)
index2 = InStr(index, s, ")")
sum = sum + Val(Mid(s, index + 1, index2 - index - 1))
index = InStr(index2, s, "(")
Wend
Next
sumNumber = sum
End Function
※ 引述《ljuber (即戰力之豆花妹護衛隊)》之銘言：
: 軟體:excel
: 版本:任何版本
: 如果我在A1儲存格內打
: 書本(100)+早餐(50)+午餐(70)+飲料(20)
: 如何在b1儲存格把()內的數字相加
: 而且下次打不一樣的東西
: 例如早餐(50)+文具(100) 也都會去判斷()內的數字去相加?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.131.84.1
推
11/18 12:34, , 1F
11/18 12:34, 1F
推
11/18 21:36, , 2F
11/18 21:36, 2F
→
11/18 21:37, , 3F
11/18 21:37, 3F
→
11/19 09:13, , 4F
11/19 09:13, 4F
Office 近期熱門文章
PTT數位生活區 即時熱門文章