求助宏计算

yu236845071 · 发表于 2018-10-13 09:01

Function 等于(C As Range)
P = C.Text
For j = 1 To Len(P)
F:
If (Mid(P, j, 1) = "[") Then
      For i = j + 1 To Len(P)
      If (Mid(P, i, 1) = "]") Then
      j = i + 1
      Exit For
      End If
      Next
   End If
If (Mid(P, j, 1) = "[") Then
GoTo F
End If
R = R + Mid(P, j, 1)
Next
If (R <> "") Then
等于 = Application.Evaluate("(" & R & ")")
Else
等于 = ""
End If
End Function
QQ截图20181013085938.png

如图计算内容多点就显示错误，删掉点数字就可以计算，求大神修改公式计算无上限。

skyzxh · 发表于 2018-10-13 10:15

一个宏表函数EVALUATE不就解决了？

yu236845071 · 发表于 2018-10-13 11:05

skyzxh 发表于 2018-10-13 10:15
一个宏表函数EVALUATE不就解决了？

使用这个灵活性高点，在里面可以添加中文备注

yu236845071 · 发表于 2018-10-15 10:10

顶不要沉顶顶

		自动登录	找回密码
密码			免费注册

[求助] 求助宏计算