|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
02.04.2019, 17:12 | #21 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Код:
5. Проверяем массив VB_Smeta_full, столбец 2 и сравниваем с массивом VB_Smeta_m_full столбец 2, если массивы совпадают 6. Проверяем VB_Smeta_contractor с массивом VB_Smeta_m_full строка 1 7. При совпадении значение пересечения заносится в массив VB_Smeta_full столбец 5 6. Перемножаем в массиве VB_Smeta_full столбец 4 5 и проставляем значение в столбец 6 округлённое значение до копеек. 7. Затем данные из массива ячеек 4,5,6 вставляем в столбцы E,F,G листа Смета Последний раз редактировалось СтаниславАВ; 02.04.2019 в 17:22. |
02.04.2019, 21:24 | #22 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Поскольку п.5 для меня сложен попробую сначала отсортировать массив VB_Smeta_m_full() строка 1 по значению в ячейке Smeta_contractor_finish.
Далее данные отсортированного столбца перенести в столбец 5 массива VB_Smeta_m_full(). Видимо для этого придётся переопределить массив. А далее уже из столбца 5 массива VB_Smeta_m_full(), переносить значения в столбец 5 массива VB_Smeta_full, значения сравниваться будут из 2 столбцов обеих таблиц. Код:
|
02.04.2019, 21:35 | #23 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Не буду мудрить, сделаю по аналогии уже с выше работающим макросом
Код:
Последний раз редактировалось СтаниславАВ; 02.04.2019 в 21:49. |
03.04.2019, 09:29 | #24 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Попробую такой код:
Код:
Последний раз редактировалось СтаниславАВ; 03.04.2019 в 10:29. |
03.04.2019, 12:45 | #25 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Друзья. Проблема, оператор j определяется правильно, 7
А вот со строкой не правильно: Код:
Последний раз редактировалось СтаниславАВ; 03.04.2019 в 13:12. |
03.04.2019, 22:30 | #26 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Так тоже не работает
Код:
|
04.04.2019, 09:05 | #27 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Код:
|
04.04.2019, 15:25 | #28 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Подскажите пожалуйста. В памяти есть массив a
Код:
Код:
|
05.04.2019, 09:58 | #29 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Помогите пожалуйста объяснить отличие
Код:
Код:
P.S. нижний почему то столбец 4 в массиве не перезаписывает. А в первом коде я перезаписанные данные не могу найти ((( Поясню зачем мне это необходимо: Код:
|
05.04.2019, 15:11 | #30 |
Форумчанин
Регистрация: 10.10.2010
Сообщений: 107
|
Спасибо Sanja. По первому этапу добился того, что надо
Код:
Код:
Берём значение из ячейки VB_Smeta_m_full(Mat, 2) находим соответствующий текст в ячейке VB_Smeta_full(SV, 2) и если текст совпадает суммируем VB_Smeta_m_full(Mat, 4) = VB_Smeta_full(SV, 4) + ........ Идем дальше, находим аналогичный текст и опять прибавляем к предыдущему. VB_Smeta_m_full(Mat, 4) = VB_Smeta_full(SV+1, 4)+VB_Smeta_full(SV, 4) + ........ Подскажите пожалуйста, как можно реализовать? Спасибо. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Запись с вариантами | andrei_belko | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 03.06.2014 17:12 |
Записи вариантами. | alexeu121 | Паскаль, Turbo Pascal, PascalABC.NET | 7 | 28.05.2014 10:26 |
Записи с вариантами | megabobik | Помощь студентам | 0 | 31.01.2010 16:17 |
Запись с вариантами | Rusl92 | Помощь студентам | 1 | 14.11.2009 10:27 |
MainMenu с вариантами | beegl | Компоненты Delphi | 4 | 08.06.2008 12:09 |