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

看板Office作者 (~GUCCI BOY~)時間10年前 (2016/05/03 00:33), 10年前編輯推噓0(004)
留言4則, 2人參與, 最新討論串1/2 (看更多)
軟體: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

05/03 00:59, , 1F
05/03 00:59, 1F
謝謝大師 不過想請問一下大師 我後來改成這樣子 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

05/03 18:26, , 2F
將cal(a)=0改為cal=0
05/03 18:26, 2F

05/03 18:26, , 3F
^^
05/03 18:26, 3F

05/03 18:26, , 4F
謝謝您~
05/03 18:26, 4F
文章代碼(AID): #1N9u5KNh (Office)
文章代碼(AID): #1N9u5KNh (Office)