在单元格中输入字符串时如何提取数字进行计算

jylai

为什么代码不能得到结果
单元格A1输入 OD9.525*0.8mm*850mmL
这样的公式（（9.525-0.8）*850*8.96）/1000
单元格B1 获取结果为66.4496

1. Function calPP(inputStr As String) As Double
   
2.     Dim dimensions() As String
   
3.     dimensions = Split(inputStr, "*")
   
4.     If UBound(dimensions) < 2 Then
   
5.         MsgBox "Input format error, please make sure the input contains 3 numbers separated by '*'."
   
6.         B1 = 0
   
7.         Exit Function
   
8.     End If
   
9.     Dim od As Double, id As Double, ln As Double
   
10.     od = CDbl(Replace(dimensions(0), "mm", ""))
    
11.     id = CDbl(Replace(dimensions(1), "mm", ""))
    
12.     ln = CDbl(Replace(dimensions(2), "mm", ""))
    
13.     Dim volume As Double, mass As Double
    
14.     volume = (od - id) * ln * 8.96
    
15.     mass = volume / 1000
    
16.    calPP = mass
    
17. End Function

复制代码

半百

jylai

哗，您太厉害，问题总算圆满解决了，感谢您

shiruiqiang

都这样规律的话，可以正则式