Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
vlastek Гость
|
Добавлено: Пт Ноя 26 2004 05:16 Заголовок сообщения: Поможите! Как программно форматировать ячейку в Excel? |
|
|
Задача такова:
Нужно сравнить содержимое двух ячеек и если одна из них меньше другой то её выделить красным.
В модуле написал функцию для сравнения, а сменить цвет шрифта не удается.
Function Test(x As Range, y As Range) As Integer
If x.Value < y.Value Then
'Здесь нужно форматировать ячейку x
Test = 1
Else
Test = 0
End If
End Function
функция подставляется в формулу скрытой ячейки
в x и y передаются сравниваемые ячейки |
|
Вернуться к началу |
|
|
oks Гость
|
Добавлено: Пн Ноя 29 2004 08:21 Заголовок сообщения: |
|
|
Попробуй свойству ColorIndex присвоить соответствующее значение, в зависимости от нужного цвета |
|
Вернуться к началу |
|
|
Ascold
Зарегистрирован: 30.11.2004 Сообщения: 2
|
Добавлено: Вт Ноя 30 2004 00:49 Заголовок сообщения: |
|
|
Cells(rowCount, columnCount).Activate
'выделяешь ячейку с номером строки rowCount и столбца columnCount
ActiveCell.Select
'создаешь выделение и с ним уже работаешь
With Selection.Interior
.ColorIndex = N
'здесь уже идёт перечисление редактируемых параметров(может быть и несколько)
'где N, в твоём случае - номер цвета
End With _________________ Если кто-то громко плачет - довы"?)вался значит! |
|
Вернуться к началу |
|
|
|