Рекурсия в Exel

Тема в разделе "Visual Basic", создана пользователем lamo4ok, 17 май 2007.

Статус темы:
Закрыта.
  1. lamo4ok

    lamo4ok Гость

    Можно ли с помощью формул непосредственно на листе организовать рекурсию типа (если вообще формулами возможно составлять функции):


    ВычислитьЦенуОпций(Строка) Цена

    ДлинаСтроки = КолвоСимволовВСтроке(Строка);

    Если ДлинаСтроки<>0 Тогда
    ПозТекущегоПробела = НайтиПервыйПробелВстроке(Строка);
    ТекущаяОпция = ТекстС ДлинаСтроки По ПозТекущегоПробела;
    Строка = Строка - ТекущаяОпция;
    ЦенаТекущейОпции = НайтиЦенуТекущейОпции(ТекущаяОпция);
    ОбщаяЦена = ОбщаяЦена + ЦенаТекущейОпции;
    ВычислитьЦенуОпций(Строка);
    КонецЕсли;

    Конец ВычислитьЦенуОпций()


    использоваться будет для след. целей:
    есть таблица, в одном из столбцов которой находятся строки типа "ЧЧВ ЫЫЫ ВВВ"
    есть еще одна таблица, в которой каждые "ЧЧВ" и "ЫЫЫ" сопоставлены определенной цене
    задача - в первой таблице заполнить столбец "ЦЕНА", которая как раз и расчитывается рекурсивной функцией ВычислитьЦенуОпций() (сразу оговорюсь, что обсуждаем именно создание функции формулами, а не мелочи типа как найти цену и вернуть ее в ЦенаТекущейОпции)

    Если кто-то знает VBA - милости просим, правда тогда задача немного изменяется:
    Как я понимаю, нужно будет сделать кнопку на листе, по которой будет перебираться весь столбец и по каждой строчке "ЧЧВ ЫЫЫ ВВВ" вызывать рекурсию. (наглею=)) в принципе, начинать перебор можно даже с текущей клетки и до конца столбца (так будет даже понятней)
     
Загрузка...
Похожие Темы - Рекурсия Exel
  1. vera2014
    Ответов:
    0
    Просмотров:
    1.074
  2. 95процентов
    Ответов:
    7
    Просмотров:
    1.912
  3. 95процентов
    Ответов:
    0
    Просмотров:
    946
  4. 95процентов
    Ответов:
    0
    Просмотров:
    1.015
  5. vladis222
    Ответов:
    10
    Просмотров:
    2.385
Статус темы:
Закрыта.

Поделиться этой страницей