размер шрифта в ячейке в зависимости от значения иной ячейки

Дата: Суббота, 12.10.2013, 17:09 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2010

Здравствуйте!
Пытаюсь построить модель визуального анализа, где в ячейках указывается различный размер квадратиков (из шрифта Wingdings) в зависимости от значения в других
ячейках. Например матрица продаж по регионам и месяцам. Продажи от 0 до 100 - размер квадратика 14 кегль, от 100 до 200 - размер квадратика 20 кегль и так далее.
Надеялся ввести второй критерий - доходность продаж - и уже сам квадратик в зависимости от этого закрашивать красным, жёлтым, зелёном. Это решение хотел создать путём набора правил условного форматирования,
но там можно задавать только цвет и границы ячеек , но не цвет шрифта почему-то...

Подскажите пожалуйста - формулами это можно как-то решить или только надо писать код на VBA?
Я просмотрел все функции по категориям на сайте MS , но так и не нашёл подходящего решения...
Заранее всем спасибо за ответ!

Дата: Суббота, 12.10.2013, 17:15 | Сообщение № 2

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

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

Сообщений: 4517

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

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

Excel 2003

Может быть УФ (условным форматированием) получится.
Без файла точнее сказать невозможно.

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

S_e_m

Дата: Суббота, 12.10.2013, 17:19 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 12

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

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

Excel 2003

В условном форматировании можно задавать цвет шрифта. Покрайней мере в 2003 версии во вкладке Шрифт, под "полужирный курсив" находится Цвет. ))

Дата: Суббота, 12.10.2013, 17:22 | Сообщение № 4

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2010

AlexM, спасибо, но УФ этого не позволяет - прикладываю скрин.

К сообщению приложен файл: 3968398.png (82.3 Kb)

Дата: Суббота, 12.10.2013, 17:22 | Сообщение № 5

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

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

Сообщений: 4517

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

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

Excel 2003

Сейчас посмотрел. В УФ можно менять только начертание. Размер не изменяется.
Так что только код VBA

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Дата: Суббота, 12.10.2013, 17:25 | Сообщение № 6

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2010

S_e_m, получется, что в 2010 версии этого не стало... а жаль,
значит только VBA.

Дата: Суббота, 12.10.2013, 17:35 | Сообщение № 7

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

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

Сообщений: 4517

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

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

Excel 2003

Можно таким кодом. Вставить в модуль листа
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
        Select Case Target.Value
        Case Is < 100: Target.Offset(0, 1).Font.Size = 14
        Case Is < 200: Target.Offset(0, 1).Font.Size = 20
        Case Is < 300: Target.Offset(0, 1).Font.Size = 26
        Case Is < 400: Target.Offset(0, 1).Font.Size = 32
        Case Is < 500: Target.Offset(0, 1).Font.Size = 38
        End Select
End If
End Sub

[/vba]
или так
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then
Target.Offset(0, 1).Font.Size = 8 + 6 * (Target.Value \ 100 + 1)
End If
End Sub

[/vba]

К сообщению приложен файл: CFO.xls (25.0 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Сообщение отредактировал AlexM - Суббота, 12.10.2013, 17:44

_Boroda_

Дата: Суббота, 12.10.2013, 17:52 | Сообщение № 8

Группа: Админы

Ранг: Местный житель

Сообщений: 16790

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Вы так хотели? Правда, у меня без макросов.

Цитата CFO, 12.10.2013 в 17:25, в сообщении № 6

получется, что в 2010 версии этого не стало.

Почему? Все осталось, как и было.

Цитата S_e_m, 12.10.2013 в 17:19, в сообщении № 3

во вкладке Шрифт, под "полужирный курсив" находится Цвет.

К сообщению приложен файл: 2_2.xlsx (8.4 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Дата: Суббота, 12.10.2013, 17:58 | Сообщение № 9

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2010

_Boroda_, AlexM,
спасибо!!
Просто красота) именно так и хотел!

Дата: Суббота, 12.10.2013, 18:12 | Сообщение № 10

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2010

_Boroda_,
без макросов очень любопытно!
анализирую правила УФ и не очень понимаю как реализован размер шрифта...
вижу, что неким образом через пользовательский формат во вкладке "Число" , только его "разгадать" не могу.
можно пару слов по этому поводу от Вас?
Заранее благодарен!

Дата: Суббота, 12.10.2013, 19:13 | Сообщение № 11

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

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

Сообщений: 4517

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

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

Excel 2003

Александр, твой вариант не для Excel 2003. Или я что-то не так делаю.

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Дата: Суббота, 12.10.2013, 20:28 | Сообщение № 12

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2010

Вот попробовал что-то сделать.
Не так, как задумывал, и не совсем так как Вы предложили, но на что-то похоже )
Я не стал пока что раскрашивать в более, чем 2 цвета, хотя градация планируется конечно же больше.
Не очень там понял, почему при УФ, когда я меняю абсолютный адрес на относительный он как-то не так копируется по диапазону, но результат тем не менее показал верный ))
Буду трудиться дальше .

К сообщению приложен файл: 2_2_new.xlsx (20.0 Kb)