Изменение шрифта excel при условии - Word и Excel - помощь в работе с программами

Вы когда-нибудь представляли, как меняют цвет шрифта на основе значения ячейки в Excel? Возьмем, к примеру, когда данные отрицательны, вы можете захотеть, чтобы цвет шрифта данных был красным, или вам нужно, чтобы данные были черными. Здесь я расскажу о некоторых удобных способах помочь вам сэкономить время на изменении цвета шрифта по значению ячейки в Excel.

Изменение цвета шрифта в зависимости от значения ячейки с помощью условного форматирования

Измените цвет шрифта на основе значения ячейки с помощью Select Specific Cells

В Excel условное форматирование может помочь при изменении цвета шрифта по ячейке.

(1) Измените цвет шрифта, если он отрицательный / положительный

Если вы хотите изменить цвет шрифта, если значения ячеек отрицательные или положительные, вы можете сделать следующее:

1. Выберите значения ячеек и щелкните Главная > Условное форматирование > Новое правило. Смотрите скриншот:

2. Затем в Новое правило форматирования диалоговое окно, выберите Форматировать только ячейки, содержащие в Выберите тип правила: раздел, и если вы хотите изменить цвет шрифта, если значение ячейки отрицательное, вы можете выбрать Значение ячейки из первого списка и выберите меньше, чем из среднего списка, а затем введите 0 в правое текстовое поле. Смотрите скриншот:

Наконечник: Если вы хотите изменить цвет шрифта положительных значений, просто выберите «Больше чем» из среднего списка.

3. Нажмите Формат идти на Формат ячеек диалоговое окно, затем под шрифт на вкладке выберите нужный цвет из Цвет список. Смотрите скриншот:

4. Нажмите OK > OK закрыть диалоги. Теперь все отрицательные значения меняют цвет шрифта на красный.

(2) Измените цвет шрифта, если больше / меньше чем

Если вы хотите изменить цвет шрифта, когда значения больше или меньше определенного значения, вы можете сделать следующее:

1. Выберите значения ячеек и щелкните Главная > Условное форматирование > Новое правило.

2. Затем в Новое правило форматирования диалоговое окно, выберите Форматировать только ячейки, содержащие в Выберите тип правила: раздел, выбрать Значение ячейки из первого списка и больше из среднего списка, а затем введите конкретное значение в правое текстовое поле. Смотрите скриншот:

Наконечник: Если вы хотите изменить цвет шрифта, когда значения ячеек меньше определенного значения, просто выберите меньше, чем из среднего списка.

3. Нажмите Формат идти на Формат ячеек диалоговое окно, затем под шрифт на вкладке выберите нужный цвет из Цвет список. Затем нажмите OK > OK закрыть диалоги. Все значения больше, чем 50 был изменен цвет шрифта на оранжевый.

(3) Измените цвет шрифта, если он содержит

Если вы хотите изменить цвет шрифта, если значения ячеек содержат определенный текст, например, изменить цвет шрифта, если значение ячейки содержит KTE, вы можете сделать следующее:

1. Выберите значения ячеек и щелкните Главная > Условное форматирование > Новое правило.

2. Затем в Новое правило форматирования диалоговое окно, выберите Форматировать только ячейки, содержащие в Выберите тип правила: раздел, выбрать Конкретный текст из первого списка и Содержащие из среднего списка, а затем введите конкретный текст в правое текстовое поле. Смотрите скриншот:

3. Нажмите Формат идти на Формат ячеек диалоговое окно, затем под шрифт на вкладке выберите нужный цвет из Цвет список. Затем нажмите OK > OK закрыть диалоги. Все ячейки, содержащие КТЭ был изменен цвет шрифта на указанный цвет.

Если вам нравится опробовать удобные надстройки, вы можете попробовать Kutools for Excel, есть утилита под названием Выбрать определенные ячейки можно быстро выбрать ячейки, отвечающие одному или двум критериям, а затем изменить их цвет шрифта.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Выберите ячейки, с которыми хотите работать, и нажмите Кутулс > Выберите > Выбрать определенные ячейки. Смотрите скриншот:

2. в Выбрать определенные ячейки диалог, проверьте Ячейка вариант под Тип выбораИ выберите Комплект под Конкретный тип, затем введите конкретный текст в текстовое поле

3. Нажмите Ok > OK закрыть диалоги.

4. Затем были выделены все ячейки, содержащие KTE, и перейдите к Главная > Цвет шрифта чтобы выбрать нужный цвет шрифта.

Примечание:

1. С Kutools for ExcelАвтора Выбрать определенные ячейки утилита, вы также можете выбрать ячейки, соответствующие нижеприведенному критерию:

2. Также вы можете выбрать ячейки, соответствующие двум критериям. Выберите первый критерий из первого раскрывающегося списка, затем выберите второй критерий из второго раскрывающегося списка, и, если вы хотите выбрать ячейки, соответствующие двум критериям одновременно, отметьте И, вариант, если вы хотите выбрать ячейки, соответствующие одному из двух критериев, установите флажок Or опцию.

Щелкните здесь, чтобы узнать больше о выборе конкретных ячеек.

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Источник

Финансы в Excel

Условное форматирование

Подробности: Создано 26 Июнь 2013

Содержание
Файл-пример
Принцип работы условного форматирования
Неявное условное форматирование
Цвет шрифта
Условие для цвета шрифта
Формат для скрытия данных
Простое условное форматирование
Выделение значения
Гистограммы
Повторяющиеся значения
Сложное условное форматирование
Скрытие неактуальных данных
Условия с применением функций рабочего листа
Разделение диапазонов при помощи рамок
Проверка на корректность формулы

Форматирование ячеек Excel предназначено для представления информации в удобном наглядном виде, что повышает уровень понимания информации. Какие-то простые одноразовые вычисления можно производить в файлах, совсем не используя форматы ячеек – результат от этого не изменится. Если же предполагается показывать или передавать отчет другим пользователям, то без форматирования не обойтись.

Стандартное простое форматирование ячеек электронной таблицы Excel с использованием цвета фона, шрифта и рамок осваивается пользователями очень быстро. На этом уровне прогресс в оформлении отчетов в большинстве случаев останавливается. Зачастую даже опытные пользователи Excel, способные написать сложную формулу, вообще не используют интерфейсное средство «Условное форматирование». Между тем, оно, с нашей точки зрения, является одним из самых полезных в процессах финансового моделирования. Под финансовыми моделями здесь понимаются файлы Excel, регулярно использующиеся в работе экономистами для получения результатов через изменение входящих параметров. Это могут быть различные плановые и бюджетные модели, файлы управленческого учета, калькуляции себестоимости и пр.

Условное форматирование, также как и стандартное, не влияет на расчеты, а отвечает только за внешний вид электронных таблиц. Но в отличие от простого формата ячеек, условное форматирование позволяет установить правила отображения информации в зависимости от произведенных вычислений. Что, в свою очередь, в разы сокращает время, необходимое для оформления отчетов.

Excel последних версий предоставляет удобный интерфейс для управления условным форматированием как через простой выбор стандартного условия, так и через традиционный ввод формул. В версиях Excel до 2007 (формат рабочей книги xls) свойства условного форматирования были привязаны к каждой ячейке по отдельности. Имелось ограничение – не более 3х форматов на ячейку. В последующих версиях (формат xlsx) это ограничения было снято, к тому же теперь условные форматы хранятся с привязкой к листу независимо от свойств каждой ячейки.

Файл-пример

Файл из приложения к статье создан для демонстрации различных примеров применения условного форматирования. Данные в файле не представляют собой какого-либо практического интереса. Формулы построения отчета о движении денежных средств в данной статье рассмотрены не будут, хотя и могут кому-то пригодится в своих экономических моделях.

Принцип работы условного форматирования

Одной из рутинных операций при работе с экономическими моделями является настройка внешнего вида отчетов после изменения исходных данных. Например, выделить цветом данные за текущий период, который изменяется с течением времени, или отметить шрифтом определенного важного клиента в наборе меняющихся записей и т.п. Облегчить такую работу можно при помощи условного форматирования Excel. Оно расширяет возможности стандартного форматирования ячеек таким образом, чтобы отображение менялось автоматически без ручной настройки ячеек в зависимости от изменения внешних условий.

Использовать условное форматирование для нескольких типов задач:

Выделение цветом или шрифтом текущей ячейки в зависимости от ее же значения.
Окраска текущей ячейки в зависимости от значения другой ячейки.
Разделение блоков информации при помощи рамок.
Скрытие неактуальных данных при помощи форматов.
Графическое отображение данных – аналог диаграмм.

Эти же задачи можно решить при помощи стандартного форматирования ячеек. Преимущество условного форматирования заключается в том, что настройку не требуется производить каждый раз при изменении результатов вычислений. Установленные один раз правила условного форматирования автоматически изменяют внешний вид электронной таблицы в зависимости от меняющейся информации.

Условное форматирование имеет более высокий приоритет перед стандартным. Так, если ячейка имеет синий цвет фона, а условное форматирование предполагает окраску красным цветом, то цвет отображения ячейки на экране при выполнении заданного условия будет именно красный. Другие непересекающиеся свойства ячейки могут быть наложены друг на друга (например, заданный шрифт не меняется), либо установлены явным образом.

На практике часто встречается ситуация, когда пользователь говорит о «глюках» форматирования: например, он устанавливает цвет шрифта, а ничего не меняется. Скорее всего, в данном случае к ячейке применено условное форматирование с заданным цветом шрифта, всегда имеющее приоритет перед стандартным форматом ячейки.

Если выполняется одновременно несколько условий, отвечающее за одно и то же свойство форматирования, то применяется первый в списке условный формат. Например, если у ячейки есть два условных формата на ее значение:

больше 10 – желтый цвет,
больше 20 – синий цвет

В случае любого значения больше 10, ячейка будет окрашена желтым цветом фона. Второй условный формат в данном случае игнорируется.

Чтобы условие работало корректно, надо в диалоге условного форматирования поменять строки местами (кнопки со стрелками в верхней части диалога). Тогда значения от 10 до 20 будут окрашены желтым, больше 20 – синим цветом фона. Еще лучше задавать условия явно – устанавливать промежуток значений «от – до» вместо просто «больше».

При помощи условного форматирования можно изменять только определенный набор свойств ячейки:

Цвет фона
Цвет шрифта, тип шрифта (но не размер или название)
Тип внешней рамки (ограниченный набор границ)
Числовой формат (не доступно в xls-файлах)

Изменить отступ, выравнивание, наклон текста, некоторые типы рамок и свойства защиты при помощи условного форматирования нельзя.

Неявное условное форматирование

Цвет шрифта

Кроме использования интерфейсного средства «Условное форматирование», поменять цвет шрифта числовой ячейки можно при помощи стандартного формата. Диалог «Формат ячейки» предлагает несколько предустановленных вариантов выделения красным цветом отрицательных чисел. То есть применяется условие, что отрицательные значения показывать не в соответствии с цветом шрифта, указанного явно в ячейке, а по правилу пользовательского формата.

Стандартно пользовательский формат числа представляет собой текстовое выражение, разделенное на 4 блока:

формат для положительных чисел
формат для отрицательных чисел
формат для нулевого значения
формат для текстового значения

Блоки в выражении разделяются точкой с запятой, цвет текста заключается в квадратные скобки. Кроме красного цвета, можно использовать другие варианты: Черный, Синий, Голубой, Зеленый, Фиолетовый, Красный, Белый, Желтый.

Условие для цвета шрифта

Кроме цвета шрифта в пользовательском формате числа можно даже задавать простые условия, отличающиеся от стандартной разбивки блоков на положительные, отрицательные и нулевые значения. Для этого используется дополнительный блок с условиями, заключенными в скобки.

В примере суммарные поступления от клиентов выделяются синим цветом шрифта, только если значение больше 10000руб (см. диапазон ОДДС!B7:Q11)

Использование сложных условий непосредственно в пользовательском формате числа (кроме цвета) не рекомендуется, так как эта устаревшая особенность Excel, сохраненная в целях обратной совместимости версий. Лучше использовать явное условное форматирование.

Формат для скрытия данных

Еще один часто используемый вариант использования числового формата – это скрытие данных в ячейке при помощи пользовательского формата «;;;» — т.е. для всех вариантов показывать пустоту. В примере таким образом скрыто выражение в ячейке ОДДС!C2, там хранится сложная формула для вычисления даты по номеру недели. Эта очень важная ячейка, значение которой используется в других условных форматах. Несмотря на то, что на экране ничего не отображается, значение можно использовать наравне с любой другой ячейкой.

Подробнее о вариантах пользовательского формата числа:

http://office.microsoft.com/ru-ru/excel-help/HP010342372.aspx

Простое условное форматирование

Выделение значения

Один из самых простых вариантов условного форматирования – это цветовое выделение в зависимости от значения числа. Стандартный диалог Excel (лента Главная Условное форматирование Создать правило Форматировать все ячейки на основании их значений) позволяет задать различные логические условия: равно, не равно, больше, меньше, между. Сравнивать можно как с константой (числом), так и со ссылкой на другую ячейку. В файле-примере таким образом отформатирован диапазон Платежи!A3:A22. Выделены даты позже даты начала текущей недели – ячейки ОДДС!C2.

Для установки условного форматирования перед вызовом диалога выделите заранее диапазон, на который будет распространяться условие. Это замечание актуально для всех вариантов установки условных форматов ячеек.

Гистограммы

Excel, начиная с версии 2007, предоставил возможность графического условного форматирования ячеек различными вариантами: гистограммы, цветовые шкалы, значки. Это простой, но очень эффектный интерфейс: требуется выделить область ячеек, затем просто выбрать вариант графического условного формата (например, лента Главная Условное форматирование Гистограммы).

В файле-примере таким образом отформатирован диапазон Платежи!C3:C22 – в виде гистограмм показаны значения платежей, хранящиеся в ячейках.

Повторяющиеся значения

Еще один стандартный пример использования условного форматирования – это выделение повторяющихся, либо уникальных значений в диапазоне.

Диапазон с гистограммами Платежи!C3:C22 дополнительно отформатирован по условию выделения жирным шрифтом повторяющихся значений:

Такое форматирование можно было организовать и в старых версиях Excel (xls), условие при этом задается формулой (в координатах примера):

=AND(COUNTIF($C$3:$C$22; C3)>1;NOT(ISBLANK(C3)))

Сложное условное форматирование

Разделение на «простое» и «сложное» условное форматирование здесь просто подразумевает наличие дополнительных навыков по созданию формул и понимание адресации Excel.

Скрытие неактуальных данных

Один из методов скрытия данных в ячейке через пользовательский формат числа уже описан в данной статье. Другой вариант скрытия значения с использованием формата ячейки – это просто окраска шрифта и фона ячейки в одинаковый цвет.

Этот способ применен при условном форматировании отчета на листе ОДДС примера. Даты ранее текущей недели, которая задается в ячейке B2, выделяются белым фоном, тогда как обычный фон для этих ячеек – светло-коричневый. Ячейки с данными об остатках на начало период скрываются за счет использования одинакового светло-серого цвета для шрифта и заливки.

Формула для ячеек сравнивает ячейку с текущей датой с ячейкой, содержащей дату начала недели. Обратите внимание на применение относительной и смешанной адресации (символ «$» в координатах). Дело в том, что по умолчанию интерфейс Excel предлагает ссылку на абсолютный адрес выделяемой ячейки, и многие ошибочно считают, что условное форматирование надо задавать отдельно для каждой ячейки диапазона. Это неверно, правила копирования адресов работают и при применении условных форматов. Но для этого надо вводить формулу вручную или удалять знаки «$» из координат ячеек.

С нашей точки зрения при использовании условного форматирования для диапазонов зачастую понятнее применение R1C1-адресации Excel. Так, в частности, очевидно, что выражение RC подразумевает текущую ячейку. Та же запись в A1-адресации без использования «$» требует дополнительной привязки к текущей ячейке, что иногда затрудняет понимание всего выражения.

Условия с применением функций рабочего листа

Условия для форматов могут содержать сложные многоуровневые выражения. Если результат формулы возвращает значение, отличное от нуля, то условие форматирования считается выполненным. Желательно, чтобы результат принимал логическое значение, т.е. TRUE=1 или FALSE=0. Это упрощает понимание выражения условного форматирования.

В примере для диапазона Поступления!A3:D20 установлено условное форматирование с проверкой на начало текстового значения в столбце C:

Разделение диапазонов при помощи рамок

Весьма полезной задачей условного форматирования при вводе массива информации по аналогии с записями базы данных является разделение блоков данных по датам. Проще всего разделять такие блоки прорисовкой границы перед началом данных следующего периода.

В примере для всего диапазона таблицы Поступления!A3:D20 установлено условное форматирование с проверкой на равенство ячейке сверху:

Обратите внимание, что для выбранного диапазона действуют два правила условного форматирования одновременно: первой отвечает за выделение жирным шрифтом, второе — за прорисовку рамки.

Проверка на корректность формулы

Еще одной типичной задачей условного форматирования является проверка больших диапазонов на идентичность, либо наличие формул. В частности типичной возможностью в задачах финансового моделирования является ввод значения вместо формулы, рассчитывающей значение по умолчанию. Например, по условиям отсрочки платежа контрагента рассчитывается некоторая сумма, но имеется возможность ее корректировки вручную в той же ячейке по реальным данным оплаты. При этом хочется видеть, в каком месте производилась корректировка, а в каком формула сохранена.

Для подобных задач часто предлагается использование UDF-функций (User-defined functions) на VBA (Visual Basic for Applications) с проверкой, хранится ли в ячейке какая-либо формула. Дело в том, что при помощи стандартных функций рабочего листа такую проверку сделать нельзя – формула может проверить только значение в ячейке, но не то, каким образом оно было получено.

Вот пример подобной функции в модуле VBA:

Option Explicit
Function HasNoFormula(oCell As Range)
   HasNoFormula = Not oCell.HasFormula
End Function

В условном форматировании можно использовать выражение:

Этот метод имеет существенные недостатки.

При использовании такой простой функции, условие будет выполняться только, если в ячейке нет никакой формулы; если же там записано «=1+1», то Excel будет считать условием выполненным. Можно явно задавать проверку на равенство определенной формуле в коде VBA, но это существенно усложняет разработку и отладку финансовой модели.

Главной проблемой при использовании UDF VBA является низкая производительность. При копировании такого условного формата на большой диапазон будет заметно запаздывание прорисовки этих ячеек, что не всегда приемлемо в работе.

Другим вариантом решения данной задачи является проверка на равенство формулы непосредственно в условии форматирования.

В примере для всего диапазона таблицы ОДДС!B20:P20 установлено такое условное форматирование:

Как видно из условия, наличие формулы в данном выражении не проверяется – сравнивается только результат. Если он отличен от заданного в формуле, то ячейка выделяется красным цветом (K20).

Если формула слишком сложная, то можно сохранить ее в служебном диапазоне ячеек (который затем можно скрыть), а проверку условного форматирования осуществлять, ссылаясь на этот диапазон.

Смотри также

» Фильтр по многоуровневым группам

Еще один пример, расширяющий грани возможного в Excel.Требуется создать фильтр, отбирающий записи в таблице сгруппированных по…

» Автоматизация диаграмм

При разработке финансовых моделей типичной задачей является наглядное представление плановых и фактических данных. Пожалуй,…

» Обработка больших объемов данных. Часть 2. Интерфейс

В статье систематизируются простые приемы обработки больших объемов данных при помощи стандартных методов интерфейса Excel. Информация…

Источник

Serg.Vrn

Пользователь

Сообщений: 91
Регистрация: 07.01.2017

08.11.2018 06:50:06

Доброе утро подскажите — как формулой менять стиль шрифта ?

Есть простое логическое условие:

Код
=ЕСЛИ(D9=1;"Times New Roman";"Arial")

Как заставить текст «»Times New Roman» — писаться в аналогичном стиле шрифта, а текст «Arial» — также в своем стиле шрифта ?
(Или может не формулой, а какой-нибудь пользовательской функцией)

Прикрепленные файлы

1.xls (27.5 КБ)

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	только макросом формулы ни чего не меняют Лень двигатель прогресса, доказано!!!

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ \| Win10x64, MSO2019x64	Формулы не меняют шрифт. Можно макросом по событию на листе. <#0> Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

Serg.Vrn

Пользователь

Сообщений: 91
Регистрация: 07.01.2017

08.11.2018 07:51:27

JayBhagavan, я же написал :

Цитата
какой-нибудь пользовательской функцией

	Serg.Vrn,Вам для чего это ? Может условное форматирование подойдёт ?

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	Александр П., УФ шрифты не меняет Лень двигатель прогресса, доказано!!!

	Сергей, Меня ввело в заблуждение слово «стиль» (почему то подумалось про стили ячеек) вдруг речь идёт о каком то выделении цвета заливки цвета шрифта курсиве и т.д. Изменено: Александр П. — 08.11.2018 08:25:51

Как вариант — используйте недокументированную возможность:

Как функцией пользователя изменить значение другой ячейки

Правда, ей далеко не все можно менять, но для каких-то целей вполне подойдет.

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

Serg.Vrn Пользователь Сообщений: 91 Регистрация: 07.01.2017	Подскажите — как пользовательской функцией в ячейке G9 — менять стиль шрифта ? То есть — как заставить текст «»Times New Roman» — писаться в аналогичном стиле шрифта, а текст «Arial» — также в своем стиле шрифта ?

JayBhagavan

Пользователь

Сообщений: 11833
Регистрация: 17.01.2014

ПОЛ: МУЖСКОЙ | Win10x64, MSO2019x64

#10

08.11.2018 13:47:03

Цитата
Serg.Vrn написал: Подскажите — как пользовательской функцией в ячейке G9 — менять стиль шрифта ?

Цитата
Сергей написал: УФ шрифты не меняет

макрос адаптируйте под свой диапазон

<#0>
Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori

Serg.Vrn Пользователь Сообщений: 91 Регистрация: 07.01.2017	JayBhagavan, а как этот макрос — сделать пользовательской функцией ? Потому что сейчас, чтобы им пользоваться приходится всякий раз — жать кнопку макроса. Изменено: Serg.Vrn — 08.11.2018 14:39:07

Пользователь

Сообщений: 6111
Регистрация: 21.12.2012

Win 10, MSO 2013 SP1

#12

08.11.2018 14:43:20

Цитата
Serg.Vrn написал: как этот макрос — сделать пользовательской функцией

Есть приемчик в «Приемах» — как вариант —

https://www.planetaexcel.ru/techniques/3/59/

«Ctrl+S» — достойное завершение ваших гениальных мыслей!..

Serg.Vrn

Пользователь

Сообщений: 91
Регистрация: 07.01.2017

#13

08.11.2018 14:50:11

Z, вот написал такой код

Код

Function Шрифт1(S)

    Dim rngTarget As Range
    Set rngTarget = Range("D9")
    ' - -
    Dim rngCell As Range
    ' - -
    For Each rngCell In rngTarget
        ' - -
        With rngCell
            ' - -
            If .Value = 1 Then
                .Font.Name = "Times New Roman"
            Else
                .Font.Name = "Arial"
            End If '.Value = 1
            ' - -
        End With 'rngCell
        ' - -
    Next rngCell
    
End Function

Дальше что с ним делать ?

	Logistic, не открывается чет..или только у меня?* или может наши It служба чет воротит) Прикрепленные файлы Снимок.JPG (39.46 КБ) Изменено: a.i.mershik — 08.11.2018 15:22:52 Не бойтесь совершенства. Вам его не достичь.

Юрий М Модератор Сообщений: 60581 Регистрация: 14.09.2012 Контакты см. в профиле

Logistic Пользователь Сообщений: 741 Регистрация: 03.01.2013	Только что проверил.Работает.

StoTisteg Пользователь Сообщений: 441 Регистрация: 07.05.2018	А мне тоже 403 возвращает…

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012

Serg.Vrn

Пользователь

Сообщений: 91
Регистрация: 07.01.2017

#20

08.11.2018 16:09:00

Подскажите — как пользовательской функцией в ячейке G9 — менять стиль шрифта в зависимости от значения ячейки D9 ?

То есть — как заставить текст «»Times New Roman» — писаться в аналогичном стиле шрифта, а текст «Arial» — также в своем стиле шрифта ?

Имеется вот такой код, который сейчас не работает:

Код

Function Шрифт1(S)
 
    Dim rngTarget As Range
    Set rngTarget = Range("D9")
    ' - -
    Dim rngCell As Range
    ' - -
    For Each rngCell In rngTarget
        ' - -
        With rngCell
            ' - -
            If .Value = 1 Then
                .Font.Name = "Times New Roman"
            Else
                .Font.Name = "Arial"
            End If '.Value = 1
            ' - -
        End With 'rngCell
        ' - -
    Next rngCell
     
End Function

StoTisteg Пользователь Сообщений: 441 Регистрация: 07.05.2018	Никак. Функции листа не могут менять стили ячеек. С этим придётся смириться.

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

#22

08.11.2018 16:14:19

Точно. В собщении совсем не работает. Видимо, нужно было еще кнопку в сообщении показать…
С проблемой легче разобраться, если есть файл-пример

Цитата
StoTisteg написал: Функции листа не могут менять стили ячеек.

…но можно отслеживать изменение знчения с помощью событий

Цитата
в ячейке G9 — менять стиль шрифта в зависимости от значения ячейки D9

Наоборот, наверное?

Serg.Vrn Пользователь Сообщений: 91 Регистрация: 07.01.2017	Вот файл пример. Прикрепленные файлы 1.xls (44 КБ)

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

#24

08.11.2018 16:54:12

Код в модуль листа

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("D9"), Target) Is Nothing Then
        If Target.Cells.Count > 1 Then Exit Sub
        Application.EnableEvents = False

        With Range("G9")
            If Target.Value = 1 Then
                .Font.Name = "Times New Roman"
                .Value = "Times New Roman"
            Else
                .Font.Name = "Arial"
                .Value = "Arial"
            End If
        End With

        Application.EnableEvents = True
    End If
End Sub

Вместо двух условий можно проверять больше. If меняем н Select Case

Serg.Vrn Пользователь Сообщений: 91 Регистрация: 07.01.2017	vikttur, спасибо. Но у меня нет изменения ячейки D9 вручную. Значение ячейки D9 — просто меняется под действием других формул, на других листах.

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ \| Win10x64, MSO2019x64	Serg.Vrn, значит повесьте макрос на активацию листа с ячейкой. <#0> Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	В D9: =формула*СЕГОДНЯ()^0 Изменить событие макроса — пересчет листа

Serg.Vrn Пользователь Сообщений: 91 Регистрация: 07.01.2017	vikttur, все ясно. Спасибо.

Alec Perle Пользователь Сообщений: 172 Регистрация: 13.07.2018	#29 08.11.2018 20:24:55 Можно еще в пользовательской функции изменять глобальную переменную, а в событии пересчета листа проверять ее и менять в ячейке, что нужно.

Источник

Увеличение размера шрифта при условии.

alexandr_rus

Дата: Четверг, 17.04.2014, 06:49 |
Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация:
0
±

Замечаний:
0% ±

Excel 2010

Здравствуйте многоуважаемые форумчане.

Есть необходимость увеличить размер шрифта в диапазоне ячеек при условии.

для этого я выделяю диапазон — условное форматирование — правила выделения ячеек — больше — ставлю значение «9» — пользовательский формат — открывается формат ячеек — вкладка шрифт — доступно для изменения только начертание и подчеркивание а также цвет.

А вот размер и сам шрифт изменить не удается.

Версия офис 2007 рус.
С уважением Александр.

Ответить

AVP

Дата: Четверг, 17.04.2014, 07:47 |
Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 93

Репутация:
12
±

Замечаний:
20% ±

Excel 2007

вот так давайте попробуем
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range(«A3:B150»)) Is Nothing Then
Call ИзменениеЗначенияЯчейки(Target.Row, Target.Column)
End If
End Sub

Sub ИзменениеЗначенияЯчейки(x, y)
Dim Col

If Cells(x, 2).Value < 0 Then
Cells(x, 2).Font.Size = 20
End If
If Cells(x, 2).Value > 0 Then
Cells(x, 2).Font.Size = 10
End If

End Sub

[/vba]

К сообщению приложен файл:

_1-3-.xls
(60.0 Kb)

Сообщение отредактировал Serge_007 — Четверг, 17.04.2014, 20:40

Ответить

Alex_ST

Дата: Четверг, 17.04.2014, 22:59 |
Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176

Репутация:
604
±

Замечаний:
0% ±

2003

AVP,
alexandr_rus, похоже, спрашивал всё-таки именно про СТАНДАРТНОЕ ВСТРОЕННОЕ УФ, а не про его имитацию макросами для строго определённых ячеек.
Так вот именно ВСТРОЕННОЕ УФ изменить может только начертание, цвет и тип подчёркивания шрифта.
А тип шрифта и его размер — нет.
Ну а если уж говорить про макросы, то во-первых, далеко не все знают VBA, и, соответственно, не могут самостоятельно разобрать код и понять, как записать условие и обрабатываемые ячейки (тем более, что Вы не дали никаких комментариев к своему коду ни в нём самом, ни в посте).
А во-вторых, когда пишете пример кода, то постарайтесь всё-таки не вводить в него лишних сущностей.
Ну зачем, например, у Вас написано[vba]

Код

Intersect(Target, Range(«A3:B150»))

[/vba] если далее в процедуре Вы оцениваете значения и в соответствии с ними меняете размер шрифта только в столбце В ?
А зачем в процедуре задаёте [vba][/vba] да ещё и как Variant если потом её не используете?

С уважением,
Алексей
MS Excel 2003 — the best!!!

Сообщение отредактировал Alex_ST — Пятница, 18.04.2014, 08:53

Ответить

AVP

Дата: Пятница, 18.04.2014, 06:20 |
Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 93

Репутация:
12
±

Замечаний:
20% ±

Excel 2007

no comments

Сообщение отредактировал AVP — Пятница, 18.04.2014, 06:20

Ответить

Источник

Вы когда-нибудь представляли себе это изменение цвета шрифта на основе значения ячейки в Excel? Возьмем, к примеру, когда данные отрицательны, вы можете захотеть, чтобы цвет шрифта данных был красным, или вам нужно, чтобы данные были черными. Здесь я представляю несколько удобных способов, которые помогут вам сэкономить время на изменение цвета шрифта по значению ячейки в Excel.

Изменение цвета шрифта на основе значения ячейки с помощью условного форматирования

Изменить цвет шрифта на основе значения ячейки с помощью параметра «Выбрать определенные ячейки»

Содержание

Изменение цвета шрифта на основе значения ячейки с условным форматированием
Измените цвет шрифта на основе значения ячейки с помощью Select Specific Cells
Изменить цвет шрифта на основе значения ячейки
Быстрый подсчет/суммирование ячеек по цвету фона или формата в Excel

Изменение цвета шрифта на основе значения ячейки с условным форматированием

В Excel условное форматирование может помочь при изменении цвета шрифта по ячейке.

(1) Измените цвет шрифта, если он отрицательный/положительный

1. Выберите значения ячеек и нажмите Главная > Условное форматирование > Новое правило . См. Снимок экрана:

2. Затем в диалоговом окне Новое правило форматирования выберите Форматировать только ячейки, содержащие в разделе Выбрать тип правила: , и если вы хотите изменить цвет шрифта, если значение ячейки отрицательное, вы можете выбрать Значение ячейки из первого списка и выбрать меньше, чем из среднего списка, и затем введите 0 в правое текстовое поле. См. Снимок экрана:

Совет: Если вы хотите изменить цвет шрифта положительных значений, просто выберите Больше чем из среднего списка.

3. Нажмите Формат , чтобы перейти к диалоговому окну Формат ячеек , затем на вкладке Шрифт выберите нужный цвет из Список цветов . См. Снимок экрана:

4. Нажмите OK > OK , чтобы закрыть диалоговые окна. Теперь все отрицательные значения меняют цвет шрифта на красный.

(2) Изменить цвет шрифта, если больше/меньше чем

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

1. Выберите значения ячеек и нажмите Главная > Условное форматирование > Новое правило .

2. Затем в диалоговом окне Новое правило форматирования выберите Форматировать только ячейки, содержащие в разделе Выбрать тип правила: , выберите Значение ячейки из первого списка и больше из среднего списка, а затем введите конкретное значение в правое текстовое поле.. См. Снимок экрана:

Совет: Если вы хотите изменить цвет шрифта, когда значения ячеек меньше определенного значения, просто выберите меньше, чем из среднего списка.

3. Нажмите Формат , чтобы перейти к диалоговому окну Формат ячеек , затем на вкладке Шрифт выберите нужный цвет из Список цветов . Затем нажмите OK > OK , чтобы закрыть диалоговые окна. Все значения больше 50 были изменены на оранжевый цвет шрифта.

(3) Измените цвет шрифта, если он содержит

Если вы хотите изменить цвет шрифта, если значения ячеек содержат определенный текст, например, измените цвет шрифта, если значение ячейки содержит KTE, вы можете сделать следующее:

1. Выберите значения ячеек и нажмите Главная > Условное форматирование > Новое правило .

2. Затем в диалоговом окне Новое правило форматирования выберите Форматировать только ячейки, содержащие в разделе Выбрать тип правила: , выберите Определенный текст из первого списка и Содержит из среднего списка, а затем введите конкретный текст в правое текстовое поле. См. Снимок экрана:

3. Нажмите Формат , чтобы перейти к диалоговому окну Формат ячеек , затем на вкладке Шрифт выберите нужный цвет из Список цветов . Затем нажмите OK > OK , чтобы закрыть диалоговые окна. Все ячейки, содержащие KTE, изменили цвет шрифта на указанный цвет.

Измените цвет шрифта на основе значения ячейки с помощью Select Specific Cells

Если вы хотите попробовать некоторые удобные инструменты надстройки, вы можете попробовать Kutools for Excel , есть утилита под названием Select Specific Cells , которая может быстро выбрать ячейки, соответствующие одному или двум критериям, а затем вы можете изменить цвет шрифта.

Kutools for Excel , с более чем 300 удобных функций, облегчающих вашу работу.

Бесплатная загрузка
Бесплатная полнофункциональная версия через 30 дней

После бесплатной установки Kutools for Excel, сделайте следующее:

1. Выберите ячейки, с которыми вы хотите работать, и нажмите Kutools > Выбрать > Выбрать определенные ячейки . См. Снимок экрана:

2. В диалоговом окне Выбрать определенные ячейки установите флажок Ячейка в разделе Тип выбора и выберите Содержит в разделе Определенный тип , затем введите конкретный текст в текстовое поле

3. Нажмите Ok > OK , чтобы закрыть диалоговые окна.

4. Затем были выделены все ячейки, содержащие KTE, и перейдите в Home > Font Color , чтобы выбрать нужный цвет шрифта.

Примечание.

1. С помощью Kutools for Excel’s Выбрать определенные ячейки , вы также можете выбрать ячейки, соответствующие нижеприведенному критерию:

2. Также вы можете выбрать ячейки, соответствующие двум критериям. Выберите первый критерий из первого раскрывающегося списка, затем выберите второй критерий из второго раскрывающегося списка, и если вы хотите выбрать ячейки, соответствующие двум критериям одновременно, отметьте опцию И , если вы хотите выбрать ячейки соответствует одному из двух критериев, установите флажок Или .

Щелкните здесь, чтобы узнать больше о выборе конкретных ячеек.

Изменить цвет шрифта на основе значения ячейки

Kutools for Excel: 300+ функций, которые вы должны иметь в Excel, 30-дневная бесплатная пробная версия отсюда.

Быстрый подсчет/суммирование ячеек по цвету фона или формата в Excel

В некоторых случаях у вас может быть диапазон ячеек с несколькими цветами, и вы хотите подсчитать/суммировать значения ed на том же цвете, как можно быстро рассчитать?
С Kutools for Excel Подсчет по цвету , вы можете быстро выполнить множество вычислений по цвету, а также создать отчет о рассчитанный результат. Нажмите, чтобы получить бесплатную полнофункциональную пробную версию через 30 дней!

Kutools для Excel: с более чем 300 удобными надстройками Excel, бесплатная пробная версия без ограничений в течение 30 дней.

Источник