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

Вход

Регистрация

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

 

= Мир MS Excel/сверка на совпадение - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » сверка на совпадение (Макросы/Sub)
сверка на совпадение
Espada Дата: Четверг, 25.09.2014, 09:22 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

Здравствуйте. у меня такая проблемка: есть таблица с данными( данные спецификаций счетов). нужно сравнить столбцы А В С со столбцами К L М, и выделить пункты (в столбцах АВС) зелёным цветом. а затем сравнить К L M со столбцами А В С , и выделить пункты( в столбцах KLM) красным. Может у кого нибудь есть похожий пример, или кто -нибудь подскажет, как(или возможно ли) такое сделать?
 
Ответить
СообщениеЗдравствуйте. у меня такая проблемка: есть таблица с данными( данные спецификаций счетов). нужно сравнить столбцы А В С со столбцами К L М, и выделить пункты (в столбцах АВС) зелёным цветом. а затем сравнить К L M со столбцами А В С , и выделить пункты( в столбцах KLM) красным. Может у кого нибудь есть похожий пример, или кто -нибудь подскажет, как(или возможно ли) такое сделать?

Автор - Espada
Дата добавления - 25.09.2014 в 09:22
wild_pig Дата: Четверг, 25.09.2014, 09:42 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 516
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
Столбец сравнить со столбцом на наличие чего? Вы бы лучше в файле это сравнение показали (а с 55 сообщениями можно было разок правила прочитать).
 
Ответить
СообщениеСтолбец сравнить со столбцом на наличие чего? Вы бы лучше в файле это сравнение показали (а с 55 сообщениями можно было разок правила прочитать).

Автор - wild_pig
Дата добавления - 25.09.2014 в 09:42
Espada Дата: Четверг, 25.09.2014, 09:55 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

в столбцах данные по продукции. нужно сравнить данные в столбцах АВС, с данными в столбцах KLM, а потом сравнить данные из KLM с данными в столбцах ABC, и выделить их цветом.
К сообщению приложен файл: 1524262.xlsx (32.2 Kb)
 
Ответить
Сообщениев столбцах данные по продукции. нужно сравнить данные в столбцах АВС, с данными в столбцах KLM, а потом сравнить данные из KLM с данными в столбцах ABC, и выделить их цветом.

Автор - Espada
Дата добавления - 25.09.2014 в 09:55
wild_pig Дата: Четверг, 25.09.2014, 10:53 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 516
Репутация: 97 ±
Замечаний: 0% ±

2003, 2013
[vba]
Код
Sub uuu()
       Dim a(), b()
       Dim i&, ii&
       With Range("A2:C" & Cells(Rows.Count, 1).End(xlUp).Row)
           .Interior.Color = 12379352
           a = .Value
       End With
       With Range("K2:M" & Cells(Rows.Count, 6).End(xlUp).Row)
           .Interior.Color = 12040422
           b = .Value
       End With
       For i = 1 To UBound(a)
           For ii = 1 To UBound(b)
               If a(i, 3) = b(ii, 3) Then Range(Cells(i + 1, 1), Cells(i + 1, 3)).Interior.Color = xlNone
           Next
       Next
       For i = 1 To UBound(b)
           For ii = 1 To UBound(a)
               If b(i, 3) = a(ii, 3) Then Range(Cells(i + 1, 6), Cells(i + 1, 8)).Interior.Color = xlNone
           Next
       Next
End Sub
[/vba]


Сообщение отредактировал wild_pig - Четверг, 25.09.2014, 17:20
 
Ответить
Сообщение[vba]
Код
Sub uuu()
       Dim a(), b()
       Dim i&, ii&
       With Range("A2:C" & Cells(Rows.Count, 1).End(xlUp).Row)
           .Interior.Color = 12379352
           a = .Value
       End With
       With Range("K2:M" & Cells(Rows.Count, 6).End(xlUp).Row)
           .Interior.Color = 12040422
           b = .Value
       End With
       For i = 1 To UBound(a)
           For ii = 1 To UBound(b)
               If a(i, 3) = b(ii, 3) Then Range(Cells(i + 1, 1), Cells(i + 1, 3)).Interior.Color = xlNone
           Next
       Next
       For i = 1 To UBound(b)
           For ii = 1 To UBound(a)
               If b(i, 3) = a(ii, 3) Then Range(Cells(i + 1, 6), Cells(i + 1, 8)).Interior.Color = xlNone
           Next
       Next
End Sub
[/vba]

Автор - wild_pig
Дата добавления - 25.09.2014 в 10:53
Espada Дата: Четверг, 25.09.2014, 11:36 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

Sub uuu()

круто) вставил в полную версию файла, красные всё прекрасно показывает, а зелёные подкачали не показывают вообще
К сообщению приложен файл: ___.xlsx (70.6 Kb)
 
Ответить
Сообщение
Sub uuu()

круто) вставил в полную версию файла, красные всё прекрасно показывает, а зелёные подкачали не показывают вообще

Автор - Espada
Дата добавления - 25.09.2014 в 11:36
The_Prist Дата: Четверг, 25.09.2014, 11:38 | Сообщение № 6
Группа: Друзья
Ранг: Участник
Сообщений: 85
Репутация: 22 ±
Замечаний: 0% ±

2010


Errare humanum est, stultum est in errore perseverare
 
Ответить
СообщениеКросс

Автор - The_Prist
Дата добавления - 25.09.2014 в 11:38
Espada Дата: Четверг, 25.09.2014, 11:45 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

Кросс

начальство, требует быстрого решения вопроса, ищу где могу)
 
Ответить
Сообщение
Кросс

начальство, требует быстрого решения вопроса, ищу где могу)

Автор - Espada
Дата добавления - 25.09.2014 в 11:45
Hugo Дата: Четверг, 25.09.2014, 11:57 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

2019
На практике достаточно 2 раза по соседнему столбцу протянуть примерно такую формулу:
Код
=COUNTIF($M$2:$M$30,C2)

и затем отфильтровать и если нужно закрасить, или УФ настроить (если не лень).


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеНа практике достаточно 2 раза по соседнему столбцу протянуть примерно такую формулу:
Код
=COUNTIF($M$2:$M$30,C2)

и затем отфильтровать и если нужно закрасить, или УФ настроить (если не лень).

Автор - Hugo
Дата добавления - 25.09.2014 в 11:57
Espada Дата: Четверг, 25.09.2014, 12:04 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

и затем отфильтровать и если нужно закрасить, или УФ настроить (если не лень).

будут большие объёмы данных. формулу =СЧЁТЕСЛИ, сейчас пробую. отчёт этот формирую из ЕРП Галактика, и хочу чтобы после формирования, автоматом подключался макрос на обработку данных, тоесть прогоняло все данные и отмечало цветами. минимум ручной работы. пробую подогнать код который дал wild_pig, но пока не получается
 
Ответить
Сообщение
и затем отфильтровать и если нужно закрасить, или УФ настроить (если не лень).

будут большие объёмы данных. формулу =СЧЁТЕСЛИ, сейчас пробую. отчёт этот формирую из ЕРП Галактика, и хочу чтобы после формирования, автоматом подключался макрос на обработку данных, тоесть прогоняло все данные и отмечало цветами. минимум ручной работы. пробую подогнать код который дал wild_pig, но пока не получается

Автор - Espada
Дата добавления - 25.09.2014 в 12:04
Hugo Дата: Четверг, 25.09.2014, 12:14 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

2019
Если большой объём, то цвета это не лучшее решение:
1.долго ставить
2.трудно анализировать глазами (хотя можно конечно фильтровать в новых версиях)

Я обычно или ставлю метки в соседнем столбце (по ним легко фильтровать/сортировать, и быстро ставятся), или что чаще - сразу отбираю нужное на другой лист. Вот зачем это всё Вам нужно?


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеЕсли большой объём, то цвета это не лучшее решение:
1.долго ставить
2.трудно анализировать глазами (хотя можно конечно фильтровать в новых версиях)

Я обычно или ставлю метки в соседнем столбце (по ним легко фильтровать/сортировать, и быстро ставятся), или что чаще - сразу отбираю нужное на другой лист. Вот зачем это всё Вам нужно?

Автор - Hugo
Дата добавления - 25.09.2014 в 12:14
Espada Дата: Четверг, 25.09.2014, 12:19 | Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

2.трудно анализировать глазами (хотя можно конечно фильтровать в новых версиях)

расскажу как я себе представляю себе это в конце) выгружаются данные=> по ним проходит макрос, раскидывая по цветам(красный/ зелёный / бесцветный),потом на второй лист выводится таблица со всеми красными строками, а на третий таблица с зелёными значениями)
 
Ответить
Сообщение
2.трудно анализировать глазами (хотя можно конечно фильтровать в новых версиях)

расскажу как я себе представляю себе это в конце) выгружаются данные=> по ним проходит макрос, раскидывая по цветам(красный/ зелёный / бесцветный),потом на второй лист выводится таблица со всеми красными строками, а на третий таблица с зелёными значениями)

Автор - Espada
Дата добавления - 25.09.2014 в 12:19
Hugo Дата: Четверг, 25.09.2014, 12:39 | Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

2019
Ну так вот сразу и нужно эти строки/значения отбирать на другие листы. И нужно ли обязательно красить? На эту покраску будет тратиться 90% времени работы макроса.
А вообще таких сравнений было на форуме думаю сотня-две, или даже больше, уже давно в очередной раз повторяться неинтересно.


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеНу так вот сразу и нужно эти строки/значения отбирать на другие листы. И нужно ли обязательно красить? На эту покраску будет тратиться 90% времени работы макроса.
А вообще таких сравнений было на форуме думаю сотня-две, или даже больше, уже давно в очередной раз повторяться неинтересно.

Автор - Hugo
Дата добавления - 25.09.2014 в 12:39
Espada Дата: Четверг, 25.09.2014, 12:53 | Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 0 ±
Замечаний: 40% ±

И нужно ли обязательно красить? На эту покраску будет тратиться 90% времени работы макроса.

хм... реально можно таблицы сразу на разные листы разнести, и просто сравинть между собой, одинаковые пункты удалить... спасибо)
 
Ответить
Сообщение
И нужно ли обязательно красить? На эту покраску будет тратиться 90% времени работы макроса.

хм... реально можно таблицы сразу на разные листы разнести, и просто сравинть между собой, одинаковые пункты удалить... спасибо)

Автор - Espada
Дата добавления - 25.09.2014 в 12:53
Hugo Дата: Четверг, 25.09.2014, 13:11 | Сообщение № 14
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

2019
Реально можно разнести, но не удалить одинаковые (лишняя работа), а разнести только то, что нужно там видеть. Это если делать макросом и оптимально.
Но если делать вручную, то так и делайте - скопипастили, протянули СЧЕТЕСЛИ(), отсортировали, удалили.

Чтоб писать код - нужна полная ясность по процессу: что с чем сравнивать, что именно копировать на другие листы.


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеРеально можно разнести, но не удалить одинаковые (лишняя работа), а разнести только то, что нужно там видеть. Это если делать макросом и оптимально.
Но если делать вручную, то так и делайте - скопипастили, протянули СЧЕТЕСЛИ(), отсортировали, удалили.

Чтоб писать код - нужна полная ясность по процессу: что с чем сравнивать, что именно копировать на другие листы.

Автор - Hugo
Дата добавления - 25.09.2014 в 13:11
Мир MS Excel » Вопросы и решения » Вопросы по VBA » сверка на совпадение (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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