Excel VBA (часть 2) - [33] :: Прикладное программирование

SERGE_BLIZNUK
конечно в первую очередь, я так и сделал, на листе всё разложил по полочкам потом написал алгоритм и записал его в код, а синтаксисом у меня проблемы это 99% всех моих ошибок... как правило отлаживаю синтаксис, нужно бы подучить, но что то всё время выделить жалко

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

но примерно обяснить попробую...
1 у нас есть столбец с кол-вом. где по знаку - мы понимаем что продаём а свё что положительное то покупаем.
2 цель нашего расчёта найти тот приход из которого мы будем так сказать продавать
3 ищем ячейки следующим образом:
3.1 сторим дополнительный столбец в значения которого заводим сумму всех покупок по текущею стороку (назавём её столбец сумм). например:

12	12
-2	12
4	16
1	17
-11	17

3.2 ищем общюю сумму всех продаж (те все кто с -) из предидущего примера значение будет равно -13
3.3 теперь чтобы определить из каких приходов (ячеек) мы будем продавать и сколько производим следующее действие:
3.3.1 во первых считаем сумму всех продаж без учёта последней из нашего примера это -2
3.3.2 затем полученное значение всех продаж без учёта последней поочерёдно начинаем складывать со столбцом сумм, и если значение положительное значит это первая ячейка с остатком того кол-ва что мы получили в результате сложения из которой мы будем продавать.
3.3.3 чтобы найти последнюю ячейку мы опять складываем значения из столбца сумм с общим кол-вом продаж, с учётом последей в нашем примере это -13 и ищем первое положительное значение это будет наша последняя ячейка.
3.4 теперь необходимо нашу продажу разнести по частям, то есть разложить на суммы (в том случаее если она болше чем один приход).
3.4.1 (условимся что мы предерживаемся итерационного процесса те в пункте 3.4 мы начинаем движение с верху заново) итак для того что бы посчитать кол-во продоваемое из первой покупки (ячейке которую мы определили в пункте 3.3.2) нам необходимо определить то кол-во товара сколько там осталось, это достигаетя как я и писал в пункте 3.3.2 путём сложения ячейки из столбца сумм и сумыы всех продаж за исключением последей (для которой мы и считаем реализованную прибль) у нас получается 10 это то кол-во которое у нас осталось
3.4.1.1 теперь проверяем если сумма 10 и наша последняя продажа -11 меньше нуля то отсюда мы продаём всё оставшееся кол-во те 10, а та разница что мы получили в результате сложения это -1 переноситься на другую покупку
3.4.2 следющею покупку мы считаем что отсюда продаж небыло и по этому мы берём значение из столбца 1 (только покупки те положительное) это 4 суммируем её с -1 и получем 3 это значит отсюда мы продаём 1
3.5 теперь зная откуда чего мы продаём считаем по следующей формуле (на примере выше нет столбца с курсами)10 умножаем на курс из первой покупки и вычитаем 10 умножкнное на курс продажи (можно упростить курс покупки минус курс продажи умноженное на 10), далее тоже самое для 1 умножаем на курс второй покупки(кур по которому мы купили 4 шт.) и вычитаем 1 уноженное на курс нашей продажи (11 шт. что мы продали)

ну вот навернное и все описал если непонято то обясню ещё раз

ПОВТОР:
а использовать думаю так С2=Realized(B$2:B2;A$2:A2) где в столбце A курсы а в столбце B кол-во. И мы её протягиваем, ну там ещё условие нужно чтобы она считалась только для значений из столбца B отрицательных.

Добавлено:
Переменные как я вижу:

массив три столбца колонки из входящих данных
1 входящие курс
2 входящие кол-во
3 расчёт сумма всех покупок по текущею запись

по хранению суммы всех минусов
по хранению номера строки для начала расчётов
по хранению номера строки для окончания расчётов – можно обойтись без неё

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

Добавлено:
основня проблема в том что я незнаю как содать временные переменные с которыми буду работать, пробовал по разному SERGE_BLIZNUK

Цитата:

in_r(index, 2).Value = c1.Value

это не помогает много чего перепробовал, вообще как правильно сделать так и непонял

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

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

CEMEH
Цитата:

Надо полагать, что после Then, else надо писать с новой строки? А значки "[", "]"??
А что значит End if?

1) ВНИМАТЕЛЬНЕЕ читайте сообщения! Цитирую сам себя:
"в [] то, что может быть опущено... "
разжевываю - квадратными скобочками я обозначил необязательные элементы, т.е. то, что может быть убрано (опущено)...

2) очень, очень, очень рекомендую открыть данный топик -
Версия для печати и почитай примеры чужого кода. Поверьте, что процентов на 80% того, что я знаю и умею в VBA, это благодаря чтению/анализу чужого кода...

3) End if - это завершение условной конструкции. Подумайте сами, ведь нужно же компилятору языка узнать, что закончилась ветка, которую нужно выполнять при соблюдения условия if <условие> then.
В синтасисе языков программирования существует только нескольк способом указать, какой блок попадает в if then - либо операторные скобки (в Pascal/Delphi - begin ... end,
в Си,Java - { .. } ... ) либо завершающий оператор, который указывает, что всё, баста, веточка закончилась. в данном случае это и есть end if

Цитата:

Цитата:

ну, это не проблема.
dim A As String

Что это значит? переменная А - текст? А просто, с первой строки (без этого объявления)я не могу написать Let А= "Вася Пупкин"? Выдаст ошибку?

это выдаст ошибку, если в опциях VBA у вас стоит обязательно требовать описания переменных (меню Tools - Options - [ ] Require Variable Declaration)
Кстати, может Ваша проблема в том, что вы путаете русские/английские буквы!??!?!!!!
в данном примере Let А= "Вася Пупкин" - А - набрана в русской расскадке!
разумеется, что когда Вы пишете Cells(Lastrow, 8).Value = А, то А ДОЛЖНА БЫТЬ ТОЖНО ТАКАЯ ЖЕ!!!
Кстати, включение опции "Требовать описание переменных" как раз эту проблему и решит! Т.к. либо как вы опишете переменную, так Вы её будете использовать, либо, если описали в английской, а использовать пытаетесь русскую - компилятор остановится в месте использования и справедливо обматерит Вас!!
и вообще, использование русских букв в именах переменных - это грубо и некультурно. и уж, как минимум, Вы должны делать это осознанно:
Let МоеНовоеЗначение = "Вася Пупкин" 'кстати, Let можно опускать-оно не обязательно
cells(1,1).Value = МоеНовоеЗначение

vasiliy74
могу сказать только одно - АФИГЕТЬ... то ли я такой тупой, то ли задача у Вас стоит ОЧЕНЬ не стандартная.... ;-(((((((( Перечитал раза три, пока не вкурил....
Ладно, почитаю ещё пару/другую раз. Пока вопросы - вашем примере что представляет себя второй столбец (ну, который 12 12 16 17 17)? Вы его назвали "столбец сумм" - это что количество * курс ? но это невероятно, т.к. для последних двух строчек для 1 и -11 одна и та же сумма... ;-(((( и ещё, у вас таблица заполняется сверху вниз, т.е сначала вы купили 12 штук, потом продали 2, потом купили 4 и т.д... Так?
И что надо в конце концов найти?? я про вашу фразу "цель нашего расчёта найти тот приход из которого мы будем так сказать продавать"??

попытайтесь ещё раз объяснить, теперь ЛОГИКУ вычислений - примерно так
- купили x1 по курсу у1
- потом продали x2 по курсу y2
- потом продали x3 по курсу y3
итого, наша реализация составляет RRR

новый пример (т.е. всё забыли, с нового года начали заново):
- купили x1 по курсу у1
- купили x2 по курсу у2
- купили x3 по курсу у3
- потом продали x4 по курсу y4
- потом продали x5 по курсу y5
итого, наша реализация составляет RRR

Похоже у Вас тот случай, когда Вы сами всё прекрасно понимаете, а вот втолковать "невтыкающим" не можете... Обычно в таких случаях проще самому сделать, чем другому объяснить ЧТО же надо делать...

[offtop]анекдот в тему. Беседуют два молодых учителя математики. Один другому: - Представляешь, ну и тупой класс мне попался!! Объясняю им доказательство теоремы - не понимают! Ещё раз объясняю - не понимают! Третий раз объясняю, уже сам понимать начал, а они всё равно не понимают!!!

Добавлено:

vasiliy74
Ещё вопрос/совет. Задача стоит так - напротив ячеек с продажей, (где кол-во <0) необходимо считать реализованную прибыль ?
Тогда Вам лучше (эффективнее) сделать функцию на VBA, которая будет вычислять эту прибыль и будем сама заполнять столбец... Чем вставлять туда функцию =Realized(..., протягивать ещё и т.д....
просто каждый раз в каждой ячейке будет запускать один и тот же процесс вычислений... мне кажется, это неэффективно!
впрочем, разумеется, об этом можно будет говорить, только после того, как алгоритм заработает!

Модерирует : ShIvADeSt
ShIvADeSt (11-01-2010 10:17): http://forum.ru-board.com/topic.cgi?forum=33&topic=10903	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200