Разбор ошибки: Run-time error '1004' . Нельзя установить свойство Values класса Series

Пользователь

Сообщений: 49 Регистрация: 27.01.2014

24.06.2014 13:24:42

Всем привет!
Имеется такой код:

Код

Rem меняем Диаграмму на 4 листе, делаем ее активной
     Rem RowCount - подсчитываем кол-во заполненных строк списка работ, только нужно снизу пустые строки удалить
     RowCount = Лист3.Cells(4, 9)
   Rem Дальше меняем параметры диаграммы (столбцы и отсечку соответсвенно)
    Лист4.ChartObjects(1).Activate
    Param1 = "='Итоговая диаграмма'!$BN$57:$BN$" + Trim(Str(57 + RowCount - 1))
    Param2 = "='Итоговая диаграмма'!$BO$57:$BO$" + Trim(Str(57 + RowCount - 1))
     ActiveChart.SeriesCollection(1).Values = Param1
     ActiveChart.SeriesCollection(2).Values = Param2

Данный код предназначен для отсечения пустых строк в таблице с целью последующей постройки диаграммы.
Код рабочий, в версиях 07-10 года Экселя стабильно работает. Работал и в 2003, но сегодня у человека перестал запускаться.
Ошибку выдает на следующие строки:

Код
ActiveChart.SeriesCollection(1).Values = Param1 ActiveChart.SeriesCollection(2).Values = Param2

Что нужно сделать чтобы всё заработало?

LVL Пользователь Сообщений: 904 Регистрация: 01.01.1970	#2 24.06.2014 14:27:48 1004 это ошибка приложения, скорее всего ошибка в названиях или ссылках... Без конкретного примера это гадание на кофейной гуще Изменено: LVL - 24.06.2014 14:28:35

Роман shs

Пользователь

Сообщений: 49 Регистрация: 27.01.2014

24.06.2014 15:01:12

Файл больше 2 мб веса. Даже архивом больше разрешенного в 100 кб.
Эта ошибка связана с версией Экселя?
Повторюсь, что файл перестал работать в 2003 экселе.
В 07/10 экселе стабильно работает.

Изменено: Роман shs - 24.06.2014 21:34:37

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ \| Win10x64, MSO2019x64	#4 24.06.2014 15:05:18 Роман shs, для больших файлов существуют файлообменники. Мылру, ргхост и т.д. и т.п. Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

Роман shs Пользователь Сообщений: 49 Регистрация: 27.01.2014	#5 24.06.2014 15:15:15 Знаю о существовании файлообменников, но на работе запрещен доступ на них. Ни на один нельзя.

JayBhagavan Пользователь Сообщений: 11833 Регистрация: 17.01.2014 ПОЛ: МУЖСКОЙ \| Win10x64, MSO2019x64	#6 24.06.2014 15:24:53 Мыло, скайп, айсикю тоже под запретом? Тогда из дому на файлообменник. Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori

hohlick

Пользователь

Сообщений: 4663 Регистрация: 11.06.2014

Microsoft MVP 2018-2022

24.06.2014 18:56:36

Код
ActiveChart.SeriesCollection(1).Values = Param1 ActiveChart.SeriesCollection(2).Values = Param2

Замените на

Код
ActiveChart.SeriesCollection(1).Formula = Param1 ActiveChart.SeriesCollection(2).Formula = Param2

или поюзайте справку VBA по Series Object Members
Я думаю, что причина ошибки, как ни странно, именно в этом: метод Values вот так описан:

Цитата

The value of this property can be a range on a worksheet or an array of constant values, but not a combination of both. See the examples for details.
Example
This example sets the series values from a range.

Код
Charts("Chart1").SeriesCollection(1).Values = _ Worksheets("Sheet1").Range("C5:T5")

To assign a constant value to each individual data point, you must use an array.

Код
Charts("Chart1").SeriesCollection(1).Values = _ Array(1, 3, 5, 7, 11, 13, 17, 19)

Изменено: hohlick - 24.07.2014 18:25:19

F1 творит чудеса

Роман shs Пользователь Сообщений: 49 Регистрация: 27.01.2014	#8 24.06.2014 23:31:55 https://www.sendspace.com/file/hxvm4h залил на файлообменник.

Роман shs Пользователь Сообщений: 49 Регистрация: 27.01.2014	#9 24.06.2014 23:38:03 Замена Values на Formula ошибку исправило, но диаграммы не строятся.. нулевые значения пишутся

hohlick

Пользователь

Сообщений: 4663 Регистрация: 11.06.2014

Microsoft MVP 2018-2022

#10

25.06.2014 01:00:00

намек: так выглядит нормальная формула ряда:

Код
=РЯД(название;категории;'Итоговая диаграмма'!$BN$57:$BN$59;3)

у вас в коде:

Код
Param1 = "='Итоговая диаграмма'!$BN$57:$BN$" + Trim(Str(57 + RowCount - 1))

явно чего-то не хватает

Роман shs, посмотрите, куда у вас ссылается в макросе 2-й ряд. в таблице там пустые ячейки. И да, лучше все-таки FormulaLocal.

Код
Str(57 + RowCount - 1)

не равно ли этому:

Код
Str(56 + RowCount)

Изменено: hohlick - 25.06.2014 15:17:19

F1 творит чудеса

Роман shs

Пользователь

Сообщений: 49 Регистрация: 27.01.2014

#11

25.06.2014 09:36:10

hohlick, прошу пояснить, что мне поправить и какой окончательный вид примет код...
Не силен в программировании и в макросах в частности.
Пока моих знаний хватает чтобы вставить код...

Цитата
hohlick пишет: явно чего-то не хватает

Чего тут не хватает?

hohlick

Пользователь

Сообщений: 4663 Регистрация: 11.06.2014

Microsoft MVP 2018-2022

#12

25.06.2014 18:42:17

На двух разных компах в 2 разных Excel 2010 - в одном удалось повторить начальную ошибку, в другом код работает без проблем.
Если ошибка повторяется, то тогда попробуйте покуритьвот это.
Цитата
но диаграммы не строятся.. нулевые значения пишутся
А какие должны писаться значения, если ряд диаграммы ссылается на столбец, содержащий нулевые значения? Удивительно, если бы диаграмма показывала что-то другое. Буквально: в параметрах диаграммы вы прописываете 2-й ряд вот так:
Код
Param2 = "='Итоговая диаграмма'!$BO$57:$BO$" + Trim(Str(57 + RowCount - 1))
Недолгий анализ показывает, что диапазон получающийся = $BO$57:$BO$59, и он содержит нули в виде значений.
А вот почему он содержит нули - это уже вопрос к формулописцу, там длинная цепочка формул, ведущая на скрытые столбцы, и какие эти формулы должны давать результаты, я предсказывать не берусь, ибо не понимаю, что должно считаться, как и почему, точнее - лень разбираться. Но то, что в ячейке $BO$57 содержится ссылка =$BN$66, имеющую значение 0 - это медицинский факт. Я думаю, что проблема ваших диаграмм именно в этом. По крайней мере, если забить на листе ФИО1 значения на всю таблицу - что-то там перестраивается на диаграммах.
Если вы хотите получить что-то конкретное в итоге, то тогда напишите, какой результат должен получаться с текущими исходными данными. Придумывать за вас его не охота

F1 творит чудеса

hohlick Пользователь Сообщений: 4663 Регистрация: 11.06.2014 Microsoft MVP 2018-2022	#13 25.06.2014 18:43:53 Неплохо бы подправить скрипт bb-кода, чтобы не вставлял после блоков "код" и "цитата" лишние переводы строк. Лениво переключаться в коды, бегать по тексту и удалять. F1 творит чудеса

Юрий М

Модератор

Сообщений: 61041 Регистрация: 14.09.2012

Контакты см. в профиле

#14

25.06.2014 20:49:52

Цитата
hohlick пишет: Неплохо бы подправить скрипт bb-кода ... Лениво переключаться в коды, бегать по тексту и удалять.

Предложите владельцу сайт свои услуги по правке кода.
Никуда в коды переключаться не нужно: увидели готовое сообщение - сразу исправьте (удалите пустую строку) прямо в тексте.

Роман shs

Пользователь

Сообщений: 49 Регистрация: 27.01.2014

#15

25.06.2014 23:18:31

Цитата
hohlick пишет: какие должны писаться значения, если ряд диаграммы ссылается на столбец, содержащий нулевые значения?

тут идет ссылка на десятое значение в таблице для постройки линии тренда по значению 10 работы.

Роман shs

Пользователь

Сообщений: 49 Регистрация: 27.01.2014

#16

26.06.2014 00:00:01

hohlick, опишу вкратце назначение программы. Программа подсчитывает оценки выставляемые специалистами по выдвигаемым работам на премии.
Т.е. есть перечень работ. Есть специалисты которые выставляют оценки по 10 показателям.

1	Param2 = "='Итоговая диаграмма'!$BO$57:$BO$" + Trim(Str(57 + RowCount - 1))

Этот код работает по десятой работе, которая является крайней по величине которой строится линия тренда для определения работ, которые получат премию.
Данный макрос был предназначен для того чтобы строить диаграммы от количества выдвигаемых работ, т.к. количество работ непостоянно.

выкладываю обновленный файл, который у меня в 2010 экселе работает, а в 03 нет. Значения можно менять.
http://files.mail.ru/BC34993756764592BB35C7DD3403EEC2

П.С. забыл добавить, что даже если все значения будут заполнены, то все равно выдает ошибку.

Изменено: Роман shs - 26.06.2014 10:02:33

hohlick

Пользователь

Сообщений: 4663 Регистрация: 11.06.2014

Microsoft MVP 2018-2022

#17

26.06.2014 17:23:18

попробуйте вот такой код:

Код
Лист4.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист4.Range("$BN$57").Resize(RowCount)

если сработает без ошибки - то вот полный код макроса:

Скрытый текст

Код

Sub Somecode2()
    ActiveWorkbook.Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    
    Const ExpNumber = 25 'количество экспертов
    Dim ExpNames(ExpNumber) As String
    
    Sheets("Перечень экспертов").Select
    Range("B4").Select
    If (ActiveCell.Offset(1, 0).Value <> 1 Or Trim(ActiveCell.Offset(1, 0).Value) <> "1") Then  
      MsgBox ("В ячейке B5 должны начинаться номера экспертов!!!!") 
      Exit Sub 
    End If
    
    ' заносим имена экспертов в массив
    For i = 1 To ExpNumber
        ExpNames(i) = Trim(ActiveCell.Offset(i, 1).Value)
    Next i
    ' завели имена экспертов в массив
    ' переименовываем листы
    For i = 1 To ExpNumber
      If ExpNames(i) = "" Then
      Sheets(i + 3).Name = i
       Else
       Sheets(i + 3).Name = ExpNames(i)
      End If
    Next i
    ' переименовали
   
   Application.ScreenUpdating = True
   ActiveWorkbook.Application.Calculation = xlCalculationAutomatic

'Rem RowCount - подсчитываем кол-во заполненных строк списка работ, только нужно снизу пустые строки удалить
     RowCount = Лист3.Cells(4, 9)

'Rem Дальше меняем параметры диаграмм (столбцы и отсечку соответсвенно)

' итоговая диаграмма

Лист4.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист4.Range("$BN$57").Resize(RowCount)
Лист4.ChartObjects(1).Chart.SeriesCollection(2).Values = Лист4.Range("$BO$57").Resize(RowCount)
    
Лист4.ChartObjects(2).Chart.SeriesCollection(1).Values = Лист4.Range("$CE$57").Resize(RowCount)
Лист4.ChartObjects(2).Chart.SeriesCollection(2).Values = Лист4.Range("$CF$57").Resize(RowCount)

'сводные диаграммы
Лист5.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист5.Range("$AE$56").Resize(RowCount)
Лист6.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист6.Range("$AE$56").Resize(RowCount)
Лист40.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист40.Range("$AE$56").Resize(RowCount)
Лист8.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист8.Range("$AE$56").Resize(RowCount)
Лист9.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист9.Range("$AE$56").Resize(RowCount)
Лист10.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист10.Range("$AE$56").Resize(RowCount)
Лист11.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист10.Range("$AE$56").Resize(RowCount)
Лист12.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист12.Range("$AE$56").Resize(RowCount)
Лист13.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист13.Range("$AE$56").Resize(RowCount)
Лист14.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист14.Range("$AE$56").Resize(RowCount)

' диаграммы экспертов
Лист15.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист15.Range("$AG$54").Resize(RowCount)
Лист16.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист16.Range("$AG$54").Resize(RowCount)
Лист17.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист17.Range("$AG$54").Resize(RowCount)
Лист18.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист18.Range("$AG$54").Resize(RowCount)
Лист19.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист19.Range("$AG$54").Resize(RowCount)
Лист20.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист20.Range("$AG$54").Resize(RowCount)
Лист21.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист21.Range("$AG$54").Resize(RowCount)
Лист22.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист22.Range("$AG$54").Resize(RowCount)
Лист23.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист23.Range("$AG$54").Resize(RowCount)
Лист24.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист24.Range("$AG$54").Resize(RowCount)
Лист25.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист25.Range("$AG$54").Resize(RowCount)
Лист26.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист26.Range("$AG$54").Resize(RowCount)
Лист27.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист27.Range("$AG$54").Resize(RowCount)
Лист28.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист28.Range("$AG$54").Resize(RowCount)
Лист29.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист29.Range("$AG$54").Resize(RowCount)
Лист30.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист30.Range("$AG$54").Resize(RowCount)
Лист31.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист31.Range("$AG$54").Resize(RowCount)
Лист32.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист32.Range("$AG$54").Resize(RowCount)
Лист33.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист33.Range("$AG$54").Resize(RowCount)
Лист34.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист34.Range("$AG$54").Resize(RowCount)
Лист35.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист35.Range("$AG$54").Resize(RowCount)
Лист36.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист36.Range("$AG$54").Resize(RowCount)
Лист37.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист37.Range("$AG$54").Resize(RowCount)
Лист38.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист38.Range("$AG$54").Resize(RowCount)
Лист39.ChartObjects(1).Chart.SeriesCollection(1).Values = Лист39.Range("$AG$54").Resize(RowCount)

End Sub

Изменено: hohlick - 26.06.2014 19:33:23

F1 творит чудеса

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#18 26.06.2014 19:28:24 hohlick, спойлер при подготовке сообщения есть, никто не прятал.

Роман shs Пользователь Сообщений: 49 Регистрация: 27.01.2014	#19 23.07.2014 18:05:07 hohlick, работает код! Спасибо!

Максим Зеленский Пользователь Сообщений: 4663 Регистрация: 11.06.2014 Microsoft MVP 2018-2022	#20 23.07.2014 21:51:43 Лучше поздно, чем никогда F1 творит чудеса