Программное форматирование ячейки в Excel

[vlastek]

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

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 передаются сравниваемые ячейки

[ihc]

В StarBasic за это отвечают атрибуты cellBackColor и charColor, которые, среди прочих, есть у ScCellRangeObj. Возможно, в VB тоже самое?

[Greyman]

vlastek
Вариант для ьвоего примера:

With х.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With

Все допролнительные опции вполне нормально описаны в хэлпе - смотри.

Ну а на будущее - следует не забывать такой полезный инструмент как запись макроса. Потом пользуясь хэлпом всю можно вылизать до необходимой тебе степени...