Excel текст в ячейке разного цвета

 

vasi

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

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

Здравствуйте, как сделать чтобы, в одой ячейке цифра стоящая перед дробью закрасилась в один цвет, а стоящая после дроби в другой цвет, заранее спосибо

Изменено: vasi13.08.2016 08:09:07

 

vikttur

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

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

Два варианта: вручную и с помощью макроса. Формулы такого не умеют.

 

vasi

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

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

А макросом как? условным форматированием тоже не получится?

 

Юрий М

Модератор

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

Контакты см. в профиле

#4

13.08.2016 09:06:14

Цитата
vasi написал: А макросом как?

Запишите эти действия макрорекордером — получите готовый макрос.

Цитата
vasi написал:  условным форматированием тоже не получится?

УФ применяется целиком к ячейке.

 

vasi

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

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

Не получается  :(  

 

vikttur

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

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

Что не получается?
Включить запись макроса? Вручную выполнить действия? Посмотреть, где код записан?

 

vasi

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

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

Цифры закрашиваются и перед дробью и после дроби

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

  • Книга1.xlsm (16.77 КБ)

 

vikttur

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

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

Обратите внимание на строки:
.Characters(Start:=1, Length:=2).Font  — начало и длина
.Color или .ColorIndex — задаваемый цвет

 

JeyCi

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

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

#9

13.08.2016 10:05:49

хм, у меня тоже красится всё

Код
Sub tt()
Lnt% = InStr(1, ActiveSheet.[A1].Value, ".", 1) - 1   'длина до точки
ActiveSheet.[A1].Characters(1, Lnt%).Font.Color = vbRed
End Sub

— попробовала закрасить до разделителя (точка) целой и дробной (543.42)
c ColorIndex=3 так же — всё…
может дело в какой-то библиотеке??  :oops:

Изменено: JeyCi13.08.2016 10:19:45

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

 

vikttur

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

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

#10

13.08.2016 10:10:43

Код
Sub Макрос1()
' Сочетание клавиш: Ctrl+m
    With Range("A1")
        .Characters(Start:=1, Length:=2).Font.ThemeColor = xlThemeColorLight1
        .Characters(Start:=3, Length:=3).Font.Color =  vbRed
    End With
End Sub
 

JeyCi

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

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

#11

13.08.2016 10:18:54

Цитата
JeyCi написал: закрасить до разделителя (точка) целой и дробной (543.42)

вобщем странно конечно, но на дроби 35/26 работает #9… только по коду «.» заменить на «/» … а с точкой возиться не хочет… может, потому что она у меня установлена системным разделителем? (и он characters [текста] не видит, а видит число — поэтому не понимает)… затрудняюсь, найти др. объяснение…

Изменено: JeyCi13.08.2016 10:24:14

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

 

vasi

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

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

vikttur, спасибо работает  :), а как сделать чтобы при вводе значений, автоматический менялся цвет, без комбинаций CTRL+M.

 

vikttur

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

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

#13

13.08.2016 11:41:37

В модуль листа, на котором нужно форматировать

Код
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
        If .Count > 1 Then Exit Sub
 
       If Not Intersect(Target, Range("A1:D1")) Is Nothing Then
           .Characters(Start:=1, Length:=2).Font.ThemeColor = xlThemeColorLight1
           .Characters(Start:=3, Length:=3).Font.Color = vbRed
       End If
    End With
End Sub

Вопрос к знающим: .Characters с числами отказывается работать?

 

vasi

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

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

Все отлично работает, огромное спасибо

vikttur

 

Юрий М

Модератор

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

Контакты см. в профиле

vasi, Вы видели, как код у Виктора оформлен? Поступайте так же: ищите такую кнопку и исправьте своё сообщение.
Спасибо!

 

Юрий М

Модератор

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

Контакты см. в профиле

И не могу понять — зачем код продублировали? Смысл в чём?

 

vikttur

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

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

#17

13.08.2016 15:26:19

Смысла никакого. Удалил этот код из сообщения

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

Используйте несколько цветов шрифтов или шрифтов в одной ячейке Excel


Используйте несколько цветов шрифтов или шрифтов в одной ячейке Excel

Чтобы применить несколько цветов шрифтов или шрифтов в одной ячейке, выполните следующие действия.

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

2. Выберите текст, который вам нужен, чтобы использовать другие цвета шрифта или шрифты, нажмите Главная > Цвет шрифта or шрифт в шрифт group, а затем укажите нужный цвет шрифта или шрифт. Смотрите скриншот:

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

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


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

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

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

вкладка kte 201905


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

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

офисный дно

Комментарии (11)


Оценок пока нет. Оцените первым!

В принципе, текст в ячейке можно раскрасить так[vba]

Код

Sub tt()
Dim S As String
Dim i As Long
    With Range(«C3»)
    For i = 1 To Len(.Value)
        S = Mid(.Value, i, 1)
        Select Case S
            Case «В»: .Characters(i, 1).Font.Color = vbGreen
            Case «П»: .Characters(i, 1).Font.Color = vbRed
            Case «Н»: .Characters(i, 1).Font.Color = vbYellow
        End Select
    Next
    End With
End Sub

[/vba]
Но почему-то этот способ не работает с текстом полученным в результате сцепления. Так и не смог выяснить — почему? Возможно, кто-то знает ответ.
UPD
Как обходной варинат
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, Range(«A1:A5»)) Is Nothing Then Exit Sub
[C3] = [A1] & [A2] & [A3] & [A4] & [A5]
    With Range(«C3»)
    For i = 1 To Len(.Value)
        S = Mid(.Value, i, 1)
        Select Case S
            Case «В»: .Characters(i, 1).Font.Color = vbGreen
            Case «П»: .Characters(i, 1).Font.Color = vbRed
            Case «Н»: .Characters(i, 1).Font.Color = vbYellow
            Case Else: .Characters(i, 1).Font.Color = vbBlack
        End Select
    Next
    End With
End Sub

[/vba]

Download PC Repair Tool to quickly find & fix Windows errors automatically

Do you know that you can format text in multiple ways in a single cell in Microsoft Excel? In this guide, we show how you can add multiple formatting to your text in a single cell in Excel.

Formatting makes our text stand out. We can mark the important with the formatting options. Sadly, we think that we cannot format the text on Excel as we do on other text processors. We don’t even try to format the text as most of the Excel sheets don’t require much formatting. But, there might be special cases, where you have to do multiple text formatting in a single cell to highlight or underline or apply subscript or superscript. In this guide, we have solutions to apply different formatting options to text in Excel. Let’s see how we can do it.

To get started, open Microsoft Excel and type the text you need to apply multiple formatting in a cell and adjust the sizes of the cell to make the text visible well. To put the text in the cell and see the whole text there, select the cell and click on Wrap Text in the Home tab on the ribbon menu. Then,

  1. Select the text
  2. Click on the drop-down arrow in the Font section
  3. Adjust the Font, Style, and Size
  4. Check the button beside the Effect you need
  5. Click on OK to apply.

Let’s get into the details of the process.

After adjusting cell sizes and wrapping text in it, select the particular text in the cell, you want to apply different formatting effects. If you want to make it bold, or italic, or underline it, you can click on the dedicated buttons in the Home tab. If you want to apply Superscript, Subscript, or Strikethrough effects to the text, click on the drop-down arrow in the corner of the Font section in the Home tab.

Font Settings Excel

It will open a Format Cells mini overlay window. You can adjust Font, Font Style, Size, and Color in the window and see the preview there. To apply effects or formatting to the selected text, check the button beside the effect you want to apply to the text. After applying the effects and making changes, click on OK for the changes to apply.

How to add Multiple Formatting to your Text in a Single Cell in Excel

You can repeat this multiple times, selecting different text each time to apply multiple formatting to the text.

How do I put multiple items in one cell in Excel?

There is a simple way to add multiple items in one cell in Excel. You just have to press Alt + Enter after entering one item and add the second item, and repeat it until you add everything in the cell.

How do I use multiple font colors or fonts in one cell in Excel?

You can do this using the Font section in the Home tab of the ribbon menu. You have to select the particular text and use the dedicated button in the Font section to apply the effects.

Ezoic

Guru is a Communications graduate with hands-on experience with computers, cameras, and editing tools. A tech enthusiast and a movie buff who loves writing about computers, he dreams of living a life devoid of all tech and modern-day advancements in a forest.

Excel для Microsoft 365 Excel 2021 Excel 2019 Excel 2016 Excel 2013 Excel 2010 Excel 2007 Еще…Меньше

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

Сведения об изменении цвета фона ячеек, применении узоров или заливки см. в справке по добавлению или изменению цвета фона ячеек.

Изменение цвета текста в ячейке или диапазоне

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

  2. На вкладке Главная щелкните стрелку рядом с кнопкой Цвет шрифта Кнопка "Цвет шрифта" на вкладке "Главная".

  3. Выберите цвет в группе Цвета темы или Стандартные цвета.

    выбор цвета шрифта;

    Совет: Чтобы применить последний выбранный цвет текста, на вкладке Главная нажмите кнопку Цвет текста.

Применение дополнительного цвета

Если вам нужен определенный цвет текста, вот как можно его получить:

  1. На вкладке Главная щелкните стрелку рядом с кнопкой Цвет текста Кнопка "Цвет шрифта" на вкладке "Главная" и выберите команду Другие цвета.

  2. На вкладке Спектр в поле Цвета выберите нужный цвет.

    Пользовательский параметр наложения цветов

    Если вы знаете числовые значения составляющих нужного цвета, в поле Цветовая модель выберите модель RGB (Red, Green, Blue — красный, зеленый, синий) или HSL (Hue, Sat, Lum — тон, насыщенность, яркость), а затем введите числа, в точности соответствующие искомому цвету.

Совет:  Чтобы быстро скопировать используемый цвет текста в другие ячейки, выделите исходную ячейку и дважды нажмите кнопку Формат по образцу Кнопка "Формат по образцу". Затем щелкните ячейки, которые нужно отформатировать. По завершении еще раз нажмите кнопку Формат по образцу, чтобы выйти из этого режима.

Форматирование цвета ярлычка листа

  1. Щелкните правой кнопкой мыши ярлычок листа, цвет которого вы хотите изменить.

  2. Щелкните Цвет ярлычка, а затем выберите нужный цвет.

    Изменится цвет ярлычка, но не цвет шрифта. При выборе темного цвета ярлычка цвет шрифта меняется на белый, а при выборе светлого цвета — на черный.

Нужна дополнительная помощь?

Понравилась статья? Поделить с друзьями:

А вот еще интересные статьи:

  • Excel текст в ячейке на два столбца
  • Excel текст в ячейке до ввода
  • Excel текст в ячейке в зависимости от значения
  • Excel текст в ячейке в виде формулы
  • Excel текст в ячейках с заглавной буквы

  • 0 0 голоса
    Рейтинг статьи
    Подписаться
    Уведомить о
    guest

    0 комментариев
    Старые
    Новые Популярные
    Межтекстовые Отзывы
    Посмотреть все комментарии