[已解决]如何获得公式的值

zjdh

请问：
已经获得
ABC的值为 RANGE("A1")+RANGE("A2")  一串字符
如何得到ABC的值？也就是：
ABC=RANGE("A1")+RANGE("A2") 的效果。

最佳答案

月排行榜 / 总排行榜

爱疯

2014-6-23 09:28

如果改成正确写法，就不是你说的情况
如果按1楼，直接写出来，这句就变红了，没法测试。要不你给个小例子，再看？


字符串的单元格都是range()的书写方式？如果是
1）把原字符串中的 RANGE(" 和 ") ，都替换为空
2）得到 "A1+A2"，用等号相连，赋给单元格对象。比如[A3]="=A1+A2"

跳转到最佳答案楼层

lisa19860622

VBA里不能直接相加?

zjdh

你没理解我的意思，那个公式是变换得来的，是文本格式，现在要计算这个公式的值。

hwc2ycy

Application.Evaluate 方法
将一个 Microsoft Excel 名称转换为一个对象或者一个值。
语法

表达式.Evaluate(Name)

表达式   一个代表 Application 对象的变量。

参数

名称 必选/可选 数据类型 说明
Name 必选 Variant 使用 Microsoft Excel 命名约定的对象名称。

返回值
Variant

说明


该方法可使用下列 Microsoft Excel 名称类型：

A1 格式引用。可以通过 A1 格式表示法引用单个单元格。所有引用均视为绝对引用。
区域。在引用中可以使用区域、交集和联合运算符（分别为冒号、空格和逗号）。
定义的名称。可用宏语言指定任何名称。
外部引用。可以使用 ! 运算符引用另一工作簿中的单元格或已定义的名称，例如，Evaluate("[BOOK1.XLS]Sheet1!A1")。
图表对象。可以指定任何图表对象名称（如“Legend”、“Plot Area”或“Series 1”），以访问该对象的属性和方法。例如，Charts("Chart1").Evaluate("Legend").Font.Name 返回图例中所用字体的名称。

hwc2ycy

evaluate里不能用range

zjdh

谢谢！可是还是不能直接解决我的问题。
还得转换。

chinaman_86

关注高手答案

gerzty

a = Range("A1")
b = Range("A2")
ABC = a + b
试试看行不行

zjdh

gerzty 发表于 2014-6-22 14:37
a = Range("A1")
b = Range("A2")
ABC = a + b

不是这么简单的问题！
3楼有进一步描述。

gerzty

zjdh 发表于 2014-6-22 15:49
不是这么简单的问题！
3楼有进一步描述。

你描述的不清楚，我看了3楼的，也没说明白你要的是什么。