Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макросы в Exel Автосортировка максимального с подсчетом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макросы в Exel Автосортировка максимального с подсчетом (Макросы/Sub)
Макросы в Exel Автосортировка максимального с подсчетом
next777 Дата: Четверг, 31.03.2016, 01:36 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Проверка проведена на дубликаты и составление списка существующих в наличии
можно кнопку Duplicate доработать, если не окрасилось в цвета написать - Дубликатов нет
нужна загрузка текста с выбором в любой из столбцов
нужно прописать количество подсчитанных из A-L в таблицу
нужен макрос с кнопкой числовой сортировки для любого выбираемого столбца
в D, H, L автоматически прописать номера оставшихся

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

1) нужно подсчет
2) B минус -C минус-D = в E прописать оставшиеся макросом
3) можете кое что свое предложить, если есть идеи, например окрасить номера в B взяв те цифры, что нужно окрасить цифры из столбца E
К сообщению приложен файл: ___.xls(84Kb)


web-программист
 
Ответить
СообщениеПроверка проведена на дубликаты и составление списка существующих в наличии
можно кнопку Duplicate доработать, если не окрасилось в цвета написать - Дубликатов нет
нужна загрузка текста с выбором в любой из столбцов
нужно прописать количество подсчитанных из A-L в таблицу
нужен макрос с кнопкой числовой сортировки для любого выбираемого столбца
в D, H, L автоматически прописать номера оставшихся

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

1) нужно подсчет
2) B минус -C минус-D = в E прописать оставшиеся макросом
3) можете кое что свое предложить, если есть идеи, например окрасить номера в B взяв те цифры, что нужно окрасить цифры из столбца E

Автор - next777
Дата добавления - 31.03.2016 в 01:36
al-Ex Дата: Четверг, 31.03.2016, 01:54 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 168
Репутация: 57 ±
Замечаний: 0% ±

Excel 2010
окрасить цифры
[offtop]и в конце, еще окошком поморгать, 3 раза.
 
Ответить
Сообщение
окрасить цифры
[offtop]и в конце, еще окошком поморгать, 3 раза.

Автор - al-Ex
Дата добавления - 31.03.2016 в 01:54
next777 Дата: Суббота, 02.04.2016, 00:31 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
осталась после фильтрации в EIM вносить


Осталось решить неповторяющиеся цифры, для пустых столбцов!

2) B минус -C минус-D = в E, также I, M прописать оставшиеся макросом

1 и 3 пункты уже решены


web-программист

Сообщение отредактировал next777 - Суббота, 02.04.2016, 00:32
 
Ответить
Сообщение
осталась после фильтрации в EIM вносить


Осталось решить неповторяющиеся цифры, для пустых столбцов!

2) B минус -C минус-D = в E, также I, M прописать оставшиеся макросом

1 и 3 пункты уже решены

Автор - next777
Дата добавления - 02.04.2016 в 00:31
StoTisteg Дата: Суббота, 02.04.2016, 14:42 | Сообщение № 4
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

Excel 2010
Я правильно Вас понял, что задача — удалить ячейки с дубликатами, предварительно окрашенные в красный цвет? И если да, то нужно ли удалять всё или же один экземпляр оставить?


Проверь всё. ThisWorkbook.Save. On Error Resume Next.

Сообщение отредактировал StoTisteg - Суббота, 02.04.2016, 14:43
 
Ответить
СообщениеЯ правильно Вас понял, что задача — удалить ячейки с дубликатами, предварительно окрашенные в красный цвет? И если да, то нужно ли удалять всё или же один экземпляр оставить?

Автор - StoTisteg
Дата добавления - 02.04.2016 в 14:42
next777 Дата: Суббота, 02.04.2016, 18:14 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
удалить ячейки с дубликатами, предварительно окрашенные в красный цвет

только в B там не дубликаты, а уникальные не повторяющиеся, окрашены лишь те, что нужно перенести в E (по условному форматированию)

думаю проще так убрать цифры таким путем как я написал
От В убираем все что есть в С и D
оставшиеся цифры в E заполняем

если в B окрашенные в цвет значит таких нет в С и D... и они должны быть в E, в E пишем все что в B окрашено


web-программист

Сообщение отредактировал next777 - Суббота, 02.04.2016, 18:35
 
Ответить
Сообщение
удалить ячейки с дубликатами, предварительно окрашенные в красный цвет

только в B там не дубликаты, а уникальные не повторяющиеся, окрашены лишь те, что нужно перенести в E (по условному форматированию)

думаю проще так убрать цифры таким путем как я написал
От В убираем все что есть в С и D
оставшиеся цифры в E заполняем

если в B окрашенные в цвет значит таких нет в С и D... и они должны быть в E, в E пишем все что в B окрашено

Автор - next777
Дата добавления - 02.04.2016 в 18:14
StoTisteg Дата: Суббота, 02.04.2016, 18:36 | Сообщение № 6
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

Excel 2010
окрашены они по условному форматированию

А зачем УФ, если не секрет? Это же всё равно макрос делает, ему пофиг, он железный. Зато у окрашенной "напрямую" ячейки можно в .Interior.Color заглянуть, что сильно упростит и ускорит дело.


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
Сообщение
окрашены они по условному форматированию

А зачем УФ, если не секрет? Это же всё равно макрос делает, ему пофиг, он железный. Зато у окрашенной "напрямую" ячейки можно в .Interior.Color заглянуть, что сильно упростит и ускорит дело.

Автор - StoTisteg
Дата добавления - 02.04.2016 в 18:36
next777 Дата: Суббота, 02.04.2016, 18:42 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
А зачем УФ, если не секрет

это как подсказка для меня, что переносить нужно именно эти окрашенные )


web-программист
 
Ответить
Сообщение
А зачем УФ, если не секрет

это как подсказка для меня, что переносить нужно именно эти окрашенные )

Автор - next777
Дата добавления - 02.04.2016 в 18:42
StoTisteg Дата: Суббота, 02.04.2016, 19:46 | Сообщение № 8
Группа: Авторы
Ранг: Ветеран
Сообщений: 541
Репутация: 45 ±
Замечаний: 0% ±

Excel 2010
Но при УФ макрос "не видит" цвета. А при прямой покраске — видит. Поэтому если красить напрямую, можно просто заглянуть в .Interior.Color и переносить, а при УФ нужно делать всё заново.


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеНо при УФ макрос "не видит" цвета. А при прямой покраске — видит. Поэтому если красить напрямую, можно просто заглянуть в .Interior.Color и переносить, а при УФ нужно делать всё заново.

Автор - StoTisteg
Дата добавления - 02.04.2016 в 19:46
next777 Дата: Суббота, 02.04.2016, 21:18 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Но при УФ макрос "не видит" цвета


Вопрос решен полностью

1) нужно подсчет
2) B минус -C минус-D = в E прописать оставшиеся
3) окрасить номера в B взяв те цифры, что нужно окрасить цифры из столбца E


web-программист
 
Ответить
Сообщение
Но при УФ макрос "не видит" цвета


Вопрос решен полностью

1) нужно подсчет
2) B минус -C минус-D = в E прописать оставшиеся
3) окрасить номера в B взяв те цифры, что нужно окрасить цифры из столбца E

Автор - next777
Дата добавления - 02.04.2016 в 21:18
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макросы в Exel Автосортировка максимального с подсчетом (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!