＃值！ 在VBA / Excel中使用范围对象时出错

Question

我正在尝试为excel 2010写我的第一个vba宏。它需要对200,000行进行一些长的计算，并且需要在活动行中填充2个相邻的单元格。 下面的VBA功能是完成上述任务的最初尝试。 问题是执行宏时，我得到了#value！ 错误。 如果删除“单元格”和“ .Value”行，则可以正常工作，并为活动单元格填充适当的值。 我究竟做错了什么？

非常感谢帮助。

Public Function someCalculation() As Integer

    Dim r As Range
    Dim nrow, ncol As Integer

    nrow = ActiveCell.Row
    ncol = ActiveCell.Column

    r = Cells(nrow, ncol + 1)
    r.Value = nrow * 100 + ncol

    someCalculation = nrow * 1000 + ncol

End Function

Answer 1

“单元”是一个对象，必须将“设置”与任何对象一起使用才能对其进行分配。

但是，除了具有功能的单元格外，无法修改其他单元格。

编辑：删除错误的代码

    Set r = Cells(nrow, ncol + 1)