Question

如何在excel里面计算其他单元格的计算式(并可以在计算式中标注）

例如在A1格子里输入计算式 1+2+3 在B1格子里显示计算结果
在 B1单元格输入 =js(a1) 这样就在B1格计算出A1格计算式的结果
别人告诉我一个宏
Public Function js(x As Range)
js = Evaluate("=" & x)
End Function
但是这样 在计算式中 不能注释 最近我看到一个 是在数字后面加[ ] 里面可以写一些注释的文字 不影响计算的
例如 1157*12+36*12[辅车道]+3*6[人行道]+PI*2*2[转弯] 这样

有高手么？？？ 能帮我再做一个宏么？
非常需要

Answer 1

你的PI 要设自定义名称
========================
Public Function js(x As String)
Do While InStr(1, x, "]") > 0

a = InStr(1, x, "[")
b = InStr(1, x, "]")
x = Left(x, a - 1) & Right(x, Len(x) - b)

Loop

js = Evaluate("=" & x)

End Function

Answer 2

需要替换掉中文（或者中括号[]内的内容），在用宏表函数 Evaluate