Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Корректное автоматическое изменение верхней и нижней границы вертикальной оси на графике
 
#1
21.10.2020 11:39:30
Добрый день
Подскажите пожалуйста, как настроить корректное автоматическое изменение верхней и нижней границы вертикальной оси на графике?
На примере 1 нижняя граница оси начинается со 170 - отклонения хорошо видны


На примере 2 нижняя граница почему-то начинается с 0 - отклонения почти не видны((  Хотя они больше, чем в примере 1
 
 
 
#2
22.10.2020 19:04:34
Чайка, Как вариант можно макросом проставить, но для этого нужно определить сначала желаемый минимум и максимум на оси (как их определить).
Изменено: skais675 - 22.10.2020 19:05:16
Мой канал
 
 
 
#3
22.10.2020 21:28:40
skais675, из столбцов "Цена" и "С/с" - выбрать наименьшее значение - затем отнять 20 = нижняя граница оси
из столбцов "Цена" и "С/с" - выбрать наибольшее значение - затем прибавить 20 = верхняя граница оси

но значения в столбцах "Цена" и "С/с"  будут изменяться каждый раз при отборе в срезах сводной таблицы - поэтому и границы тоже должны меняться

как это всё записать в макрос - я, к сожалению, не умею...
 
 
 
#4
23.10.2020 08:37:56
Код
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    smin = 1000000
    smax = 0
    For Each cc In [C3:D14].Cells
        If Not IsError(cc) Then
            If cc < smin Then smin = cc
            If cc > smax Then smax = cc
        End If
    Next
    smin = smin - 20
    If smin < 0 Then smin = 0
    smax = smax + 20
    With ActiveSheet.ChartObjects("Диаграмма 1").Chart.Axes(xlValue)
        .MinimumScale = smin
        .MaximumScale = smax
    End With
End Sub
Изменено: skais675 - 23.10.2020 08:51:38
Мой канал
 
 
 
#5
23.10.2020 13:28:35
skais675, огромное спасибо!

Уменьшила добавляемый диапазон с 20 до 5  - теперь очень наглядный динамичный график!
 
 
 
Страницы: 1
Наверх