ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ошибка при попытке задать диапазон значений в диаграмме
13 сообщений из 13, страница 1 из 1
Ошибка при попытке задать диапазон значений в диаграмме
    #36266324
lenysik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lenysik
Гость
Добрый день всем!

При попытке задать диапазон построения диаграммы возникает ошибка, никак не могу понять в чем дело, подскажите, вот код
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sheets(MasOperator(i).List).Select  ' выбираю лист с диаграммой

For j =  1  To MasOperator(i).KolStr *  3 
     ActiveChart.SeriesCollection(j).XValues = "=" & Sheets(MasOperator(i).List) & "!R" & maxstr -  7  & "C1:R" 
& maxstr & "C1"     'вот тут возникает ошибка, дальше не идет
      For k = MasOperator(i).NumCellN To MasOperator(i).NumCellK
         ActiveChart.SeriesCollection(j).Values = "=" & Sheets(MasOperator(i).List) & "!R" & maxstr -  7  & "C" & k & ":R" & maxstr & "C" & k
      Next k
  Next j

Ошибка следующая
Run-time error '438'
Object doest'n support this property or method

Подскажите, в чем дело!!
...
Рейтинг: 0 / 0
22.10.2009, 11:27
| Ответить | Цитировать | Написать  
Ошибка при попытке задать диапазон значений в диаграмме
    #36266625
.Михаил.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.Михаил.
Участник
lenysik, вот так попробуй

Код: plaintext
1.
2.
3.
4.
'...
ActiveChart.SeriesCollection(j).XValues = "=" & Sheets(MasOperator(i).List) & "!R" & maxstr -  7  & "C1:R" _
& maxstr & "C1"   
'...
...
Рейтинг: 0 / 0
22.10.2009, 12:51
| Ответить | Цитировать | Написать  
Ошибка при попытке задать диапазон значений в диаграмме
    #36266672
lenysik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lenysik
Гость
.Михаил.,

Код: plaintext
1.
ActiveChart.SeriesCollection(j).XValues = "=" & Sheets(MasOperator(i).List) & "!R" & maxstr -  7  & "C1:R" & maxstr & "C1"
У меня это все в одну строчку написано, переноса нет, просто тут не вмещалось, я поставила Enter
...
Рейтинг: 0 / 0
22.10.2009, 13:05
| Ответить | Цитировать | Написать  
Ошибка при попытке задать диапазон значений в диаграмме
    #36266700
.Михаил.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.Михаил.
Участник
lenysik
У меня это все в одну строчку написано, переноса нет, просто тут не вмещалось, я поставила Enter

sorry
lenysik
Run-time error '438'
Object doest'n support this property or method

Английский не знаю, но переводится это примерно так: объект не поддерживает это свойство или метод.

Может ошибка в этом, надо дописать .Name
Код: plaintext
1.
2.
ActiveChart.SeriesCollection(j).XValues = "=" & Sheets(MasOperator(i).List).Name & "!R" & maxstr -  7  & "C1:R" 
& maxstr & "C1"
...
Рейтинг: 0 / 0
22.10.2009, 13:14
| Ответить | Цитировать | Написать  
Ошибка при попытке задать диапазон значений в диаграмме
    #36266726
lenysik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lenysik
Гость
.Михаил.,

Куда дописать?
Такую строчку записывает сам Excel, когда нажимаю записать макрос, читала справку, .Name нигде не фигурирует:(
...
Рейтинг: 0 / 0
22.10.2009, 13:22
| Ответить | Цитировать | Написать  
Ошибка при попытке задать диапазон значений в диаграмме
    #36266753
lenysik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lenysik
Гость
.Михаил.,

Прошу прощения, действительно пропустила...
...
Рейтинг: 0 / 0
22.10.2009, 13:29
| Ответить | Цитировать | Написать  
Ошибка при попытке задать диапазон значений в диаграмме
    #36266843
lenysik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lenysik
Гость
Но теперь столкнулась вот с такой бедой

Когда лист явно задаю
Код: plaintext
ActiveChart.SeriesCollection(j).XValues = "='% наличия'!R" & maxstr -  7  & "C1:R" & maxstr & "C1"
То ошибки нет, когда пытаюсь заменить на элемент массив DataList(ii)='% наличия'

Код: plaintext
ActiveChart.SeriesCollection(j).XValues = "=" & DataList(ii) & "!R" & maxstr -  7  & "C1:R" & maxstr & "C1"
,
то возникает ошибка
...
Рейтинг: 0 / 0
22.10.2009, 13:54
| Ответить | Цитировать | Написать  
Ошибка при попытке задать диапазон значений в диаграмме
    #36266997
.Михаил.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.Михаил.
Участник
lenysik,
ошибка скорей всего в DataList(ii) . Это просто массив, который Вы сами задаете? Какие типы переменных используются? ii это обычный Integer или Long ?
...
Рейтинг: 0 / 0
22.10.2009, 14:30
| Ответить | Цитировать | Написать  
Ошибка при попытке задать диапазон значений в диаграмме
    #36267090
lenysik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lenysik
Гость
.Михаил.,

Dim DataList(1 To 3) As String это массив от 1 до 3, там содержатся названия листов типа String

DataList(1) = "% наличия"
DataList(2) = "Остатки_ТТ"
DataList(3) = "Остатки_ЦС"

Возникновение ошибки не понимаю....
...
Рейтинг: 0 / 0
22.10.2009, 14:55
| Ответить | Цитировать | Написать  
Ошибка при попытке задать диапазон значений в диаграмме
    #36267099
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
ActiveChart.SeriesCollection(j).XValues = "='" & DataList(ii) & "'!R" & maxstr -  7  & "C1:R" & maxstr & "C1"
...
Рейтинг: 0 / 0
22.10.2009, 14:57
| Ответить | Цитировать | Написать  
Ошибка при попытке задать диапазон значений в диаграмме
    #36267668
lenysik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lenysik
Гость
Konst_One,

Код: plaintext
ActiveChart.SeriesCollection(j).Values = "='" & DataList(ii) & "'!R" & maxstr - DaysAgo & "C" & k & ":R" & maxstr & "C" & k

Все равно ошибка
...
Рейтинг: 0 / 0
22.10.2009, 18:00
| Ответить | Цитировать | Написать  
Ошибка при попытке задать диапазон значений в диаграмме
    #36268750
.Михаил.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
.Михаил.
Участник
lenysikВозникновение ошибки не понимаю.... Попробуйте задать этому массиву другое имя, например, mDataList , может есть одноименные функция или процедура, модуль и т.п., хз, попытка не пытка.
Может быть название листа не % наличия , а %_наличия (с "нижним подчеркиванием")?
lenysikНо теперь столкнулась вот с такой бедой
Когда лист явно задаю
Код: plaintext
ActiveChart.SeriesCollection(j).XValues = "='% наличия'!R" & maxstr -  7  & "C1:R" & maxstr & "C1"
То ошибки нет, когда пытаюсь заменить на элемент массив DataList(ii)='% наличия'
Код: plaintext
ActiveChart.SeriesCollection(j).XValues = "=" & DataList(ii) & "!R" & maxstr -  7  & "C1:R" & maxstr & "C1"
,
то возникает ошибка
В первом примере (см. выше) название листа % наличия обрамляется одинарными кавычками, тогда во втором примере, по-моему, их тоже надо применить
Код: plaintext
ActiveChart.SeriesCollection(j).XValues = "='" & DataList(ii) & "'!R" & maxstr -  7  & "C1:R" & maxstr & "C1"
, исходя из того, что DataList(1) = "% наличия"
...
Рейтинг: 0 / 0
23.10.2009, 12:23
| Ответить | Цитировать | Написать  
Ошибка при попытке задать диапазон значений в диаграмме
    #36269097
lenysik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lenysik
Гость
Это глюки VBA, когда хочет тогда и работает, сегодня ему это строчка понравилась, возможно потому что ПЯТНИЦА
...
Рейтинг: 0 / 0
23.10.2009, 14:03
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ошибка при попытке задать диапазон значений в диаграмме
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]