菜单/工具/宏/Visual Basic 编辑器
在编辑器内,菜单/插入/模块 选择模块,填入以下,并且存好.
Function Evalu(ByVal S As String) As String
Evalu = Evaluate(S)
End Function
然后你就可以用定义的宏 Evalu.比如 =Evalu(B4)
就可以直接计算出B里面的任何算式.
菜单/工具/宏/Visual Basic 编辑器
在编辑器内,菜单/插入/模块 选择模块,填入以下,并且存好.
Function Evalu(ByVal S As String) As String
Evalu = Evaluate(S)
End Function
然后你就可以用定义的宏 Evalu.比如 =Evalu(B4)
就可以直接计算出B里面的任何算式.