0

Необходимо организовать такой макрос, который при вызове строил бы столько графиков на активном листе, сколько строк в выборке, которая должна быть задана пользователем предварительно перед запуском макроса (конкретно сейчас выборка задаётся посредством InputBox'а). Критерии к отображению графика закомментированы в макросе.

Sub Стройка()
'
' Стройка Макрос
'

'
    'Вводимые данные: начиная с 0(d)0(Re),
    '                 заканчивая последним значением v_(i-тое)(d_(i-тое))v_(j-тое)(Re_(j-тое)) 
    '"_i-тое"/"_j-тое" - обозначил нижний индекс
    Set myRange = Application.InputBox("Выберите диапазон ячеек", Type:=8)
    'range должен быть определён заранее перед исполнением макроса уже выбранными ячейками
    ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select
    Dim Re As Integer
    'Re должно принимать значение первой ячейки в строке (1 - заглушка)
    Re = 1
    ActiveChart.ChartTitle.Text = _
    "В зависимости от Re = " & Re
    'зависимость должна быть такой: по Оси ординат-(Y) = v; по Оси абсцисс-(X) = d
    ActiveChart.SetSourceData Source:=myRange
    'С каждой новой строкой в выборке должен создаваться график v = f(d), 
    'не учитывая значения ячеек в первом столбце и первой строки 
    '(посредством циклов For Each...Next или For...Next)
End Sub

Вторая итерация в поисках решения задачи (дебаг показывает, что проблема на строке с передачей ренджа данных в исходники графика):

Sub Создание()

areaCount = Selection.Areas.Count

If areaCount <= 1 Then
    MsgBox "Выбранный массив имеет следующее количество Вариантов Re: " & _
    Selection.Rows.Count & " ."
End If

headRow = Selection.Rows(1)

For Each Rw In Selection.Rows

    curRow = Rw.Rows(i + 1)

    If Rw.Cells(1).Value > 0 Then
        
        Re = Rw.Cells(1).Value
        
        ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select
        
        ActiveChart.ChartTitle.Text = _
        "В зависимости от Re = " & Re
        
        ActiveChart.SetSourceData Source:=Range(headRow, curRow) '<--- DEBUG
    
    End If
Next
End Sub

Ссылка на исходник документа с примерами построения графиков disk.yandex.ru

Должно получаться столько графиков, как на картинке под таблицей, сколько строк в таблице, не считая первую: Иллюстрация правильных и неправильных графиков на выходе

2
  • Множество графиков - зачем? Все разои не сморжете анализировать. Один график, .но в зависимости от указанного значения отображает график по данным определенной строки. Такой вариант применим? 28 мар 2021 в 19:06
  • @vikttur, Задачу приходится формулировать именно таким образом, так как разных Cell в каждой Row будет намного больше, чем в примере. Единственное, что скорректирую: при прохождении Selection при помощи цикла, будут выделяться Rows и каждая последующая будет иметь отношение к первой, ввиду чего результаты графика по оси абсцисс и ординат будут верными в каждом случае. А анализ графиков в данной ситуации нужен именно такой. 29 мар 2021 в 11:08

1 ответ 1

0

Оказалось, не нужно забывать про Set для каждой переменной, которая принимает в себя Range.

Вот результат без проверки на выбранный диапазон и с графиками в куче:

Sub Создание()

areaCount = Selection.Areas.Count

If areaCount <= 1 Then
    MsgBox "Выбранный массив имеет следующее количество Вариантов Re: " & _
    Selection.Rows.Count & " ."
End If

Set headRow = Selection.Rows(1)

For Each Rw In Selection.Rows

    
    Set curRow = Rw.Rows(i + 1)

    
    If Rw.Cells(1).Value > 0 Then

        Set Sum = Union(headRow, curRow)
        
        Re = Rw.Cells(1).Value
        
        ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmooth).Select
        
        With ActiveChart
            '.Location
            .ChartTitle.Text = _
            "В зависимости от Re = " & Re
            .SetSourceData Source:=Sum, PlotBy:=xlRows
        End With
    End If
Next Rw
End Sub

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.