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

Вход

Регистрация

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

 

= Мир MS Excel/Изменения шрифта в цветных ячейках - Мир MS Excel

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

Excel 2013
Есть большая таблица, информация в которой уже введена, цвет шрифта ВСЕХ ЯЧЕЕК - Automatic. Нужно изменить ЦВЕТ ШРИФТА на произвольный (например, 95% черного), но ТОЛЬКО ВО ВСЕХ ЗАКРАШЕННЫХ ЯЧЕЙКАХ, оставив остальные, незакрашенные ячейки с прежним цветом шрифта. В приведенном примере - цвет шрифта должен быть изменен для ячеек B2-D2, F3-G3, C4-F4 и т.д.
Возможно, это можно сделать без макроса, но с макросом, вероятно проще. Есть ли такая возможность? Спасибо!
К сообщению приложен файл: __.xlsx (10.9 Kb)
 
Ответить
СообщениеЕсть большая таблица, информация в которой уже введена, цвет шрифта ВСЕХ ЯЧЕЕК - Automatic. Нужно изменить ЦВЕТ ШРИФТА на произвольный (например, 95% черного), но ТОЛЬКО ВО ВСЕХ ЗАКРАШЕННЫХ ЯЧЕЙКАХ, оставив остальные, незакрашенные ячейки с прежним цветом шрифта. В приведенном примере - цвет шрифта должен быть изменен для ячеек B2-D2, F3-G3, C4-F4 и т.д.
Возможно, это можно сделать без макроса, но с макросом, вероятно проще. Есть ли такая возможность? Спасибо!
Автор - morozovvv
Дата добавления - 17.10.2014 в 16:31
Pelena Дата: Пятница, 17.10.2014, 18:30 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19195
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Выделить ячейки по цвету можно через окно Найти.
Ctrl+F -- нажимаем кнопку Параметры -- находим кнопку Формат и кликаем по стрелочке на ней -- Выбрать формат из ячейки -- кликаем по цветной ячейке -- Найти все.
В нижней части окна Найти появляется список ячеек с тем же форматированием, что и образец. Их надо выделить все, т.е. выделить первую строчку, зажать Shift, прокрутить, и выделить последнюю.
Закрыть окно Найти. Дальше уже меняем цвет шрифта.
Единственное, что пришлось сделать перед этим, заменить цвет Авто на Чёрный
К сообщению приложен файл: -18-.xlsx (9.6 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВыделить ячейки по цвету можно через окно Найти.
Ctrl+F -- нажимаем кнопку Параметры -- находим кнопку Формат и кликаем по стрелочке на ней -- Выбрать формат из ячейки -- кликаем по цветной ячейке -- Найти все.
В нижней части окна Найти появляется список ячеек с тем же форматированием, что и образец. Их надо выделить все, т.е. выделить первую строчку, зажать Shift, прокрутить, и выделить последнюю.
Закрыть окно Найти. Дальше уже меняем цвет шрифта.
Единственное, что пришлось сделать перед этим, заменить цвет Авто на Чёрный
Автор - Pelena
Дата добавления - 17.10.2014 в 18:30
SkyPro Дата: Пятница, 17.10.2014, 18:46 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub fontColor()
For Each c In Selection
     If c.Interior.Color <> xlNone Then c.Font.Color = -14935012
Next
End Sub
[/vba]
Выделяете и запускаете.

skypro1111@gmail.com
 
Ответить
Сообщение[vba]
Код
Sub fontColor()
For Each c In Selection
     If c.Interior.Color <> xlNone Then c.Font.Color = -14935012
Next
End Sub
[/vba]
Выделяете и запускаете.
Автор - SkyPro
Дата добавления - 17.10.2014 в 18:46
morozovvv Дата: Пятница, 17.10.2014, 22:27 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, SkyPro, спасибо большое, проверю оба и обязательно отвечу. SkyPro, это то, о чем я думал, но не умею... Все гениальное просто. Пока не закрываю, проверю и отвечу. :)
 
Ответить
СообщениеPelena, SkyPro, спасибо большое, проверю оба и обязательно отвечу. SkyPro, это то, о чем я думал, но не умею... Все гениальное просто. Пока не закрываю, проверю и отвечу. :)
Автор - morozovvv
Дата добавления - 17.10.2014 в 22:27
SkyPro Дата: Пятница, 17.10.2014, 22:46 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
Цитата morozovvv, 17.10.2014 в 22:27, в сообщении № 4
я думал, но не умею

Думать не умеете? :)

skypro1111@gmail.com
 
Ответить
Сообщение
Цитата morozovvv, 17.10.2014 в 22:27, в сообщении № 4
я думал, но не умею

Думать не умеете? :)
Автор - SkyPro
Дата добавления - 17.10.2014 в 22:46
morozovvv Дата: Пятница, 17.10.2014, 22:55 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
SkyPro, проверил работу кода. Даже не понимаю, почему может не работать, но... незакрашенные ячейки тоже преобраэуют шрифт. Тест - установить фильтр по цвету шрифта по любому столбцу - должны остаться только закрашенные строки...
Возможно нужно предварительно установить цвет шрифта для всех ячеек - "нулевой"...
К сообщению приложен файл: 8918716.xlsx (9.8 Kb)
 
Ответить
СообщениеSkyPro, проверил работу кода. Даже не понимаю, почему может не работать, но... незакрашенные ячейки тоже преобраэуют шрифт. Тест - установить фильтр по цвету шрифта по любому столбцу - должны остаться только закрашенные строки...
Возможно нужно предварительно установить цвет шрифта для всех ячеек - "нулевой"...
Автор - morozovvv
Дата добавления - 17.10.2014 в 22:55
RAN Дата: Пятница, 17.10.2014, 23:06 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
If c.Interior.Pattern <> xlNone
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
If c.Interior.Pattern <> xlNone
[/vba]
Автор - RAN
Дата добавления - 17.10.2014 в 23:06
SkyPro Дата: Суббота, 18.10.2014, 00:07 | Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
:D
Это я думать не умею!
Хотя ну его.. не хочу быть виноватым. Это все пятница, плохая погода и 15 минут до "домой".

skypro1111@gmail.com
 
Ответить
Сообщение:D
Это я думать не умею!
Хотя ну его.. не хочу быть виноватым. Это все пятница, плохая погода и 15 минут до "домой".
Автор - SkyPro
Дата добавления - 18.10.2014 в 00:07
morozovvv Дата: Суббота, 18.10.2014, 14:31 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Спасибо всем, друзья, теперь это работает как надо, вы мне помогли упростить ручной труд... :)
Тему закрываю, удачи всем!
К сообщению приложен файл: 4025753.xlsx (9.9 Kb)


Сообщение отредактировал morozovvv - Суббота, 18.10.2014, 14:53
 
Ответить
СообщениеСпасибо всем, друзья, теперь это работает как надо, вы мне помогли упростить ручной труд... :)
Тему закрываю, удачи всем!
Автор - morozovvv
Дата добавления - 18.10.2014 в 14:31
morozovvv Дата: Суббота, 18.10.2014, 14:52 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, Ваш вариант обязательно тоже проверю, спасибо за него! Макрос работает!
 
Ответить
СообщениеPelena, Ваш вариант обязательно тоже проверю, спасибо за него! Макрос работает!
Автор - morozovvv
Дата добавления - 18.10.2014 в 14:52
The_Prist Дата: Суббота, 18.10.2014, 16:25 | Сообщение № 11
Группа: Друзья
Ранг: Участник
Сообщений: 85
Репутация: 22 ±
Замечаний: 0% ±

2010
У свойства Color нет индекса для xlNone - xlNone надо применять к c.Interior.ColorIndex. Тогда будет работать и первоначальный вариант.

Errare humanum est, stultum est in errore perseverare
 
Ответить
СообщениеУ свойства Color нет индекса для xlNone - xlNone надо применять к c.Interior.ColorIndex. Тогда будет работать и первоначальный вариант.
Автор - The_Prist
Дата добавления - 18.10.2014 в 16:25
morozovvv Дата: Понедельник, 20.10.2014, 10:00 | Сообщение № 12
Группа: Пользователи
Ранг: Новичок
Сообщений: 14
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Pelena, Ваш способ тоже хорошо работает и главное - прост и понятен, большое спасибо!!! :)
Тема закрыта.
 
Ответить
СообщениеPelena, Ваш способ тоже хорошо работает и главное - прост и понятен, большое спасибо!!! :)
Тема закрыта.
Автор - morozovvv
Дата добавления - 20.10.2014 в 10:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Изменения шрифта в цветных ячейках (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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