[算表] VBA自定義函數去做加總

[kinbaku1 (~GUCCI BOY~)]

軟體:excel

版本:2010

        想請問版上的高手
        假設我有一個儲存格裡的是1+2+3類似的計算式
        (就可能有加減乘除不規則的式子)
        我想要寫一個在模組的FUNCTION
        這個FUNTION可以去自動計算這個格子裡的東西

        Function JJ(A)
        JJ = ???(A)
        End Function
        想請問這個問號要怎麼寫才能做到這個計算呢?
        謝謝

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.240.215.79
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1462206804.A.5EB.html
→ soyoso: https://imgur.com/csa0N2x evaluate
        謝謝大師
        不過想請問一下大師
        我後來改成這樣子

        Function CAL(A)
        If A = "" Then
        CAL(A) = 0
        Else

        CAL = Evaluate("=" & A)
        End If

        但很奇怪的是...當我的計算式裡沒如果沒東西
        卻會變成#value!
        請問一下這發生了什麼事要怎麼修改會比較好呢?
        謝謝soyoso大
End Function
※ 編輯: kinbaku1 (61.64.171.164), 05/03/2016 18:23:49

        哈哈...不好意思
        我找到原因了因為要改成
                Function CAL(A)
        If A = "" Then
        CAL = ""---!!!
        Else

        CAL = Evaluate("=" & A)
        End If
        謝謝您~
※ 編輯: kinbaku1 (61.64.171.164), 05/03/2016 18:26:14
→ soyoso: 將cal(a)=0改為cal=0
→ soyoso: ^^
→ kinbaku1: 謝謝您~