作者kinbaku1 (~GUCCI BOY~)
看板Office
标题[算表] VBA自定义函数去做加总
时间Tue May 3 00:33:22 2016
软体:excel
版本:2010
想请问版上的高手
假设我有一个储存格里的是1+2+3类似的计算式
(就可能有加减乘除不规则的式子)
我想要写一个在模组的FUNCTION
这个FUNTION可以去自动计算这个格子里的东西
Function JJ(A)
JJ = ???(A)
End Function
想请问这个问号要怎麽写才能做到这个计算呢?
谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 123.240.215.79
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1462206804.A.5EB.html
谢谢大师
不过想请问一下大师
我後来改成这样子
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
2F：→ soyoso: 将cal(a)=0改为cal=0 05/03 18:26
3F：→ soyoso: ^^ 05/03 18:26
4F：→ kinbaku1: 谢谢您~ 05/03 18:26