求助转换数值的函数或方法

honghp · 发表于 2018-1-10 09:19

下图是我想通过公式把a1单元的文本，在b1能按照内容计算出数据结果，麻烦大侠们帮忙看看要用什么函数或方法？谢谢！

jiangxiaoyun · 发表于 2018-1-10 10:00

Public Function EVALUATEVBA(ByVal s As String) As Variant
EVALUATEVBA = Application.Evaluate(s)
End Function

自定义函数

honghp · 发表于 2018-1-10 10:57

要用到自定义函数啊，谢谢楼上的大哥，问题解决了，真是太好用了，有空要研究下自定义函数。非常感谢！

lss001 · 发表于 2018-1-11 22:07

本帖最后由 lss001 于 2018-1-11 22:09 编辑

EVALUATE宏函数，需要定义名称后再用
假如数据在Sheet1工作表
光标定位在A1上
菜单-插入-名称
在名称中输入"计算"两个字
在引用位置输入
=EVALUATE(Sheet1!A1)&T(NOW())点确定
然后保存工作薄
接下来你只要在文本右边单元格中输入=计算
就会算出左边单元格算式的值

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