Автоматический минимум границы оси диаграммы

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

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

Автоматический минимум границы оси диаграммы (Графики и диаграммы/Charts)

BlancoDima

Дата: Пятница, 10.01.2025, 06:46 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 2

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

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

Добрый день. Можно ли сделать, что бы ось для значений начиналась не с нуля, а в зависимости от минимального значения в столбцах? Вот в примере, у меня участники набирают баллы, и у них значения начинаются от 340, но график рисуется от нуля, а хотелось бы что бы он в этом случае рисовался примерно от 310. Я не могу могу выставить значение вручную для минимума в параметрах оси, потому что данные могут начинаться с любого значения.

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

Ответить

Nic70y

Дата: Пятница, 10.01.2025, 09:07 | Сообщение № 2

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

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

Сообщений: 9042

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

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

Excel 2010

вариант
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    a = Cells(Rows.Count, "a").End(xlUp).Row
    If Not Intersect(Target, Range("a1:a" & a + 1)) Is Nothing Then
        With ChartObjects("Диаграмма 1").Chart
            .SetSourceData Source:=Range("a1:a" & a)
            .Axes(xlValue).MinimumScale = Application.Min(Range("a1:a" & a))
        End With
    End If
End Sub

[/vba]

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

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 10.01.2025, 09:08

Ответить

BlancoDima

Дата: Пятница, 10.01.2025, 16:54 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 2

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

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

Nic70y Огромное спасибо! Это отлично работает. Хотя я удивлён что без скрипта это не решается.

Ответить

Автоматический минимум границы оси диаграммы (Графики и диаграммы/Charts)

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