Public Function wj(ByVal s As String) As Variant
wj = Application.Evaluate(s)
End Function
定义一个功能,名叫wj
代码功能,代替evaluate实现对单元格内的公式进行计算并显示结果。使用时,像公式一样输入。
Public Function wj(ByVal s As String) As Variant
wj = Application.Evaluate(s)
End Function
定义一个功能,名叫wj
代码功能,代替evaluate实现对单元格内的公式进行计算并显示结果。使用时,像公式一样输入。