Цветные буквы - Microsoft Office Excel

CNC · 11.02.2011, 17:40

Доброго дня! Нужна помощь. Проблема в следующем, хотелось бы в EXCEl при вводе определенных букв, например ОТ, чтобы они были красными. Возможно это или нет?

kuklp · 11.02.2011, 18:03

В модуль листа:

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    On Error Resume Next
    If InStr(1, Target, "ОТ",1) > 0 Then
        Target.Characters(Start:=InStr(1, Target, "ОТ",1), Length:=2).Font.ColorIndex = 3
    End If
End Sub

R Dmitry · 11.02.2011, 18:33

можно еще и условным форматированием сделать.....

А может надо в ячейке кусок текста выделять?

11.02.2011, 17:40	#1
CNC Новичок Джуниор Регистрация: 11.02.2011 Сообщений: 1	Цветные буквы Доброго дня! Нужна помощь. Проблема в следующем, хотелось бы в EXCEl при вводе определенных букв, например ОТ, чтобы они были красными. Возможно это или нет?

11.02.2011, 18:03	#2
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	В модуль листа: Код: `Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub On Error Resume Next If InStr(1, Target, "ОТ",1) > 0 Then Target.Characters(Start:=InStr(1, Target, "ОТ",1), Length:=2).Font.ColorIndex = 3 End If End Sub` mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728 Последний раз редактировалось kuklp; 11.02.2011 в 18:13.

11.02.2011, 18:33	#3
R Dmitry Форумчанин Регистрация: 07.03.2010 Сообщений: 796	можно еще и условным форматированием сделать..... А может надо в ячейке кусок текста выделять? Логика?!.... она где то рядом... E_mail: dg_rusak@mail.ru Если спасибо мало: Яндекс . Деньги - 41001731366021 WM R269866874234

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Посчитать буквы	olimpus	Microsoft Office Excel	3	06.02.2011 12:44
Цветные строки в TListView	Johnson	Компоненты Delphi	6	18.07.2008 15:07
Цветные строки	Altera	Компоненты Delphi	4	12.02.2008 18:49
Прописные буквы	Guest_	Помощь студентам	6	15.12.2007 21:29
Цветные строки в листбоксе, нестандарт	PCSpeaker	Компоненты Delphi	9	11.02.2007 19:19