阿Q吧 > 在excel里用evaluate函数计算某个单元格内文本算式的VBA语句应该怎么写？

在excel里用evaluate函数计算某个单元格内文本算式的VBA语句应该怎么写？

2024-12-01 15:07:33

推荐回答（1个）

回答1：

可以使用vba自定义函数方式，或直接调用方式
Function fmula(rng As Range)
Dim str As String
str = rng.Value
fmula = Evaluate(str)
End Function

--------------------------------------
sub test()
dim str as string
str=[a1].value
[b1]=evaluate(str)
end sub

在excel里 用evaluate函数计算某个单元格内文本算式的VBA语句应该怎么写？

在excel里用evaluate函数计算某个单元格内文本算式的VBA语句应该怎么写？