带文字公式计算(通用)

lzxdy

1. 
   
2. Function dy(cell As Range)
   
3. c = Trim(cell.Text)
   
4. If c = "" Then dy = "": Exit Function
   
5. t = "["
   
6. s = "]"
   
7. x = Len(c) - Len(Replace(c, t, ""))
   
8. For i = 1 To x
   
9. m = InStr(c, t)
   
10. If m = 0 Then Exit For
    
11. n = InStr(c, s)
    
12. c = Replace(c, Mid(c, m, n - m + 1), "")
    
13. Next
    
14. dy = Application.Evaluate(c)
    
15. End Function
    
16. 
    

复制代码

可以用来计算形如：[柱子]7.3*4.5*2[个]-[扣门]5.05*2*2.45[米]　格式的代数式。
用法：假设代数式在A1，计算结果放在B1。
１、上述代码加入宏模块中。
２、B1输入自定义函数 =dy(A1)

wangtx218

谢谢，好用！

李甲

1. 
   
2. Function JS(A)
   
3. C = 2
   
4. For I = 1 To Len(A)
   
5.     B = Mid(A, I, 1)
   
6.     If B = "[" Then
   
7.         C = 1
   
8.     ElseIf B = "]" Then
   
9.         C = 2
   
10.     End If
    
11.     If C = 2 Then
    
12.         D = D & B
    
13.     End If
    
14. Next
    
15.     E = Application.Substitute(D, "]", "")
    
16. JS = Application.Evaluate(E)
    
17. End Function

复制代码

可以用来计算形如：[柱子]7.3*4.5*2[个]-[扣门]5.05*2*2.45[米]　格式的代数式

lzxdy

李甲 发表于 2013-1-10 18:09
可以用来计算形如：[柱子]7.3*4.5*2[个]-[扣门]5.05*2*2.45[米]　格式的代数式

计算：7.3*4.5*2[个]-5.05*2*2.45[米] 不正确。

1578278106

不通用，比如包含+-*\()mod^等等运算符的。

banjinjiu

都没有上附件，我试了多遍，不正确

lzxdy

banjinjiu 发表于 2013-5-26 20:01
都没有上附件，我试了多遍，不正确

也许是格式不一样，你上一个附件，我测试一下。

banjinjiu

lzxdy 发表于 2013-5-27 09:36
也许是格式不一样，你上一个附件，我测试一下。

楼主好，我是新手，希望能得到你的指点，中午忙着制作试卷，没来的及看，现在上附件，请楼主帮改下，谢谢。

lzxdy

banjinjiu 发表于 2013-5-27 14:56
楼主好，我是新手，希望能得到你的指点，中午忙着制作试卷，没来的及看，现在上附件，请楼主帮改下，谢谢 ...

这个自定义函数应放在模块中才通用。
我把它从sheet中移出来就可以了，见附件。
带文字公式计算.zip (7.05 KB, 下载次数: 106)

2013-5-27 18:36 上传

点击文件名下载附件

banjinjiu

lzxdy 发表于 2013-5-27 18:36
这个自定义函数应放在模块中才通用。
我把它从sheet中移出来就可以了，见附件。

原来在模块中运行，谢谢，又学了一手，希望高手们经常教我们一招，我们会进步的更快。收下了，再说谢谢，这个论坛无私的大侠就是多。