Блог

Главная - Вопросы по программированию - Динамическое использование нескольких столбцов

Динамическое использование нескольких столбцов

#excel #vba

#excel #vba

Вопрос:

     A    B   C     D

1   X1   X2   Y1   Y2
2   0     0    2     2
3   0   0.1 2.15  2.15

У меня есть 4 столбца, которые я намерен использовать в диаграмме одновременно, динамически. Использование ячеек в пределах диапазона, но безуспешно. Заранее спасибо.

     ActiveChart.SeriesCollection.NewSeries
    
    ActiveChart.SeriesCollection(p).XValues = sh.Range(Cells(2, 1), Cells(3, 2))
    ActiveChart.SeriesCollection(p).Values = sh.Range(Cells(2, 3), Cells(3, 4))

Комментарии:

1. с какими ошибками вы сталкиваетесь?

2. sh.Range(sh.Cells(2, 1), sh.Cells(3, 2)) «Не удалось» не является полезным описанием проблемы, с которой вы сталкиваетесь в своем коде.

3. @Wils Mils: ошибка, определенная приложением или объектом

4. @Тим Уильямс: ошибка, определенная приложением или объектом

5. Я использую линейные диаграммы

Ответ №1:

Похоже, вы пытаетесь добавить две серии за один шаг — вам нужно добавлять их один за другим:

 Dim rngX As Range, rngY As Range, n as long

Set rngX = sh.Range("A2:A3")
Set rngY = sh.Range("C2:C3")

For n = 1 to 2
    With ActiveChart.SeriesCollection.NewSeries
        .XValues = rngX.offset(0, n-1)
        .Values = rngY.offset(0, n-1)
    End With
next n

Комментарии:

1. Я соединяю две координаты, чтобы соединить несколько строк (x1, y1,) и (x2, y2) = (0,2), (0,2)