|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
05.05.2008, 23:46 | #1 |
Форумчанин
Регистрация: 25.09.2007
Сообщений: 102
|
помогите с процедурой на VBA
Всем доброго времени суток!
Народ выручайте (не долго осталось, сегодня было 2-ое занятие по VBA, надеюсь в скором будущем от Вас отстать) Задача на примере: 1. соединить данные в столбцах В и С, приоритет у столбца В, т.е. данные из столбца С при переносе в соответствующую ячейку столбца В затираются (остается значение столбца В). Например в ячейке В4 нет нечего, в ячейке С4 нет нечего в итоге в ячейке В4 нет нечего. В ячейке В4 нет нечего, в ячейке С4 стоит 2, в итоге В4=2. В ячейке В4 2, в ячейке С4 4, в итоге в ячейке В4 2. После переноса данных, колонка С4 - delete. 2. перенесли, у нас две колонки, нужно анализировать ячейки в колонке B по следующему условию, если ВСЕ строчки до следующего «заказа покупателя» пустые, то в ячейку левее ячейки «заказа покупателя» (на примере файла – ячейка В3) ставим цифру 0. Если в этих строчках стоит какая-то цифра (по определению это может быть цифра от 1 до 7, пусть да же несколько раз, это не важно) то в ячейку В8 (см. файл) просто переносится эта цифра (для файла примера это 2). И третье условие, если в троках до следующего заказа покупателя стоят разные цифры (1,2,3 и т.д.), то в ячейку В15 (опять на примере файла) ставиться цифра 9. После этой обработки все строки, кроме строк - ячейка «заказ покупателя» + 1 ячейка (с тем кодом который поставила предыдущая обработка) – уладятся. Т.е. на выходе: А столбец Заказ покупателя М0000662 от 26.02.2008 8:58:51 Заказ покупателя М0001120 от 31.03.2008 8:48:31 Заказ покупателя М0000726 от 28.02.2008 13:49:26 В столбец 0 2 9 НАРОД, помогите процедурой на VBA. Очень рассчитываю на Вас! З.Ы. фиолетовые ячейки колонки В – как должно получиться после процедуры. |
06.05.2008, 10:20 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Не совсем понял, что в конце нужно удалять. На всякий случай, я пока не удаляю, а скрываю те строки, про которые думаю. Если так - в коде макроса замените
Код:
Код:
Чем шире угол зрения, тем он тупее.
|
06.05.2008, 10:53 | #3 |
Форумчанин
Регистрация: 25.09.2007
Сообщений: 102
|
блин ЧТД!!! SAS888 как всегда РЕСПЕКТ!
как же я хочу научиться сам это делать. Сегодня же эту процедуру разберу с преподавателем - по полочкам. З.Ы. кстати, select case мы уже вчера коснулись в рамках If |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Люди,помогите с процедурой на выход! | Alexij | Общие вопросы Delphi | 5 | 08.06.2008 13:43 |
Помогите с процедурой... | Arkuz | Помощь студентам | 10 | 15.05.2008 08:56 |
Помогите разобраться с процедурой OnKeyDown!!! | frai | Общие вопросы Delphi | 9 | 13.04.2007 15:46 |