Как можно закрасить все ячейки сразу по образцу . То есть A, B, это образцы , нужно так же закрасить в BL, BM ! Как это можно сделать формулой ? Что еще можете предложить?
Как можно закрасить все ячейки сразу по образцу . То есть A, B, это образцы , нужно так же закрасить в BL, BM ! Как это можно сделать формулой ? Что еще можете предложить?akademik90
Pelena, Этот метод даже школьник знает,неужели Вы подумали что из за такого пустяка я создам тему, вы откройте файл посмотрите что там , текст может быть разным мне нужно именно форматирование по тексту ! Чтоб какой текст как раскрашен в A B также нужно чтоб формула или макрос нашел текст в BL BM и раскрасил тем же текстом!
Pelena, Этот метод даже школьник знает,неужели Вы подумали что из за такого пустяка я создам тему, вы откройте файл посмотрите что там , текст может быть разным мне нужно именно форматирование по тексту ! Чтоб какой текст как раскрашен в A B также нужно чтоб формула или макрос нашел текст в BL BM и раскрасил тем же текстом!akademik90
HOC EST VIVERE BIS, VITA POSSE PRIORE FRUI
Сообщение отредактировал akademik90 - Пятница, 20.01.2017, 14:07
В данном случае вы даете образец формата, но не описываете что к чему должно применится. Второе было не понятно да и сейчас не очень, так как не очевидно что является ключом. А так, можно сделать скриптом, можно сделать чтоб скрипт изменял условный фильтр формат в соответствии с "образцом" если он меняется.... Главное понять, что чем красить.
akademik90,
В данном случае вы даете образец формата, но не описываете что к чему должно применится. Второе было не понятно да и сейчас не очень, так как не очевидно что является ключом. А так, можно сделать скриптом, можно сделать чтоб скрипт изменял условный фильтр формат в соответствии с "образцом" если он меняется.... Главное понять, что чем красить.bmv98rus
Замечательный Временно просто медведь , процентов на 20.
Сообщение отредактировал bmv98rus - Пятница, 20.01.2017, 14:25
Как можно закрасить все ячейки сразу по образцу . То есть A, B, это образцы , нужно так же закрасить в BL, BM ! Как это можно сделать формулой ? Что еще можете предложить?
Как можно закрасить все ячейки сразу по образцу . То есть A, B, это образцы , нужно так же закрасить в BL, BM ! Как это можно сделать формулой ? Что еще можете предложить?
Нет понятия в информационных технологиях "сделать что-то согласно текста" есть "сделать то и это по алгоритму, правилу" ..... и это должно быть описано. Догадываться что вы предположили под согласно текста, можно, но сложно. В Вашем случае скриптом - перебор BL поиск значения в A и при присутствии искомого слова (значения БЛ), смена цвета фона BL, BM на тот что будет найден в А.
Ну например так [vba]
Код
Sub Paint() Application.ScreenUpdating = False Application.EnableEvents = False
For Each Mycell In Range("BL1", Range("BL65536").End(xlUp)) Set templatecell = Range("a:A").Find(What:=Mycell.Value, LookIn:=xlFormulas _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=True, SearchFormat:=False) If Not IsEmpty(templatecell) Then Application.CutCopyMode = False templatecell.Copy Mycell.Resize(, 2).PasteSpecial Paste:=xlPasteFormats End If Next Application.ScreenUpdating = True Application.EnableEvents = True End Sub
[/vba] Но не сработает если объединены ячейки.
akademik90,
Нет понятия в информационных технологиях "сделать что-то согласно текста" есть "сделать то и это по алгоритму, правилу" ..... и это должно быть описано. Догадываться что вы предположили под согласно текста, можно, но сложно. В Вашем случае скриптом - перебор BL поиск значения в A и при присутствии искомого слова (значения БЛ), смена цвета фона BL, BM на тот что будет найден в А.
Ну например так [vba]
Код
Sub Paint() Application.ScreenUpdating = False Application.EnableEvents = False
For Each Mycell In Range("BL1", Range("BL65536").End(xlUp)) Set templatecell = Range("a:A").Find(What:=Mycell.Value, LookIn:=xlFormulas _ , LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=True, SearchFormat:=False) If Not IsEmpty(templatecell) Then Application.CutCopyMode = False templatecell.Copy Mycell.Resize(, 2).PasteSpecial Paste:=xlPasteFormats End If Next Application.ScreenUpdating = True Application.EnableEvents = True End Sub
[/vba] Но не сработает если объединены ячейки.bmv98rus
Замечательный Временно просто медведь , процентов на 20.
Сообщение отредактировал bmv98rus - Пятница, 20.01.2017, 15:54
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
