在 excel 中写入函数求值的结果

Question

我需要做一个函数：http://i.stack.imgur.com/3JaRw.png

Function result(Ran As Range)

    Application.Volatile

    Dim columnNum  As Integer
    Dim rowNum  As Integer

    columnNum  = ActiveCell.Column
    rowNum  = ActiveCell.Row

    Ran.value = Evaluate(Cells(RowNum  , ColumnNum  - 1).Value)

End Function

没用

左边的加法结果怎么写？

Answer 1

我在使用名为 result 的函数时遇到问题。更改函数名称似乎有效。

见下文：

Public Function doo(ran As Range)
    doo = Evaluate("=" & ran.Value)
End Function

在 excel 中写入函数求值的结果

Write the result of the function evaluate in excel

excel

function

range

evaluate