Обработка массива ячеек в памяти

[Alex Pancho]

Как обработать массив ячеек в памяти следующим образом:
1. Выделяем массив, в котором есть объединенные ячейки.
2. Ищем числовые значения в столбцах.
3. Запрашиваем у пользователя коэффициенты для формулы
4. Берем числовые значения пересчитываем их по формуле с коэффициентами, которые указал пользователь
5. Спрашиваем куда вставить
6. Вставляем результат пересчета
==========
От себя добавлю: процедуру выделения ячеек и копирования диапазона в память я написал - код во вложении. А как дальше? Просто много литературы, везде разные подходы.... И нет ясного (для меня) ответа.
1. как запросить коефициенты?
2. как пересчитать значения?
3. как вставить вроде понятно - но в том коде, что я написал - не работает

[EducatedFool]

как запросить коефициенты?

А для чего у Вас форма? Я думал, как раз для запроса коэффициентов...

Запросить-то можно как угодно. Как именно - решать только Вам.
А мы лишь сможем посоветовать, как реализовать конкретный способ запроса.

как пересчитать значения?

Ну уж, если формулы Вы успешно написали, пересчитать значения труда не составит.

Private Sub var1_Click()
    Application.ScreenUpdating = False    ' отключаем временно обновление экрана
    Dim cell As Range
    Коэффициент = Val(Replace(kB1, ",", "."))    ' заменяем в тексте коэффициента запятую на точку
    For Each cell In UserRange.Cells
        If IsNumeric(cell) Then    ' если в ячейке число
            cell = For07day(cell, Коэффициент)    ' вычисляем по формуле
        End If
    Next cell
End Sub

процедуру выделения ячеек и копирования диапазона в память я написал

Весь файл Excel уже в памяти компьютера.
Другое дело - если считать значения в массив (командой типа arr = UserRange.Value, в результате чего получаем двумерный массив arr), а потом перебирать значения массива, но в Вашем случае можно обойтись без этого (поскольку объём данных небольшой)

Вы же копируете содержимое диапазона ячеек в буфер обмена, что нисколько не поспособствует облегчению обработки данных.

Выделяем массив, в котором есть объединенные ячейки

Вот и надо было прикрепить пример файла с объединёнными ячейками, ибо при работе с ними есть свои тонкости.
Если бы таких ячеек не было, код бы получился намного проще.

[Alex Pancho]

Вы немного помогли, спасибо, кое что прояснили. Вы простите если я что-то не так спрашиваю - я ж только начинающий .... у Вас знаний на 100 таких как я ....
1. Форма то есть, но толку с нее нет - я не знаю как ее вызывать в коде макроса
2. Процедуру "For07day" я написал, но в ней коэффициенты заданы жестко, а надо чтоб через форму их можно было менять - там три коэффициента -
k1 = 1,1 to 1,9, d1 = 1 to 21, s1 = 60 to 70 и формула выходит такая:
Cell = Cell * k1 * d1 + s1
3. Допустим пока обойдемся без объединеных ячеек - как написать процедуру так, чтобы пользователь:
а. указывал исходные значения
б. задавал коэффициенты через форму
в. мог вставить готовый результат куда ему угодно?
------------
Я понимаю, что много вопросов, помогите хоть по одному.... Спасибо!

[EducatedFool]

Вот сделал для примера такой вариант:



Теперь кпопка выбора диапазона не нужна (хотя она присутствует, и работает) - выделять нужный диапазон можно как до, так и после запуска формы (не нажимая на кнопку Задать область)

Формулу подредактировал.
Заменил поля ввода на выпадающие списки.

мог вставить готовый результат куда ему угодно?

Этот пункт не совсем понял, поэтому в данном варианте вставка производится на место исходных данных.

[Alex Pancho]

Вау!!!! Круто!! Спасибо приогромное, буду изучать.
СПАСИБО!