Макрос построения точечного графика по шаблону

@OLEGOFF · Регистрация: 27.02.2013

Студворк — интернет-сервис помощи студентам

Всем,доброго дня!
При написании макроса по построению графика возник вопрос.
При записи макрорекордером получается следующий код

Visual Basic
1
2
3
ActiveChart.SeriesCollection(2).XValues = "=Лист1 !R2C5:R3000C5"
 ActiveChart.SeriesCollection(2).Values = "=Лист1 !R2C6:R3000C6"
 ActiveChart.SeriesCollection(2).Name = "=Лист1 !R1C6"

также возможен следующий синтаксис

Visual Basic
1
2
3
ActiveChart.SeriesCollection(2).XValues = Sheets("Лист1").Range("E2:E3000")
ActiveChart.SeriesCollection(2).Values = Sheets("Лист1").Range("F2:F3000")
ActiveChart.SeriesCollection(2).Name = Sheets("Лист1").Range("F1")

А вот таким образом номер не проходит

Visual Basic
1
ActiveChart.SeriesCollection(2).XValues = Sheets("Лист1").Range(Cells(2, 6), Cells(3000, 6))

А мне необходимо организовать цикл по построению,т.к. всего надо 56 рядов данных

Visual Basic
1
ActiveChart.SeriesCollection(i).XValues = Sheets("Лист1").Range(Cells(2, i*2+1), Cells(Rows.Count, i*2+2))

Подскажите пожалуйста способ решения проблемы.

Shersh · 01.02.2016, 12:25

OLEGOFF, Sheets("Лист1") активен при работе макроса?
М.б. так надо

Visual Basic
1
ActiveChart.SeriesCollection(i).XValues = Sheets("Лист1").Range(Sheets("Лист1").Cells(2, i*2+1), Sheets("Лист1").Cells(Rows.Count, i*2+2))

?

@OLEGOFF · 01.02.2016, 12:36 **[ТС]**

Shersh,не получается.Файл прикрепляю

@Vlad999 · 01.02.2016, 13:24

у вас после этой строчки Charts.Add активно окно диаграммы а не Лист 1, там нет строк, вот по этому Cells(Rows.Count, 3) ругается.

@OLEGOFF · 01.02.2016, 13:35 **[ТС]**

Vlad999,подскажите как активировать Лист1 и в какой строчке?

@Vlad999 · 01.02.2016, 13:57

активировать его не нужно.
как вариант в начале кода до Charts.Add найти последнюю заполненную строку нужного столбца.

Visual Basic
1
2
Dim LR As Long
LR = Cells(Rows.Count, i*2+1).End(xlUp).Row

и вместо Rows.Count вписать LR

@OLEGOFF · 02.02.2016, 11:51 **[ТС]**

Vlad999,спасибо,помогло.Теперь буду думать над циклом

Добавлено через 21 час 41 минуту
Сделал цикл построения графика.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Sub grafic()
 
Dim LR As Long
LR = Cells(Rows.Count, 5).End(xlUp).Row
    Charts.Add
    ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("U20")
    ActiveChart.ChartType = xlXYScatter
    For i = 1 To 56
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(i).XValues = Sheets("Лист1").Range(Sheets("Лист1").Cells(2, i * 2 + 1), Sheets("Лист1").Cells(LR, i * 2 + 1))
    ActiveChart.SeriesCollection(i).Values = Sheets("Лист1").Range(Sheets("Лист1").Cells(2, i * 2 + 2), Sheets("Лист1").Cells(LR, i * 2 + 2))
    ActiveChart.SeriesCollection(i).Name = Sheets("Лист1").Cells(1, i * 2 + 2)
    ActiveChart.SeriesCollection(i).Select
    With Selection.Border
        .Weight = xlHairline
        .LineStyle = xlNone
    End With
    With Selection
        .MarkerBackgroundColorIndex = i
        .MarkerForegroundColorIndex = i
        .MarkerStyle = xlSquare
        .Smooth = False
        .MarkerSize = 2
        .Shadow = False
    End With
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(i).Select
    With Selection.Border
        .ColorIndex = i
        .Weight = xlMedium
        .LineStyle = xlContinuous
    End With
    
     With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Картина"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
  Next i
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
    ActiveChart.ChartArea.Select
    ActiveChart.ChartType = xlXYScatter
    ActiveWindow.Visible = False
    Windows("Построить график.xls").Activate
    Range("N8").Select
    
End Sub

Все работает,только вот никак не могу ввести в тело цикла строку

Сообщение от Vlad999

LR = Cells(Rows.Count, i*2+1).End(xlUp).Row

т.к.тогда строятся все 56 графиков вместо одного.
А так как сейчас,приходится вручную подставлять номер самого длинного столбца,но при этом соответственно замедляется работа.
Как правильно организовать цикл?Подскажите пожалуйста.

@Vlad999 · 02.02.2016, 13:18

цикл для чего вам нужен?
в общем опишите вашу задачу.

@OLEGOFF · 02.02.2016, 13:30 **[ТС]**

На Листе имеются координаты точек изображения.(X,Y).Координаты расположены в соответствии с цветом.Необходимо получить изображение на графике с наименьшими телодвижениями.

@Vlad999 · 02.02.2016, 14:38

цикл будет выглядеть как то так

Код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub grafic()
 
Dim LR As Long
 Application.ScreenUpdating = False
    Charts.Add
    ActiveChart.SetSourceData Source:=Sheets("Лист1").Range("U20")
    ActiveChart.ChartType = xlXYScatter
    For i = 3 To 114 Step 2
    n = n + 1
    LR = Sheets("Лист1").Cells(Sheets("Лист1").Rows.Count, i).End(xlUp).Row
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.SeriesCollection(n).XValues = Sheets("Лист1").Range(Sheets("Лист1").Cells(2, i), Sheets("Лист1").Cells(LR, i))
    ActiveChart.SeriesCollection(n).Values = Sheets("Лист1").Range(Sheets("Лист1").Cells(2, i + 1), Sheets("Лист1").Cells(LR, i + 1))
    ActiveChart.SeriesCollection(n).Name = Sheets("Лист1").Cells(1, i + 1)
    ActiveChart.SeriesCollection(n).Select
    With Selection.Border
        .Weight = xlHairline
        .LineStyle = xlNone
    End With
    With Selection
        .MarkerBackgroundColorIndex = n
        .MarkerForegroundColorIndex = n
        .MarkerStyle = xlSquare
        .Smooth = False
        .MarkerSize = 2
        .Shadow = False
    End With
    ActiveChart.PlotArea.Select
    ActiveChart.SeriesCollection(n).Select
    With Selection.Border
        .ColorIndex = n
        .Weight = xlMedium
        .LineStyle = xlContinuous
    End With
    
     With ActiveChart
        .HasTitle = True
        .ChartTitle.Characters.Text = "Картина"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
  Next i
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Лист1"
    ActiveChart.ChartArea.Select
    ActiveChart.ChartType = xlXYScatter
    ActiveWindow.Visible = False
    Windows("Построить график.xls").Activate
    Range("N8").Select
 Application.ScreenUpdating = True
End Sub

@OLEGOFF · 02.02.2016, 14:48 **[ТС]**

Vlad999,спасибо всё заработало как надо

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

@Vlad999 3947 / 2340 / 790 Регистрация: 02.11.2012 Сообщений: 6,220
	01.02.2016, 13:24
	у вас после этой строчки Charts.Add активно окно диаграммы а не Лист 1, там нет строк, вот по этому Cells(Rows.Count, 3) ругается. 1

@OLEGOFF 1082 / 523 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	01.02.2016, 13:35 [ТС]
	Vlad999,подскажите как активировать Лист1 и в какой строчке? 0

@Vlad999 3947 / 2340 / 790 Регистрация: 02.11.2012 Сообщений: 6,220
	02.02.2016, 13:18
	цикл для чего вам нужен? в общем опишите вашу задачу. 0

@OLEGOFF 1082 / 523 / 141 Регистрация: 27.02.2013 Сообщений: 1,508
	02.02.2016, 14:48 [ТС]
	Vlad999,спасибо всё заработало как надо 0

Макрос построения точечного графика по шаблону

Решение