中文括号计算错误

tsshixin

中文括号计算错误

以上红色公式错误，只因使用了中文括号，请老师帮忙重编辑一下宏，使用中文括号也正确计算，谢谢！

半百

先将中文括号替换为英文括号
Function js(a)

x = Len(a.Value2)
S1 = Replace(Replace(a.Value2, "（", "("), "）", ")")
For i = 1 To x

s = Mid(S1, i, 1)
Z = Asc(s)
If Asc(s) >= 0 And Asc(s) < 65 Then
y = y & s
End If
Next

js = Application.Evaluate(y)
End Function

DevilW

字符串预先处理下，把中文括号替换成英文括号
A角改不了就改B角

719404338

1. Function js(a)
   
2. 
   
3. x = Len(a.Value2)
   
4. For i = 1 To x
   
5. s = Mid(a, i, 1)
   
6. Z = Asc(s)
   
7. If (Z >= 0 And Z < 65) Or (Z = -23640 Or Z = -23639) Then
   
8. y = y & s
   
9. End If
   
10. Next
    
11. js = Application.Evaluate(y)
    
12. End Function

复制代码

740688321

先转半角strconv

tsshixin

我不会VB，哪位老师把编辑好的模块或excel发给我，谢谢啦。

duquancai

不用替换中文括号，直接提取括号(管它是英文还是中文括号)内字符 执行计算后再与后面的再进行计算，OK

duquancai

tsshixin 发表于 2019-7-15 17:39
我不会VB，哪位老师把编辑好的模块或excel发给我，谢谢啦。

写了一个函数及调用实例。怎么循环调用，你懂的！

1. Sub main()
   
2.     Dim s$
   
3.     s = "长(13+15+6)*3高*2面"
   
4.     MsgBox get_str(s)
   
5. End Sub
   
6. Function get_str(ByVal s As String) As String
   
7.     Dim D As Object, js As Object
   
8.     Set D = CreateObject("htmlfile"): Set js = D.parentWindow
   
9.     js.execScript "var re=/./.compile(/[(（](\d+\+\d+\+\d+)[）)][^*]*(\*\d+)[^*]*(\*\d+)/);"
   
10.     js.execScript "var a='" & s & "'.match(re);"
    
11.     get_str = js.eval("a?eval(eval(a[1])+a[2]+a[3]):('无法计算！');")
    
12. End Function

复制代码

tsshixin

已解决问题，谢谢各位老师！