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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир 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
 
Ответить
Сообщениедобрые вечер,

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

Автор - baatr
Дата добавления - 22.01.2020 в 00:37
Nic70y Дата: Среда, 22.01.2020, 08:56 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 6445
Репутация: 1418 ±
Замечаний: 0% ±

ru13;10;03
такой вариант
[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)


Яндекс Деньги 41001841029809
 
Ответить
Сообщениетакой вариант
[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]меняйте данные, жмите на диаграмму

Автор - Nic70y
Дата добавления - 22.01.2020 в 08:56
Мир MS Excel » Вопросы и решения » Вопросы по Excel » как сделать диаграмму круговую с равными секторами (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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