#значение! ошибка при использовании объекта Range в VBA/Excel

Question

Я пытаюсь написать свой первый макрос vba для excel 2010. Он должен выполнить несколько длинных вычислений для 200 000 строк и должен заполнить 2 соседних ячейки активной строки. Следующая функция VBA является грубой первой попыткой выполнить вышеизложенное. Проблема заключается в выполнении макроса, я получаю # значение! ошибка. Если я удалю строки «cells» и .Value, он отлично работает и заполняет activecell с соответствующим значением. Что я делаю не так?

Цените помощь очень.

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

«Ячейки» - это объект, вы должны использовать «Установить» с любым объектом для его назначения.

Но невозможно изменить другие ячейки, кроме функции с функцией.

Edit: удалить неверный код

Set r = Cells(nrow, ncol + 1)