Как в Excel расширить выделение из функции?
Доброе время суток, многоуважаемый All.
Есть такая задача:
Создать в Excel функцию, получающую число и возвращающую столбец в котором записано его разложение на простые множители.
Задача по предмету "программирование", поэтому особого смысла в ней искать не нужно.
Так вот проблема в том, что заранее не знаешь сколько ячеек нужно выделять. Как средствами VBA самому вывести в стобец все получающиеся числа.
Примечание: Нужна именно функция, а не макрос (процедура).
С уважением, Rombal.
Есть такая задача:
Создать в Excel функцию, получающую число и возвращающую столбец в котором записано его разложение на простые множители.
Задача по предмету "программирование", поэтому особого смысла в ней искать не нужно.
Так вот проблема в том, что заранее не знаешь сколько ячеек нужно выделять. Как средствами VBA самому вывести в стобец все получающиеся числа.
Примечание: Нужна именно функция, а не макрос (процедура).
С уважением, Rombal.
По формуле :
Ячейка с числом - r.
В нужном столбце:
- запоминай начальную позицию N=r.offset(1,0).row вывода первого множителя (лучше сразу под ячейкой, в которой находится исходное значение числа)
- добавляя к N единицу переходишь к следующей строке и так далее ... до кол-ва множителей
- кол-во ячеек будет равно N-r.row
P.S. зачем тебе нужно выделять ячейки, если ты уже в цикле можешь сосчитать их кол-во по ходу записывания множителей
По примечанию:
Описываешь функцию:
Function GetStolb(r as range)as integer
'код модуля, выполняющий необходимые действия
End function
а затем пользуешься:
- в нужной ячейке (например B1) пишешь формулу "=GetStolb(A1)"
Ячейка с числом - r.
В нужном столбце:
- запоминай начальную позицию N=r.offset(1,0).row вывода первого множителя (лучше сразу под ячейкой, в которой находится исходное значение числа)
- добавляя к N единицу переходишь к следующей строке и так далее ... до кол-ва множителей
- кол-во ячеек будет равно N-r.row
P.S. зачем тебе нужно выделять ячейки, если ты уже в цикле можешь сосчитать их кол-во по ходу записывания множителей
По примечанию:
Описываешь функцию:
Function GetStolb(r as range)as integer
'код модуля, выполняющий необходимые действия
End function
а затем пользуешься:
- в нужной ячейке (например B1) пишешь формулу "=GetStolb(A1)"