Изменение размера шрифта по условию

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Изменение размера шрифта по условию - Мир MS Excel

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

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

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

Изменение размера шрифта по условию

mariskkayes

Дата: Среда, 18.09.2024, 10:19 | Сообщение № 1

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

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

Сообщений: 8

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

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

2016

Добрый день.
как изменить код, что б в третей строке шрифт в ячейках был в следующей
зависимости: если =1 то шрифт 22, если =2 шрифт 18, если =3 шрифт 14,
если >3 шрифт 10, если вставлять вручную, то код работает, но данные
вставляются из первой стоки

К сообщению приложен файл: vopros1.xlsm (20.1 Kb)

MariskkA

Сообщение отредактировал mariskkayes - Среда, 18.09.2024, 10:20

Ответить

Nic70y

Дата: Среда, 18.09.2024, 10:44 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 9032

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

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

Excel 2010

[vba]

Код

Private Sub Worksheet_Calculate()
    For Each a In Range("a3:f3")
        b = a.Value
        a.Font.Size = Application.Max(10, (4 - b) * 4 + 10)
        If b > 1 Then
            a.Font.Name = "Truetypewriter PolyglOTT"
        Else
            a.Font.Name = "Times New Roman"
        End If
    Next
End Sub

[/vba]

ЮMoney 41001841029809

Ответить

mariskkayes

Дата: Среда, 18.09.2024, 11:51 | Сообщение № 3

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

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

Сообщений: 8

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

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

2016

Nic70y, большое спасибо

MariskkA

Ответить

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

Страница 1 из 1
1