VBA无法读取公式生成的值

Question

我通过以下公式计算了单元格范围G8：G12中的值（我将单元格属性定义为数字）

=RIGHT(A8,LEN(A8)-FIND(" ",A8)) 
=RIGHT(A9,LEN(A9)-FIND(" ",A10)) 
=RIGHT(A9,LEN(A9)-FIND(" ",A10)) 
...

现在，使用VBA，我想从这个范围中提取最大值。所以我这样做：

Function end_calculation()

 max_value = WorksheetFunction.Max(Sheets("screen_3_FIXEDPRICE_NSCLIENT").Range("G8:G12"))
 MsgBox (max_value)

End sub

然而，这给了我＆＃34; 0＆＃34;。当我输入＆＃34; hard＆＃34;这是奇怪的原因。 A8：A12范围内的值确实有效...任何想法在这里出了什么问题以及我应该做什么？

Answer 1

这是因为您必须在公式中添加Value excel公式。

尝试通过以下方式替换您的单元格公式：

 =Value(RIGHT(A8,LEN(A8)-FIND(" ",A8)))
 =Value(RIGHT(A9,LEN(A9)-FIND(" ",A10)))
 =Value(RIGHT(A9,LEN(A9)-FIND(" ",A10)))

告诉我这是否有效。