Изменение размера шрифта

[Nando]

Подскажите, как сделать так:

если в ячейке числа от 1 до 9, то размер шрифта должен быть 16,
если число становится 10, то размер шрифта уменьшается до 14?

В условном форматировании размер шрифта не изменить, а макрос делать ЛЕНЬ, может с помощью какой-то функции, ну например ЕСЛИ:


Заранне спасибо

[EducatedFool]

Формула размер шрифта не поменяет.
Только макрос:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> [b8].Address Then Exit Sub
    On Error Resume Next
    Target.Font.Size = IIf(Target.Value >= 10, 14, 16)
End Sub

Вам осталось заменить только адрес ячейки.

А зачем вообще это всё?
Можно изменить начертание символов (на полужирное, к примеру)
Разве этого недостаточно?

[Nando]

Сообщение от EducatedFool

Формула размер шрифта не поменяет.
Только макрос:

В пустой ячейке получилось, а в ячейке с формулой не работает.

Сообщение от EducatedFool

А зачем вообще это всё?
Можно изменить начертание символов (на полужирное, к примеру)
Разве этого недостаточно?

В сводной таблице отображаются результаты (чего-либо) и желательно чтобы цифры занимали всю ячейку, а получается: если 1-9 на всю ячейку, то 10 не помещается и выбивает #

[EducatedFool]

Тогда так:

Private Sub Worksheet_Calculate()
    [b8].Font.Size = IIf([b8].Value >= 10, 14, 16)
End Sub

[Nando]

Вот так работает.

Большое спасибо.