Перевести логическую формулу в макрос, Excel
 

Ребят помогите пожалуйста вот эту формулу представить в виде скрипта:
=ЕСЛИ(E3="";B3-B3;ЕСЛИ(B3>E3;B3-E3;0))

Пробовал так:
Но, судя по всему, данная процедура справедлива только для математических формул, а для логических - нет. :(

Буду премного благодарен. :)

Может быть, ввести формулу в ячейку при помощи кода VBA?
Мне, правда, непонятен смысл вычислений вида «B3-B3».

Скорее всего ячейка B3- на разных листах, :)

И действительно - решение мне подходит.
Спасибо большое.

Я малость ступил. Мне нужно при таком раскладе "0" получить и я чего-то не сообразил написать просто "0", а решил операцию вычитая сам у себя. :lol:

Ребят, возможно наглею, но хотя бы кратко подскажите плз как организовать цикл, т.е.
Вот выполнилась операция (не просто 1+1, а начиная от вычисления формул, копирования и вставки в ячейки и до очистки всех не нужных ячеек), а теперь нужно сделать тоже самое еще раз и так столько раз пока значение в некоторой ячейке не будет меньше или равно, ну скажем 1000. Тогда этот цикл прекращается.

Попробовал первое что пришло в голову, но так не фурычит:
По-сути мне нужно что бы выполнялись операции между
Do While sum >= 1000 и до loop
Выполнялись пока сумма в одной ячейке не достигнет значения менее 1000

Цитата:

Цитата NoBrain …а решил операцию вычитая сам у себя. »

Вы, случаем, лет тридцать назад с ассемблером не работали? Или, может, родитель там какой, а? И, так сказать, проснулась родовая память, и… ;)

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

Ок.
Только там тип файла *.xlsm
Структуру файла оставил, названия некоторые изменил.

Смысл задачи такой.
Есть статьи расходов, для которых определена ставка с 1000 р. т.е. это минимальная единица распределения - сколько с этой суммы будет уходить в каждую статью.
Для некоторых статей есть лимит, т.е. если сумма превысила его, то излишек уходит т.с. в "общий котел".
И если сумма в этом "общем котле" опять превысит 1000, например 1230, то 1000 опять раскидывается по статьям, а 230 остаются не тронутыми, соответственно, если 8325 то раскидывается 1000*8 (т.е. операция 8 раз выполняется), 325 нетронутыми.

Один раз вся вот эта транзакция выполняется успешно, но если нужно 8 раз выполнить, то придется вручную тыкать кнопку 8 раз. А хотелось бы, что бы программа делала это сама до момента пока сумма в ячейке "общий котел" - "B2" не будет меньше 1000.

При этом самый первый модуль в цикл не входит.

Вот.

Не, не было. :)

Вопрос решен:

Это хорошо, ибо я не очень понял, что именно Вам нужно помещать в цикл.

Но у меня для Вас всё же кое-что есть. Я сделал некоторые упрощения в приведённом Вами коде из выложенного файла:
и получил следующее (самого алгоритма вычислений я не касался):
Общие принципы:

* операции с выделением:
заменены на прямую работу с диапазонами:
* операции по ручному копированию-вставке:
заменены прямым присваиванием:
* операции по вставке формулы в ячейку и последующее распространение этой формулы на диапазон ячеек:
заменено на одно присваивание формулы всему потребному диапазону ячеек:
* очистку можно производить над объединением диапазонов:
Пробуйте.

Iska
Спасибо за проделанную работу.
Ща протестирую.
)))

Проверил. Работает.
Но появилась идея еще немного оптимизировать и вот ту, пожалуй будет посложнее. ((

Буду благодарен если кто подскажет.

А мысль такая:
Операции которые фактически выполняются здесь:
Cводятся к тому, что все это - промежуточные операции. Значения, которые получаются в диапазоне "G3:G26" нужны лишь как буфер для следующих операций. По итогам все очищается.
Но для как видно пришлось для выполнения сначала одной формулы:
потом другой:
использовать дополнительный диапазон ячеек в Excel.

А вот если бы помещать результата выполнения этой операции в переменную. Помещать в том же виде, как он хранится в этом диапазоне.
Что бы с ним можно было производить такие же операции:
Range("B3:B26").Value = Range("G3:G26").Value
Range("I3").FormulaLocal = "=СУММ(G3:G26)"

Вот это я честно говоря даже не представляю как сделать. :(

Цель - как можно больше операций переместить в код, а на листе Excel использовать как можно меньше дополнительных ячеек.

Покамест сконцентрировал свое внимание на первой позиции:

С Листа перенес в макрос формулу:
В ячейке I2 =ЕСЛИ($B$2>=100; ОКРУГЛВНИЗ($B$2/100; 0);0)

Получаем некоторое цело значение в переменной.
Дальше эту переменную нужно использовать в следующей операции, вместо: $I$2
Так не подходит:

Код:

---

Range("G3:G26").FormulaLocal = "=(zn*C3)+B3"

---

Код:

---

Range("G3:G26").Value = zn * Range("C3").Value + Range("B3").Value

---

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

Как это сделать - не знаю.
Помогите пожалуйста. :(

Можно конечно сделать тупо вот так:
Но, на мой взгляд - это глупо.

Никто не может подсказать? :(

Фактически можно сделать вывод, что цель это эмулировать некую группу ячеек (столбец или строку) в языке программирования Basic.
Если ли способы решения этого вопроса?