Нельзя установить свойство Values класса Series

@Саша Иванов · Регистрация: 08.12.2010

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

Всем привет! Помогите пожалуйста.
Формирую текстовую строку Str (диапазон значений), путем сложения разных строк. Присваиваю SeriesCollection(1).Values = Str. Пишет:
нельзя установить свойство Values класса Series. Что делать!!! Подскажите.

08.12.2010, 13:16

А тип у этого свойства какой? Может там ограничение на длину стоит?

@SlavaRus · 08.12.2010, 14:07

Приведи код как ты собираешь переменную и присваиваешь, может ошибка в преобразовании типов?

@Саша Иванов · 08.12.2010, 14:16 **[ТС]**

Почему!!!??? Не может присвоить в последней строке значение

Visual Basic
1
2
3
4
5
6
7
8
9
10
s1 = 'List1!'
s2 = 'R1C9'
St = s1 + s2
Charts.Add
ActiveChart.SetSourceData Source:=Sheets('List1').Range('M1'), _
PlotBy:=xlRows
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = 'List1'
ActiveChart.SeriesCollection(1).Values = St ' Ошибка!!!???

@Саша Иванов · 08.12.2010, 14:18 **[ТС]**

Хотя переменные St, s1 и s2 имеют тип строка

@SlavaRus · 08.12.2010, 14:37

Если ты хочешь передать в виде строки, нужны все равно разделители ';' и всю строку нужно заключить в {...}. Лучше описать массив dim MyArray() присвоить ему значения, а после этого присвоить его в SeriesCollection. Пример для String
Sub Макрос2()
Dim Ch1(), ch2(), Labx() As String
Dim a As String
Dim j As Integer

ReDim Ch1(I)
ReDim ch2(I)
ReDim Labx(I)
x = 0
step = 3.14 / I
For j = 0 To I
Ch1(j) = Replace(CStr(Round((Sin(x)), 2)), ',', '.')
ch2(j) = j * j * j
Labx(j) = CStr(j)
x = x + step
Next

Charts.Add
Charts(Charts.Count).Name = 'Проба'
With Charts('Проба')
.HasTitle = True
' .ChartTitle.Text = 'Проба'
.ChartType = xlLineMarkers
.SeriesCollection(1).XValues = Labx()
.SeriesCollection(1).Values = '={' & Join(Ch1(), ';') & '}'
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = 'Значения Х'
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = 'Значения У1'
.SeriesCollection.NewSeries
.SeriesCollection(2).Values = '={' & Join(ch2(), ';') & '}'
.SeriesCollection(2).AxisGroup = 2
.Axes(xlValue, xlSecondary).HasTitle = True
.Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = 'Значкния У2'
.Axes(xlValue, xlSecondary).MaximumScale = 8500
.Legend.Position = xlBottom
' .Location Where:=xlLocationAsObject, Name:='Лист1'
End With

End Sub

@Саша Иванов · 08.12.2010, 14:48 **[ТС]**

Но мне в SeriesCollection.Values надо передать не массив значений, а массив адресов ячеек. Т.к. значения в этих ячейках будут меняться.

@SlavaRus · 08.12.2010, 18:40

Я вверху невнимательно прочитал, прошу прошения немного погорячился

)
Когда присваиваешь в SeriesCollection нужна строка '=(Лист1!R1c9)'

Новые блоги и статьи Все статьи Все блоги /
Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	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 и по. . .

@Саша Иванов 0 / 0 / 0 Регистрация: 08.12.2010 Сообщений: 6

	Нельзя установить свойство Values класса Series 08.12.2010, 11:08. Показов 3530. Ответов 7 Метки нет (Все метки) Всем привет! Помогите пожалуйста. Формирую текстовую строку Str (диапазон значений), путем сложения разных строк. Присваиваю SeriesCollection(1).Values = Str. Пишет: нельзя установить свойство Values класса Series. Что делать!!! Подскажите. 0

Север
	08.12.2010, 13:16
	А тип у этого свойства какой? Может там ограничение на длину стоит?

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	08.12.2010, 14:07
	Приведи код как ты собираешь переменную и присваиваешь, может ошибка в преобразовании типов? 0

@Саша Иванов 0 / 0 / 0 Регистрация: 08.12.2010 Сообщений: 6
	08.12.2010, 14:18 [ТС]
	Хотя переменные St, s1 и s2 имеют тип строка 0

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	08.12.2010, 14:37
	Если ты хочешь передать в виде строки, нужны все равно разделители ';' и всю строку нужно заключить в {...}. Лучше описать массив dim MyArray() присвоить ему значения, а после этого присвоить его в SeriesCollection. Пример для String Sub Макрос2() Dim Ch1(), ch2(), Labx() As String Dim a As String Dim j As Integer ReDim Ch1(I) ReDim ch2(I) ReDim Labx(I) x = 0 step = 3.14 / I For j = 0 To I Ch1(j) = Replace(CStr(Round((Sin(x)), 2)), ',', '.') ch2(j) = j * j * j Labx(j) = CStr(j) x = x + step Next Charts.Add Charts(Charts.Count).Name = 'Проба' With Charts('Проба') .HasTitle = True ' .ChartTitle.Text = 'Проба' .ChartType = xlLineMarkers .SeriesCollection(1).XValues = Labx() .SeriesCollection(1).Values = '={' & Join(Ch1(), ';') & '}' .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = 'Значения Х' .Axes(xlValue, xlPrimary).HasTitle = True .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = 'Значения У1' .SeriesCollection.NewSeries .SeriesCollection(2).Values = '={' & Join(ch2(), ';') & '}' .SeriesCollection(2).AxisGroup = 2 .Axes(xlValue, xlSecondary).HasTitle = True .Axes(xlValue, xlSecondary).AxisTitle.Characters.Text = 'Значкния У2' .Axes(xlValue, xlSecondary).MaximumScale = 8500 .Legend.Position = xlBottom ' .Location Where:=xlLocationAsObject, Name:='Лист1' End With End Sub 0

@Саша Иванов 0 / 0 / 0 Регистрация: 08.12.2010 Сообщений: 6
	08.12.2010, 14:48 [ТС]
	Но мне в SeriesCollection.Values надо передать не массив значений, а массив адресов ячеек. Т.к. значения в этих ячейках будут меняться. 0

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	08.12.2010, 18:40
	Я вверху невнимательно прочитал, прошу прошения немного погорячился ) Когда присваиваешь в SeriesCollection нужна строка '=(Лист1!R1c9)' 0