Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 21.08.2007, 17:31   #1
Bor
 
Регистрация: 21.08.2007
Сообщений: 3
По умолчанию макрос VBA Excel

Всем, привет!

Подскажите, пожалуйста, макрос для следующей схемы (VBA Excel)?
Имеется лист, который состоит из 11 столбцов и около 900 строк.
Обрабатываю эту таблице по следующей схеме:
1) исходная таблица (файл К1);
2) сравниваю соседние строки по вертикали с одинаковами номерами из столбца "Участок", чтобы найти изменения в столбцах с 6-го по 9-й (т.е. сраваниваю верхнюю и нижние строки). Если даты изменились, то окрашиваю дату в нижней строке в красный цвет (файл К2);
3) если в строке были изменения (даты окрашены в красный цвет), то в 11-ом столбце "Примечание" указываю сокращенно Д1, Д2, Д3 или Д4 – т.е. в каких столбцах даты изменились (файл К3);
4) вставляю пустую итоговую строку после всех строк с одинаковыми номерами в столбце "Участок“ (для каждого номера - одна итоговая строка) – файл К4;
5) в итоговую строку для каждого номера из столбца "Участок" копирую строку по этому номеру за текущий месяц (файл К5);
6) отдельно группирую строки по каждому номеру 3-го столбца "Участок" (файл К6);
7) скрываю сгруппированные строки - видны только итоговые строки для каждого номера (файл К7)
Изображения
Тип файла: jpg K1.jpg (89.7 Кб, 157 просмотров)
Bor вне форума
Старый 21.08.2007, 17:38   #2
Bor
 
Регистрация: 21.08.2007
Сообщений: 3
По умолчанию добавление файлов (автор: Bor)

добавление файлов
K2.
K3.
K4.
K5.
K6.
K7.
Вложения
Тип файла: zip K2-K3-K4-K5-K6-K7.zip (357.6 Кб, 25 просмотров)
Bor вне форума
Старый 21.08.2007, 17:45   #3
Bor
 
Регистрация: 21.08.2007
Сообщений: 3
По умолчанию автор: Bor

автор: Bor

а вот тот тестовый файл, который на примере которого описаны шаги схемы и который приведен в файлах:
K1, K2, K3, K4, K5, K6, K7.
Вложения
Тип файла: zip Fajl - K1-K7.zip (5.7 Кб, 24 просмотров)
Bor вне форума
Старый 25.01.2008, 09:33   #4
Обыватель
Пользователь
 
Регистрация: 21.01.2008
Сообщений: 98
По умолчанию

удалено по причине ошибки

Последний раз редактировалось Обыватель; 25.01.2008 в 09:34. Причина: ошибка
Обыватель вне форума
Старый 25.01.2008, 10:26   #5
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Поясните:
Цитата:
5) в итоговую строку для каждого номера из столбца "Участок" копирую строку по этому номеру за текущий месяц (файл К5);
Что копировать в "итоговую" строку?
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 25.01.2008, 12:20   #6
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Ухожу на выходные. Что вставлять в "итоговую" строку так и не понял.
Посмотрите вложенный файл (с пока пустыми "итоговыми"). То или нет?
Вложения
Тип файла: rar Bor.rar (8.2 Кб, 29 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
макрос перехода на заданный лист в excel Руслан Набиуллин Microsoft Office Excel 2 06.08.2008 20:46
помогите, пожалуйсто, написать макрос для excel bacalavr Microsoft Office Excel 2 04.04.2008 11:39
Макрос VBA EXCEl - простановка в ячейку номера страницы Обыватель Microsoft Office Excel 1 14.02.2008 12:49
Макрос в Excel для обработки группы файлов ad_sum Microsoft Office Excel 1 29.12.2007 16:56