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

Вход

Регистрация

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

 

= Мир MS Excel/Выделение цветом части содержимого ячейки - Мир MS Excel

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

Excel 2010
Добрый день! Уважаемые специалисты, подскажите пожалуйста возможно ли решить следующую задачу:
1. Имеется ячейка данные в которую подтягиваются из нескольких ячеек что-то типа =(A1+B1)&" и "&(C1+D1).
2. Необходимо выделить цветом только результат (A1+B1).
3. Возможно ли как-нибудь создать, функцию что ли, которую можно бы было прописывать перед формулами для выделения части данных ячейки и если да, то как ???

ЗАРАНЕЕ СПАСИБО!
 
Ответить
СообщениеДобрый день! Уважаемые специалисты, подскажите пожалуйста возможно ли решить следующую задачу:
1. Имеется ячейка данные в которую подтягиваются из нескольких ячеек что-то типа =(A1+B1)&" и "&(C1+D1).
2. Необходимо выделить цветом только результат (A1+B1).
3. Возможно ли как-нибудь создать, функцию что ли, которую можно бы было прописывать перед формулами для выделения части данных ячейки и если да, то как ???

ЗАРАНЕЕ СПАСИБО!

Автор - Manunt
Дата добавления - 04.09.2013 в 10:05
Serge_007 Дата: Среда, 04.09.2013, 10:17 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата (Manunt, Среда, 04.09.2013, 10:05 # 1)
Возможно ли как-нибудь создать, функцию
Нет
Единственный вариант - "убивать" формулу и раскрашивать часть получившегося текста


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата (Manunt, Среда, 04.09.2013, 10:05 # 1)
Возможно ли как-нибудь создать, функцию
Нет
Единственный вариант - "убивать" формулу и раскрашивать часть получившегося текста

Автор - Serge_007
Дата добавления - 04.09.2013 в 10:17
M73568 Дата: Среда, 04.09.2013, 10:31 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 197
Репутация: 46 ±
Замечаний: 0% ±

2007-2013
Записывать раскраску в примечаниях к ячейке, с каким-нибудь тегом, например <УФ>, чтобы не путать с реальными примечаниями, сами примечания скрыть. Макросом читать примечания и раскрашивать по вкусу ;)


Сообщение отредактировал M73568 - Среда, 04.09.2013, 10:31
 
Ответить
СообщениеЗаписывать раскраску в примечаниях к ячейке, с каким-нибудь тегом, например <УФ>, чтобы не путать с реальными примечаниями, сами примечания скрыть. Макросом читать примечания и раскрашивать по вкусу ;)

Автор - M73568
Дата добавления - 04.09.2013 в 10:31
Manunt Дата: Среда, 04.09.2013, 11:22 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
M73568, я не ахти какой специалист.. Если не сложно, нельзя ли подробнее, что прописать в примечании...
 
Ответить
СообщениеM73568, я не ахти какой специалист.. Если не сложно, нельзя ли подробнее, что прописать в примечании...

Автор - Manunt
Дата добавления - 04.09.2013 в 11:22
M73568 Дата: Среда, 04.09.2013, 11:42 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 197
Репутация: 46 ±
Замечаний: 0% ±

2007-2013
Например в примечаниях к ячейке в специально придуманном для этого тэге (например <УФ></УФ>) записывать специально придуманную последовательность символов описывающих то, как вам надо раскрасить текст в ячейке, т.е. описание форматирования. Далее специально написанным макросом, запускаемым при определённом событии, например каждый раз при открытии, обходя все ячейки с примечаниями, раскрашиваете (форматируете) текст в ячейке так как это написано в придуманном нами тэге.

ЗЫ С моей стороны это была просто идея, реализация это уже не ко мне, я и шашек в руки давно не брал и времени свободного не имею
ЗЗЫ Как будет описываться форматирование тоже в общем-то всё равно, главное что бы это было легко разобрать макросом (например [vba]
Код
<УФ>символы:с1;по12:шрифт:Arial;размер:12;курсив;цвет:зелёный</УФ>
[/vba]
ЗЗЗЫ Не спрашивайте меня как это сделать, ещё немного и я склонюсь к ответу Serge_007 :D


Сообщение отредактировал M73568 - Среда, 04.09.2013, 11:46
 
Ответить
СообщениеНапример в примечаниях к ячейке в специально придуманном для этого тэге (например <УФ></УФ>) записывать специально придуманную последовательность символов описывающих то, как вам надо раскрасить текст в ячейке, т.е. описание форматирования. Далее специально написанным макросом, запускаемым при определённом событии, например каждый раз при открытии, обходя все ячейки с примечаниями, раскрашиваете (форматируете) текст в ячейке так как это написано в придуманном нами тэге.

ЗЫ С моей стороны это была просто идея, реализация это уже не ко мне, я и шашек в руки давно не брал и времени свободного не имею
ЗЗЫ Как будет описываться форматирование тоже в общем-то всё равно, главное что бы это было легко разобрать макросом (например [vba]
Код
<УФ>символы:с1;по12:шрифт:Arial;размер:12;курсив;цвет:зелёный</УФ>
[/vba]
ЗЗЗЫ Не спрашивайте меня как это сделать, ещё немного и я склонюсь к ответу Serge_007 :D

Автор - M73568
Дата добавления - 04.09.2013 в 11:42
nifra Дата: Пятница, 18.10.2013, 11:58 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 162
Репутация: 0 ±
Замечаний: 40% ±

Уважаемые. Нашел в интернете Макрос для выделения цветом фразы "Модель:"

[vba]
Код
Option Explicit
Option Compare Text

Sub ColorCells()

      Dim iStart As Integer
      Dim rng As Range, cell As Range, sSearchString As String
        
      Set rng = Selection
      sSearchString = "Модель:"
        
      For Each cell In rng
          If cell Like "*" & sSearchString & "*" Then
              iStart = InStr(cell.Value, sSearchString)
              With cell.Characters(Start:=iStart, Length:=Len(sSearchString)).Font
                  .Bold = True
                  .Color = RGB(0, 0, 255)
              End With
          End If
      Next

End Sub
[/vba]

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


Сообщение отредактировал nifra - Пятница, 18.10.2013, 11:58
 
Ответить
СообщениеУважаемые. Нашел в интернете Макрос для выделения цветом фразы "Модель:"

[vba]
Код
Option Explicit
Option Compare Text

Sub ColorCells()

      Dim iStart As Integer
      Dim rng As Range, cell As Range, sSearchString As String
        
      Set rng = Selection
      sSearchString = "Модель:"
        
      For Each cell In rng
          If cell Like "*" & sSearchString & "*" Then
              iStart = InStr(cell.Value, sSearchString)
              With cell.Characters(Start:=iStart, Length:=Len(sSearchString)).Font
                  .Bold = True
                  .Color = RGB(0, 0, 255)
              End With
          End If
      Next

End Sub
[/vba]

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

Автор - nifra
Дата добавления - 18.10.2013 в 11:58
SkyPro Дата: Пятница, 18.10.2013, 12:03 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[offtop]Чет завтыкал, что тут правила нарушают. Прошу прощения.


skypro1111@gmail.com

Сообщение отредактировал SkyPro - Пятница, 18.10.2013, 12:04
 
Ответить
Сообщение[offtop]Чет завтыкал, что тут правила нарушают. Прошу прощения.

Автор - SkyPro
Дата добавления - 18.10.2013 в 12:03
Alex_ST Дата: Пятница, 18.10.2013, 13:23 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3208
Репутация: 609 ±
Замечаний: 0% ±

2003
nifra,
сделать то, что Вы хотите, совсем не трудно, НО неужели Вы не видите из старт-топика, что Ваш вопрос здесь является оффтопом?
Хотите ответа - создайте соответствующий топик.
А здесь никто отвечать на Ваш вопрос и нарушать правила, я надеюсь, не станет.



С уважением,
Алексей
MS Excel 2003 - the best!!!
 
Ответить
Сообщениеnifra,
сделать то, что Вы хотите, совсем не трудно, НО неужели Вы не видите из старт-топика, что Ваш вопрос здесь является оффтопом?
Хотите ответа - создайте соответствующий топик.
А здесь никто отвечать на Ваш вопрос и нарушать правила, я надеюсь, не станет.

Автор - Alex_ST
Дата добавления - 18.10.2013 в 13:23
Grigorij Дата: Воскресенье, 01.02.2015, 13:30 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
nifra,

Спасибо, код действительно работает.

А может могли бы пополнить этот код, так что бы он выделил в ячейке все значения, которые находяться в таблице в другой вкладке (в разных ячейках)?

Например, в данном случае выделяеться слово "Модель:".
Как в место этого сделать, что бы выделялся текст, который находится в другой вкладке в ячейках от D1 до D100?

Заранее спасибо всем за помощь и советы.

[admin]Тема закрыта. Причина: Нарушение правил пп 4 и 5 q[/admin]
 
Ответить
Сообщениеnifra,

Спасибо, код действительно работает.

А может могли бы пополнить этот код, так что бы он выделил в ячейке все значения, которые находяться в таблице в другой вкладке (в разных ячейках)?

Например, в данном случае выделяеться слово "Модель:".
Как в место этого сделать, что бы выделялся текст, который находится в другой вкладке в ячейках от D1 до D100?

Заранее спасибо всем за помощь и советы.

[admin]Тема закрыта. Причина: Нарушение правил пп 4 и 5 q[/admin]

Автор - Grigorij
Дата добавления - 01.02.2015 в 13:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделение цветом части содержимого ячейки (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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