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

Вход

Регистрация

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

 

= Мир MS Excel/Раскраска ячеек макросом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Раскраска ячеек макросом (Макросы/Sub)
Раскраска ячеек макросом
Hiryrg Дата: Вторник, 31.03.2015, 08:44 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте помогите написать макрос если возможно.

Мне постоянно приходится выгружать из программы файлы и сравнивать их на добавление новых подключений.
Для наглядности я стал их перекрашивать.
Как я делаю:
В столбце E находится список типов сч-ков (есть множество типов сч-ков)(мне нужны только те которые начинаются на NP)
1)Забиваю в поиске NP он находит список выделяю его и перекрашиваю в зеленый цвет.
2)ставлю фильтр на ячейки (B2:E2).
3)В фильтре на столбце E ставлю все белые ячейки (И он выдает мне список всех типов сч-ков которые не начинаются на NP).
4)Выделяю все оставшиеся с ячейки B3:Е3 и до конца списка и перекрашиваю их в желтый.
4)отжимаю фильтр.
И в итоги у меня получается список где все счетчики которые начинаются не на NP перекрашены в желты цвет.

файл:1111111 оригинал
файл:2222222 что должно получится
[moder]Переназовите тему согласно п. 2 Правил форума.
Например, "Раскраска ячеек по условию".
До этого все ответы буду скрывать.
К сообщению приложен файл: 1111111.xls (56.0 Kb) · 2222222.xls (68.0 Kb)


Сообщение отредактировал Hiryrg - Вторник, 31.03.2015, 10:31
 
Ответить
СообщениеЗдравствуйте помогите написать макрос если возможно.

Мне постоянно приходится выгружать из программы файлы и сравнивать их на добавление новых подключений.
Для наглядности я стал их перекрашивать.
Как я делаю:
В столбце E находится список типов сч-ков (есть множество типов сч-ков)(мне нужны только те которые начинаются на NP)
1)Забиваю в поиске NP он находит список выделяю его и перекрашиваю в зеленый цвет.
2)ставлю фильтр на ячейки (B2:E2).
3)В фильтре на столбце E ставлю все белые ячейки (И он выдает мне список всех типов сч-ков которые не начинаются на NP).
4)Выделяю все оставшиеся с ячейки B3:Е3 и до конца списка и перекрашиваю их в желтый.
4)отжимаю фильтр.
И в итоги у меня получается список где все счетчики которые начинаются не на NP перекрашены в желты цвет.

файл:1111111 оригинал
файл:2222222 что должно получится
[moder]Переназовите тему согласно п. 2 Правил форума.
Например, "Раскраска ячеек по условию".
До этого все ответы буду скрывать.
Автор - Hiryrg
Дата добавления - 31.03.2015 в 08:44
Roman777 Дата: Вторник, 31.03.2015, 09:18 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Hiryrg, Добрый день!
Если вы хотите именно закрашивать текст с содержанием "NP" то проще всего воспользоваться условным форматированием, по условию "если текст содержит "NP".

Много чего не знаю!!!!
 
Ответить
СообщениеHiryrg, Добрый день!
Если вы хотите именно закрашивать текст с содержанием "NP" то проще всего воспользоваться условным форматированием, по условию "если текст содержит "NP".
Автор - Roman777
Дата добавления - 31.03.2015 в 09:18
Nic70y Дата: Вторник, 31.03.2015, 09:46 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 8791
Репутация: 2293 ±
Замечаний: 0% ±

Excel 2010
Цитата
Модератор:
Переназовите файл
как же так?
[moder]Точно!
"Нет, меня вы с ума не сведете!".
Спасибо, поправил.

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата
Модератор:
Переназовите файл
как же так?
[moder]Точно!
"Нет, меня вы с ума не сведете!".
Спасибо, поправил.
Автор - Nic70y
Дата добавления - 31.03.2015 в 09:46
KuklP Дата: Вторник, 31.03.2015, 09:47 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
В модуль листа:
[vba]
Код
Sub www()
         Dim lr&
         On Error Resume Next
         With Me
             lr = .Cells(.Rows.Count, 1).End(xlUp).Row
             .Range("$A$2:$F$" & lr).Interior.ColorIndex = xlNone
             .Range("$A$2:$F$" & lr).AutoFilter Field:=5, Criteria1:="=NP*"
             .Range("e3:F" & lr).SpecialCells(12).Interior.ColorIndex = 4
             .Range("A2:F" & lr).AutoFilter Field:=5, Criteria1:="<>NP*"
             .Range("b3:F" & lr).SpecialCells(12).Interior.ColorIndex = 6
             .AutoFilterMode = 0
         End With
End Sub
[/vba]
К сообщению приложен файл: 4843469.xls (62.5 Kb)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Вторник, 31.03.2015, 12:10
 
Ответить
СообщениеВ модуль листа:
[vba]
Код
Sub www()
         Dim lr&
         On Error Resume Next
         With Me
             lr = .Cells(.Rows.Count, 1).End(xlUp).Row
             .Range("$A$2:$F$" & lr).Interior.ColorIndex = xlNone
             .Range("$A$2:$F$" & lr).AutoFilter Field:=5, Criteria1:="=NP*"
             .Range("e3:F" & lr).SpecialCells(12).Interior.ColorIndex = 4
             .Range("A2:F" & lr).AutoFilter Field:=5, Criteria1:="<>NP*"
             .Range("b3:F" & lr).SpecialCells(12).Interior.ColorIndex = 6
             .AutoFilterMode = 0
         End With
End Sub
[/vba]
Автор - KuklP
Дата добавления - 31.03.2015 в 09:47
KolyvanOFF Дата: Вторник, 31.03.2015, 10:47 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
А условное форматирование не але?

С уважением, Евгений
 
Ответить
СообщениеА условное форматирование не але?
Автор - KolyvanOFF
Дата добавления - 31.03.2015 в 10:47
KolyvanOFF Дата: Вторник, 31.03.2015, 11:01 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 217
Репутация: 7 ±
Замечаний: 60% ±

Excel 2010
как то так
К сообщению приложен файл: _1111111.xls (59.0 Kb)

С уважением, Евгений
 
Ответить
Сообщениекак то так
Автор - KolyvanOFF
Дата добавления - 31.03.2015 в 11:01
Hiryrg Дата: Вторник, 31.03.2015, 11:03 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Нет условное форматирование не катит потом неудобно сравнивать 2 файла
надо чтоб закрашивался жёлтым столбики B:E а не ячейка E
вот так


Сообщение отредактировал Hiryrg - Вторник, 31.03.2015, 11:10
 
Ответить
СообщениеНет условное форматирование не катит потом неудобно сравнивать 2 файла
надо чтоб закрашивался жёлтым столбики B:E а не ячейка E
вот так
Автор - Hiryrg
Дата добавления - 31.03.2015 в 11:03
Leanna Дата: Вторник, 31.03.2015, 11:35 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 189
Репутация: 78 ±
Замечаний: 0% ±

excel 2010
Попробуйте. Макросом.
К сообщению приложен файл: 333333.xls (87.0 Kb)

Лучше день потерять, потом за пять минут долететь!

Сообщение отредактировал Leanna - Вторник, 31.03.2015, 12:17
 
Ответить
СообщениеПопробуйте. Макросом.
Автор - Leanna
Дата добавления - 31.03.2015 в 11:35
Roman777 Дата: Вторник, 31.03.2015, 11:49 | Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Hiryrg, А что вам мешает закрашивать A:E условным форматированием??
Файл прикрепил.
К сообщению приложен файл: _1111111_.xls (59.0 Kb)

Много чего не знаю!!!!
 
Ответить
СообщениеHiryrg, А что вам мешает закрашивать A:E условным форматированием??
Файл прикрепил.
Автор - Roman777
Дата добавления - 31.03.2015 в 11:49
Roman777 Дата: Вторник, 31.03.2015, 11:51 | Сообщение № 10
Группа: Проверенные
Ранг: Ветеран
Сообщений: 980
Репутация: 127 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
Был невнимателен, выделил А:E, когда надо B:E, но это легко подправить.
К сообщению приложен файл: 3646036.xls (65.5 Kb)

Много чего не знаю!!!!
 
Ответить
СообщениеБыл невнимателен, выделил А:E, когда надо B:E, но это легко подправить.
Автор - Roman777
Дата добавления - 31.03.2015 в 11:51
RAN Дата: Вторник, 31.03.2015, 11:52 | Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Вы не любите кошек?
Вы просто не умеете их готовить.
К сообщению приложен файл: 4621170.xls (66.0 Kb)

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеВы не любите кошек?
Вы просто не умеете их готовить.
Автор - RAN
Дата добавления - 31.03.2015 в 11:52
МВТ Дата: Вторник, 31.03.2015, 12:05 | Сообщение № 12
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 0% ±

Excel 2007
Вот через УФ, вроде работает
К сообщению приложен файл: 0293550.xls (48.0 Kb)
 
Ответить
СообщениеВот через УФ, вроде работает
Автор - МВТ
Дата добавления - 31.03.2015 в 12:05
KuklP Дата: Вторник, 31.03.2015, 12:15 | Сообщение № 13
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Ребят, я один вижу Сообщение № 7 в этой теме? Иначе почему все постят варианты с УФ?

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Сообщение отредактировал KuklP - Вторник, 31.03.2015, 12:15
 
Ответить
СообщениеРебят, я один вижу Сообщение № 7 в этой теме? Иначе почему все постят варианты с УФ?
Автор - KuklP
Дата добавления - 31.03.2015 в 12:15
RAN Дата: Вторник, 31.03.2015, 12:42 | Сообщение № 14
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Макросом не интеремно. :D

Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеМакросом не интеремно. :D
Автор - RAN
Дата добавления - 31.03.2015 в 12:42
Hiryrg Дата: Вторник, 31.03.2015, 12:56 | Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 17
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Ребят а как еще поставить макросом фильтр в диапазон B2:E2
[moder]Вопрос к теме не относится[/moder]
относится второй пункт

2)ставлю фильтр на ячейки (B2:E2).


Сообщение отредактировал Hiryrg - Вторник, 31.03.2015, 13:18
 
Ответить
СообщениеРебят а как еще поставить макросом фильтр в диапазон B2:E2
[moder]Вопрос к теме не относится[/moder]
относится второй пункт

2)ставлю фильтр на ячейки (B2:E2).
Автор - Hiryrg
Дата добавления - 31.03.2015 в 12:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Раскраска ячеек макросом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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