как сделать диаграмму круговую с равными секторами

Вход

Регистрация

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

= Мир MS Excel/как сделать диаграмму круговую с равными секторами - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » как сделать диаграмму круговую с равными секторами (Формулы/Formulas)

как сделать диаграмму круговую с равными секторами

baatr

Дата: Среда, 22.01.2020, 00:37 | Сообщение № 1

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

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

Сообщений: 17

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

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

Excel 2007

добрые вечер,

задача:
есть двенадцать значений (т.е. часы от 8:00 до 19:00) посетителей по часам
допустим 30 -- много посетителей,
таблица с посетителями может быть впоследствии изменена,
нужно создать круглую диаграмму на 12 равных секторов (по часам),
если посетителей много в какой-то час, то сектор будет окрашен красным, а если мало -- то зелёным.

К сообщению приложен файл: __.xlsx (10.0 Kb) · 4411087.jpg (79.6 Kb)

Сообщение отредактировал baatr - Среда, 22.01.2020, 00:38

Ответить

Nic70y

Дата: Среда, 22.01.2020, 08:56 | Сообщение № 2

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

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

Сообщений: 8760

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

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

Excel 2010

такой вариант
[vba]

Код

Sub U_700()
    s = 0
    For Each u In Range("e4:e15")
        s = s + 1
        If u < 30 Then
            ActiveSheet.ChartObjects("Диаграмма 1").Chart.SeriesCollection(1).Points(s).Format.Fill.ForeColor.RGB = RGB(0, 176, 80)
        Else
            ActiveSheet.ChartObjects("Диаграмма 1").Chart.SeriesCollection(1).Points(s).Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
        End If
    Next
End Sub

[/vba]меняйте данные, жмите на диаграмму

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

ЮMoney 41001841029809

Ответить

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