数字文字组合如何计算

Tony412

创建名称“计算”，输入公式“=EVALUATE(FILTERXML("<a>"&SUBSTITUTE(SUBSTITUTE(B4,"[","<b>"),"]","</b>")&"</a>","a"))”

红星闪闪闪

wangg913 发表于 2022-11-8 17:55
我事先引用正则了。
把第一句改成
set reg=CreateObject(”VBScript.RegExp”)

可以了我保存起来万分感谢

红星闪闪闪

魚。。 发表于 2022-11-8 18:14

求值不对，感谢了楼上那个VB可以用一劳永逸

红星闪闪闪

Tony412 发表于 2022-11-9 11:20
创建名称“计算”，输入公式“=EVALUATE(FILTERXML(""&SUBSTITUTE(SUBSTITUTE(B4,"[",""),"]","")&"","a")) ...

不可以算不出来

xingqiliu666

1. Function Auto_compute(myrange) As Variant
   
2. Dim temp As Variant
   
3. Dim i As Integer, j As Integer, s As Integer
   
4. temp = myrange
   
5. If IsArray(temp) Then
   
6.     Dim arr As Variant
   
7.     For i = 1 To UBound(temp, 1)
   
8.         For j = 1 To UBound(temp, 2)
   
9.             For s = 1 To Len(temp(i, j))
   
10.             If (InStr(temp(i, j), "[") = 0) Then
    
11.                 Exit For
    
12.             Else
    
13.                 temp(i, j) = Replace(temp(i, j), Mid(temp(i, j), InStr(temp(i, j), "["), InStr(temp(i, j), "]") - InStr(temp(i, j), "[") + 1), "")
    
14.                
    
15.             End If
    
16.         Next s
    
17.             temp(i, j) = Application.Evaluate(temp(i, j))
    
18.         Next j
    
19.     Next i
    
20. Else
    
21.     For s = 1 To Len(temp)
    
22.             If (InStr(temp, "[") = 0) Then
    
23.                 Exit For
    
24.             Else
    
25.                 temp = Replace(temp, Mid(temp, InStr(temp, "["), InStr(temp, "]") - InStr(temp, "[") + 1), "")
    
26.                
    
27.             End If
    
28.         Next s
    
29.     temp = Application.Evaluate(temp)
    
30. End If
    
31. Auto_compute = temp
    
32. End Function

复制代码