Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Изменение размера шрифта по условию
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
 
Ответить
СообщениеДобрый день.
как изменить код, что б в третей строке шрифт в ячейках был в следующей
зависимости: если =1 то шрифт 22, если =2 шрифт 18, если =3 шрифт 14,
если >3 шрифт 10, если вставлять вручную, то код работает, но данные
вставляются из первой стоки

Автор - mariskkayes
Дата добавления - 18.09.2024 в 10:19
Nic70y Дата: Среда, 18.09.2024, 10:44 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8972
Репутация: 2356 ±
Замечаний: 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
 
Ответить
Сообщение[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]

Автор - Nic70y
Дата добавления - 18.09.2024 в 10:44
mariskkayes Дата: Среда, 18.09.2024, 11:51 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

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


MariskkA
 
Ответить
СообщениеNic70y, большое спасибо

Автор - mariskkayes
Дата добавления - 18.09.2024 в 11:51
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!