Увеличение размера шрифта при условии.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Увеличение размера шрифта при условии. (Формулы/Formulas)

alexandr_rus

Дата: Четверг, 17.04.2014, 06:49 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте многоуважаемые форумчане.

Есть необходимость увеличить размер шрифта в диапазоне ячеек при условии.

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

А вот размер и сам шрифт изменить не удается.

Версия офис 2007 рус.
С уважением Александр.

Ответить

AVP Дата: Четверг, 17.04.2014, 07:47 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 93

Репутация: 12 ±

Замечаний: 20% ±

Excel 2007

вот так давайте попробуем

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Target, Range("A3:B150")) Is Nothing Then Call ИзменениеЗначенияЯчейки(Target.Row, Target.Column) End If End Sub Sub ИзменениеЗначенияЯчейки(x, y) Dim Col If Cells(x, 2).Value < 0 Then Cells(x, 2).Font.Size = 20 End If If Cells(x, 2).Value > 0 Then Cells(x, 2).Font.Size = 10 End If End Sub

К сообщению приложен файл: _1-3-.xls (60.0 Kb)

Сообщение отредактировал Serge_007 - Четверг, 17.04.2014, 20:40

Ответить

Alex_ST Дата: Четверг, 17.04.2014, 22:59 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3219

Репутация: 622 ±

Замечаний: 0% ±

2003

AVP,
alexandr_rus, похоже, спрашивал всё-таки именно про СТАНДАРТНОЕ ВСТРОЕННОЕ УФ, а не про его имитацию макросами для строго определённых ячеек.
Так вот именно ВСТРОЕННОЕ УФ изменить может только начертание, цвет и тип подчёркивания шрифта.
А тип шрифта и его размер - нет.
Ну а если уж говорить про макросы, то во-первых, далеко не все знают VBA, и, соответственно, не могут самостоятельно разобрать код и понять, как записать условие и обрабатываемые ячейки (тем более, что Вы не дали никаких комментариев к своему коду ни в нём самом, ни в посте).
А во-вторых, когда пишете пример кода, то постарайтесь всё-таки не вводить в него лишних сущностей.
Ну зачем, например, у Вас написано

Intersect(Target, Range("A3:B150"))

если далее в процедуре Вы оцениваете значения и в соответствии с ними меняете размер шрифта только в столбце В ?
А зачем в процедуре задаёте

Dim Col

да ещё и как Variant если потом её не используете?