Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1 2 След.
RSS
Изменение размера шрифта в зависимости от значения в ячейке
 
#1
14.06.2016 11:31:36
Доброго времени суток!

Можно ли как то сделать с помощью условного форматирования или с помощью другого инструмента, чтобы если значение в ячейке больше 20 , то размер шрифта этой ячейки был равен 22, если значение в ячейке меньше 5, то размер шрифта в этой ячейке равен 10. И глобальней вопрос менять шрифт, например значение в ячейке больше 15, то шрифт Arial, а если меньше то Calibri
Изменено: nikitin_im - 14.06.2016 11:31:51
 
 
 
#2
14.06.2016 11:36:55
Размер шрифта можно изменить наверное только макросом. Условным форматированием Вы можете только сделать жирный, пунктирный или подчеркнутый текст или цвет поменять.
 
 
 
#3
14.06.2016 12:07:07
alexthegreat, а макрос можете дать?
Изменено: nikitin_im - 14.06.2016 12:07:33
 
 
 
#4
14.06.2016 12:17:06
запишите макрорекордером
скопируйте в модуль листа под заголовком sub worksheet_change
поменяйте ссылки с селекшн на target
Живи и дай жить..
 
 
 
#5
14.06.2016 12:17:26
Что значит "дать"? )) Написать, может быть? Скопируйте в модуль листа. Контролируется диапазон В2:В100
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2:B100")) Is Nothing Then
        With Target
            If .Value > 20 Then
                .Font.Size = 22
            End If
            If .Value < 5 Then
                .Font.Size = 10
            End If
            If .Value > 15 Then
                .Font.Name = "Arial"
            Else
                .Font.Name = "Calibri"
            End If
        End With
    End If
End Sub
 
 
 
#6
14.06.2016 12:22:21
Спасибо
 
 
 
#7
14.06.2016 12:24:37
Недоглядел: можно было не писать несколько раз Font: With Target.Font
Ну ладно ))
 
 
 
#8
14.06.2016 16:54:50
Постановка задачи неполная. Например какой размер шрифта должен быть если значение от 5 до 20? И какой шрифт использовать при значении 15?
Цитата
Юрий М написал:
можно было не писать несколько раз Font: With Target.Font
Мне кажется нельзя - ведь постоянно для сравнения используется .Value
Не уверен что что сработает получившееся конструкция Target.Font.Value
Не стреляйте в тапера - он играет как может.
 
 
 
#9
14.06.2016 16:59:55
Target.Font.Value, конечно, не сработает )
Я чисто про шрифт говорил, но тогда придётся каждый раз упоминать if Target...  :)
Не поймёшь, где сэкономить.
 
 
 
#10
15.06.2016 09:49:09
Сократил на 1 слово  :D
Скрытый текст
F1 творит чудеса
 
 
 
#11
15.06.2016 10:24:59
Максим Зеленский, тогда уж так (плюс два слова):
Код
Select Case Target.Value
    Case Is > 20
        .Size = 22
    Case Is < 5
        .Size = 10
End Select
Не стреляйте в тапера - он играет как может.
 
 
 
#12
15.06.2016 10:29:30
И о погоде. ((с) С.М.)
На улице дождь и мне тоже делать нечего:
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B2:B100")) Is Nothing Then
With Target.Font
.Size = Split(Switch(Target < 5, "10 Calibri", Target > 20, "22 Arial", Target > 15, "10 Arial"))(0)
.Name = Split(Switch(Target < 5, "10 Calibri", Target > 20, "22 Arial", Target > 15, "10 Arial"))(1)
End With
End If
End Sub
 
 
 
#13
22.06.2016 20:35:39
Подниму тему, т.к. тоже любопытно =)
У меня несколько другой интерес. Как сделать, чтобы этот макрос срабатывал при изменении ячейки, которая рассчитывается по какой-либо формуле?
Меняю на Private Sub Worksheet_Activate () либо на Private Sub Worksheet_Calculate(), но выдает ошибку с строках
Код
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B2:B100")) Is Nothing Then
 
 
 
#14
22.06.2016 21:17:57
Потому что ни в Worksheet_Activate, ни в Worksheet_Calculate нет понятия Target - целевой ячейки.
 
 
 
#15
22.06.2016 22:01:25
Цитата
Юрий М написал: нет понятия Target - целевой ячейки
для меня это головоломка... до таких знаний я еще не добрался и не понимаю, как обойти это.
Можете указать, где почитать про это хотя бы? А лучше на примере, как же это сделать =)
Благодарю.
 
 
 
#16
22.06.2016 22:02:57
Цитата
Андрей Прокофьев написал: А лучше на примере
Вот тут я с Вами согласен: на примере лучше. На Вашем, разумеется )
 
 
 
#17
22.06.2016 22:19:14
Андрей Прокофьев, а чем вас не устраивает Worksheet_Change, где можно с помощью If'ов установить нужный результат?
 
 
 
#18
22.06.2016 22:20:31
Упс. прошу прощения, набросал простейший пример, уже с вашим кодом.
Суть, Ячейки на листе "ИТОГИ" вручную не меняются, они рассчитываются формулой, а вот данные для расчета находятся на листе "Исходные" (в моем случае на лист "ИТОГИ" данные подтягиваются с 5 различных листов). Но для листа ИТОГИ как раз и хотелось бы применять макрос, который меняет размер шрифта в зависимости от значения в ячейках.

P.S. Пока писал, начал догадываться, что можно сделать макрос для изменения размера на интересующем листе, но при изменении одного из 5 других листов. =)
Единственное НО - на других пяти листах данные вводятся через форму, т.е. ячейки руками тоже никто не изменяет =)
 
 
 
#19
22.06.2016 22:23:04
Цитата
Jungl написал:
а чем вас не устраивает Worksheet_Change
Цитата
Андрей Прокофьев написал:
чтобы этот макрос срабатывал при изменении ячейки, которая рассчитывается по какой-либо формуле
 
 
 
#20
22.06.2016 22:30:46
Пока не было примера:
Код
Private Sub Worksheet_Calculate()
    With Range("A1")
        If .Value > 5 Then
            .Font.Size = 10
        Else
            .Font.Size = 20
        End If
    End With
End Sub
 
 
 
#21
22.06.2016 22:40:18
Юрий М, не дошло до меня, что макрос используют на целевой странице, а действие выполняется на другой :)
Ну раз с примером, тогда можно и так))
Код вставляем в ЭтаКнига
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
        If ActiveSheet.Name <> "Исходные" Then Exit Sub
            If Not Intersect(Target, Range("B2:D4")) Is Nothing Then
                If Target.Value <> 0 Then
                a = Target.Row
                b = Target.Column
                Sheets("Итоги").Cells(a, b).Font.Size = 14
            End If
        End If
End Sub
 
 
 
#22
22.06.2016 22:40:26
Цитата
Юрий М написал: Пока не было примера:
Не работает, т.к. надо просматривать диапазон ячеек, а не одну. Ошибка по строке If .Value > 5 Then
 
 
 
#23
22.06.2016 22:50:38
Цитата
Jungl написал: Код вставляем в ЭтаКнига
Попробовал, работает, чуть дописал код.
Но работает странно, посмотрите.
Изменяет размер только в одной ячейке из двух! Поменяйте на листе "Исходные" любой "0" на другое число.
Изменено: Андрей Прокофьев - 23.06.2016 02:25:33
 
 
 
#24
22.06.2016 22:55:25
Цитата
Андрей Прокофьев написал: надо просматривать диапазон ячеек, а не одну
Откуда мне было знать об этом? Вы же сразу ничего не сказала - просто Calculate...
 
 
 
#25
22.06.2016 23:00:44
Цитата
Юрий М написал: Откуда мне было знать об этом?
Все верно, я для этого пример делал... не успел за Вами
 
 
 
#26
22.06.2016 23:01:40
Андрей Прокофьев, если нужно обратное, то a и b нужно переместить выше, иначе координаты ячеек пропускаются при вводе 0, т.к. выполняется else :)
Код
a = Target.Row
b = Target.Column
If Target.Value <> 0 Then
Sheets("Итоги").Cells(a, b).Font.Size = 20
Else
Sheets("Итоги").Cells(a, b).Font.Size = 11
Используйте Local window и brakepoint, очень помогают
 
 
 
#27
22.06.2016 23:28:58
Цитата
Jungl написал: Используйте Local window и brakepoint
ого! я не спец в vba, больше формулист и такого не знал! буду изучать... Спасибо.

P.S. Урезал свой файл, где все это хочу реализовать.
На листе "форма данных" вносятся данные через форму.
На листе "Факт-План по категориям" формулами собираются данные с первого листа. И именно на этом листе хочу, чтобы при изменении (<> 0) какой-либо ячейки в диапазоне D2:V31 менялся шрифт, помимо настроенного условного форматирования.

Буду очень признателен, если поможете разрешить задачу именно на этом примере.
 
 
 
#28
23.06.2016 01:51:57
Андрей Прокофьев, как вариант.
За основу было взято отсюда
 
 
 
#29
23.06.2016 10:02:34
Спасибо! Работает почти как надо. Почитал пост, откуда был взят пример. Как я понял вы объявили 2 переменные, одна из которых "а" запоминается при открытии книги и в дальнейшем сравнивается со второй "b". Если есть изменения, то срабатывает изменение размера шрифта.

Теперь я пытаюсь разобраться в другом нюансе. А что если я внес данные на лист "Форма данных", макрос сработал, а потом я взял и изменил руками уже имеющиеся данные? У меня вылезает ошибка Run-time error 9 по строке
Код
If a(i, n) <> b(i, n) Then
Опять же догадываюсь, что это из-за переменной "а" которая была сформирована при открытии книги, т.к. она уже отличается от имеющихся данных.
А вот как ее заново формировать после каждого изменения?

Я честно стараюсь разобраться и запомнить как это все работает =)

P.S. Кстати, аналогичная ошибка вылезает, если на лист "Форма данных" в столбец D вписать число, а при этом формат ячеек стоит "Общий" или "числовой". Если формат текстовый, все ок.
Изменено: vikttur - 24.10.2016 20:25:23
 
 
 
#30
23.06.2016 10:57:51
Цитата
Андрей Прокофьев написал:
У меня вылезает ошибка Run-time error 9 по строке
Дайте угадаю, вы ставите точку останова, смотрите поведение макроса, потом жмете ресет? :)
Если да, то объявленный массив a теперь уже не массив a, там вообще ничего, мы почистили всё.
Эту же ошибку будет выдавать, когда изменив что либо в коде не так - нажали ресет, мы не дойдем до пункта
Код
a = b
где массиву a мы должны были бы присвоить значения массива b

Цитата
Андрей Прокофьев написал:
А вот как ее заново формировать после каждого изменения?
Нужно снова заполнить массив a, но чтобы не закрывать\открывать каждый раз книгу, сделайте кнопку на листе и повесьте на него макрос auto_open.
Цитата
Андрей Прокофьев написал:
аналогичная ошибка вылезает, если на лист "Форма данных" в столбец D вписать число
У меня никаких проблем, т.к. я не увидел зависимости второго листа со столбцом D первого листа.
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх