请教各位大师可否实现算术算式转文本算式求值功能？

tender888 · 发表于 2024-9-3 16:03

Function abc(str)
abc = "=" & Replace(str, "+", " & " & Chr(34) & "+" & Chr(34) & " & ")
End Function

Function qwe(str As String)
qwe = Evaluate(str)
End Function

joy.008@163.com · 发表于 2024-9-3 16:16

如果你希望在单元格中展示"=1+2+3" 可以在赋值的时候
abc = "'=" & .......
加个单引号
还有一点我不知道你的原始数据是什么样的
但是既然用VBA了就没必要用 Evaluate 了吧
如果原始数据是"1+2+3"这样的格式直接按"+"分割一次性填写 arr(i,2) 和arr(i,3)
是否更快捷?
个人意见仅供参考

kkf5560 · 发表于 2024-9-3 16:18

太绕了没看懂，ABC的时候已经取得“1+2+3”，直接evaluate啊

大灰狼1976 · 发表于 2024-9-3 16:18

不太明白意思，"1+2+3"就直接可以用EVALUATE了，为什么要先转成 1 & "+" & 2 & "+" & 3

tdpzby · 发表于 2024-9-3 16:34

B列设置为文本，C列设置为数值不就可以了吗？

tender888 · 发表于 2024-9-3 19:44

多谢各位解答，怪我没表述清楚，详见附图

joy.008@163.com · 发表于 2024-9-3 20:54

Sub JOY20240903SV()
Dim arr, i%, j%, xrr, xr%, S$
xrr = Array("长", "宽", "高", "根", "<kg/m>", "条", "米", "吨", "平方", "立方", "重", "升")
arr = Sheet1.Range("A1").CurrentRegion
For i = 2 To UBound(arr)
S = arr(i, 2)
'去除杂质
For j = 0 To UBound(xrr)
S = Replace(S, xrr(j), "")
Next
arr(i, 6) = S
arr(i, 4) = Evaluate(S)
Next
[A1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

复制代码

joy.008@163.com · 发表于 2024-9-3 20:57

效果图如下:
实例中仅去除掉示例中的杂质,现实操作中请按照真实情况添加杂质字典

joy.008@163.com · 发表于 2024-9-3 21:11

或许你是想要这种效果?

usedrange · 发表于 2024-9-4 08:27

挺简单，修改一下你自己的代码就可以实现，直接在a1单元格输入公式如(3+4)*8这样就可以计算处理结果了

Function abc(str)
abc = str
End Function

复制代码

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

[求助] 请教各位大师可否实现算术算式转文本算式求值功能？