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

Старая форма входа

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

Увеличение размера шрифта при условии. (Формулы/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

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

Код

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

[/vba]

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

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

Ответить

Alex_ST

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

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

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

Сообщений: 3211

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

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

2003

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

Код

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

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

Код

Dim Col

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