Как через VBA задать ячейке формат по образцу с использованием формулы ЕСЛИ

[Bionicman]

Здравствуйте.
Суть задачи в том, что бы графически, а именно диагональной границей ячейки показать уклон от одного значения к другому.
Пример: В ячейке А1 стоит значение -30, в ячейке С1 значение 0, а в ячейке В2 нужно показать уклон в зависимости от значений А1 и С1.
  Предположим, что где ни будь за границей моей таблицы есть две ячейки (R12,S12) в одной диагональная граница в одну сторону, в другой в другую.
Так вот: ЕСЛИ A1<C1 (Истина) то ячейка B2 форматируется по образцу R12, если (ЛОЖЬ) то по формату S12

[gling]

Здравствуйте. Попробуйте в ячейках изменить значения.

[Bionicman]

Спасибо огромное!! Результат получился то что и требовалось.
Я в VBA не селен, но буду по немногу разбираться в коде который Вы написали.
Ещё раз спасибо!!!