Есть необходимость увеличить размер шрифта в диапазоне ячеек по условию.
для этого я выделяю диапазон - условное форматирование - правила выделения ячеек - больше - ставлю значение "например 9" - пользовательский формат - открывается формат ячеек - вкладка шрифт - доступно для изменения только начертание и подчеркивание а также цвет.
А вот размер и сам шрифт изменить не удается.
версия офис 2007 рус.
Примечание:
На одном из форумов предложили вариант
http://www.excelworld.ru/forum/2-10258-1
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
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.