Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как програмно поменять цвет текта / 5 сообщений из 5, страница 1 из 1
19.06.2006, 13:04
    #33799508
smm
smm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как програмно поменять цвет текта
Здравствуйте уважаемые!

Помогите решить следующую проблему:
Есть таблица. В ней 2 колонки.
В первой колонке находятся заранее определенные (10 вариантов) текстовые значения, а во второй какие-то другие произвольные значения (текст, числа).
НУЖНА формула, чтобы в зависимости от значения в 1 колонке менялся цвет текста во второй колонке.

ЗЫ:
Наверное нужно писать пользовательскую функцию, которая меняет цвет текста и вставить ее в формулу с условиями по типу вложенных ЕСЛИ()

Я попробовал и вбил в модуль книги следующую функцию изменения цвета текста:

Public Function SetColorCell(iRange As Range, iColor As Integer) iRange.Font.ColorIndex = iColor
End Function

а это я вбиваю в ячейку Excel
=SetColorCell(RC[-2];3)

Но цвет текста не меняется, почему?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.06.2006, 13:15
    #33799553
vkodor
vkodor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как програмно поменять цвет текта
Условное форматирование
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.06.2006, 13:31
    #33799618
smm
smm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как програмно поменять цвет текта
Условное форматирование мне не подходит, поскольку там можно задать 3 условия, а у меня их 10 и во вторых мне нужно, чтобы форматирование происходилопо формуле, чтобы настроить эту формулу на первой строчке и скопировать ее вниз, для рассветки остальных строчек.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.06.2006, 14:14
    #33799783
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как програмно поменять цвет текта
Тебе обязательно формулой нужно или можно обойтись чистым VBA?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    
    Set rng = Range("A1:A10")
    
    If Not (Application.Intersect(Target, rng) Is Nothing) Then
        If Target.Value = "a" Then
            Target.Offset( 0 ,  1 ).Font.Color = RGB( 255 ,  0 ,  0 )
        ElseIf Target.Value = "b" Then
            Target.Offset( 0 ,  1 ).Font.Color = RGB( 0 ,  255 ,  0 )
        ElseIf Target.Value = "c" Then
            Target.Offset( 0 ,  1 ).Font.Color = RGB( 0 ,  0 ,  255 )
        Else
            Target.Offset( 0 ,  1 ).Font.Color = RGB( 0 ,  0 ,  0 )
        End If
    End If
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.06.2006, 14:48
    #33799918
smm
smm
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как програмно поменять цвет текта
Нужно формулой.

ЗЫ:
Вбил в модуль указанный ниже код с обработкой события -неотрабатывает. Поставил БреакПоит -недоходит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как програмно поменять цвет текта / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 518ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2165704]:
 0ms
get settings:
 9ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 163ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 250ms
total:  518ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]