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

Question

Я создал календарь планирования для клиента, в котором отображается графический календарь на основе справочной таблицы комнаты, активности, времени начала и окончания.

Он был закодирован таким образом, чтобы номера и времяне являются специфичными для этого клиента, поэтому мы можем предложить его кому-то еще, и он также заблокирован, чтобы не допустить его редактирования / взлома.

Единственное, что мешает его работоспособности для любого клиента, - это условиеформатирование;то есть, если есть встреча, закрасьте ячейку синим цветом, если это конференция, фиолетовым с белым текстом и т. д.

Я могу заставить это работать, жестко кодируя цвета правила условного форматирования, но разные клиенты будут иметь разныедействия и разные цвета (и они очень суетливы в отношении цветов!).

Итак, я добавил отдельную вкладку «Форматирование», которая перетаскивает отдельный список всех действий, и ячейка рядомк нему, где они могут выбрать свои ячейки и цвета шрифта.

Где я нахожусь в тупике, получая правило условного форматирования, чтобы сказать: если текст содержит «ячейку A2», тогда используйте форматирование «ячейки B2»повторяя до строки 20. У меня работает первый бит:

 Selection.FormatConditions.Add Type:=xlTextString, String:="=Formatting!$A$2", _
        TextOperator:=xlContains

Но это:

With Selection.FormatConditions(1).Font
    .ThemeColor = xlThemeColorLight1
    .TintAndShade = 4.99893185216834E-02
End With

и

With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 10092543
        .TintAndShade = 0
    End With

частей, которыеЯ не могу понять, как заполнить, используя шрифт и цвет интерьера соседней ячейки (B2)

Есть предложения?