ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ChartObjects - FOR EACH...NEXT не работает :-(
22 сообщений из 22, страница 1 из 1
ChartObjects - FOR EACH...NEXT не работает :-(
    #33056441
Ангара
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ангара
Участник
Привет всем! Сразу прошу извинить, если пошлете на другой форум (по Excell), не обижусь :-) Просто данные гоню из Акса и здесь (на этом форуме) мне всегда помогали

Ничего не понимаю:

Dim wks As Worksheet
Dim cht As ChartObject

For Each wks In ActiveWorkbook.Worksheets
wks.Activate
For Each cht In ActiveSheet.ChartObjects
Debug.Print cht.Name
Next cht
Next wks

ДОЛЖНО работать, и не работает, более того - если пройтись по ChartObjects с помощью простого FOR...NEXT, тогда все OK. На трех Excell проверила - одно и тоже. Никаких ошибок, просто игнорирует, то что внутри Each..Next, хотя диаграммы (внедренные)есть на всех листах. Помогите разобраться!
...
Рейтинг: 0 / 0
11.05.2005, 05:19
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33056966
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Пока только так получилось:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Dim i As Integer
Dim j As Integer

For i =  1  To Worksheets.Count
    For j =  1  To Worksheets(i).ChartObjects.Count
        MsgBox ActiveSheet.ChartObjects(j).Name
    Next j
Next i
...
Рейтинг: 0 / 0
11.05.2005, 11:40
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33057769
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
For Each тоже пробовал, не работает. Office 2000 Sp4.
...
Рейтинг: 0 / 0
11.05.2005, 15:24
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33058444
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
АнгараDim wks As Worksheet
Dim cht As ChartObject

For Each wks In ActiveWorkbook.Worksheets
wks.Activate
For Each cht In ActiveSheet.ChartObjects
Debug.Print cht.Name
Next cht
Next wks

ДОЛЖНО работать, и не работает,
Работает-работает. Ошибка где-то в другом месте. А вот код:
Код: plaintext
1.
2.
3.
For Each wks In ActiveWorkbook.Worksheets
   wks.Activate
   For Each cht In ActiveSheet.ChartObjects
стоит заменить на
Код: plaintext
1.
2.
For Each wks In ActiveWorkbook.Worksheets
   For Each cht In wks.ChartObjects
и не бегать попусту между листами. Скорее всего ошибка вылезла именно из-за излишнего использования ActiveSheet.
...
Рейтинг: 0 / 0
11.05.2005, 19:36
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33058771
Ангара
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ангара
Участник
2 White OWl
Не работает, и ActiveSheet ни при чем, даже на одном листе не выполняется. Прошу указать твою версию Оffice и Excell. У меня, как и Пользователя2 - Office 2000 Sp4

2 Пользователь2 - Так у меня с самого начала работало :-)

ЗЫ. Кстати, я смотрю в Locals и вообще ChartObjects у меня отсутствует, как collection - это как?
...
Рейтинг: 0 / 0
12.05.2005, 03:56
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33058851
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Ни Activate, ни ActiveSheet здесь не причем. Я перепробовал всевозможные варианты -- эффект один и тот же, никакой ошибки, просто ничего не происходит.
...
Рейтинг: 0 / 0
12.05.2005, 08:22
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33058989
Ангара
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ангара
Участник
Ну так я и писАла в первом посте об этом. А куда же коллекция подевалась ? Ведь ChartObjects.Count же отрабатывает...
...
Рейтинг: 0 / 0
12.05.2005, 09:37
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33060808
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Ангара2 White OWl
Не работает, и ActiveSheet ни при чем, даже на одном листе не выполняется. Прошу указать твою версию Оffice и Excell. У меня, как и Пользователя2 - Office 2000 Sp4
У меня 2000 (9.0.2720) и 97 SR-1. Работает на обоих без малейших возмущений.

АнгараЗЫ. Кстати, я смотрю в Locals и вообще ChartObjects у меня отсутствует, как collection - это как?
А вот это очень похоже на поломаный Эксель. Кто-то что-то ставил или удалял, и попутно поломал поддержку графиков. А может и вирусок погулял :)

Возможно, что у тебя поломан не сам Эксель, а конкретно этот XLS. Сделай график в совсем новой книге, и попытайся погонять свой код - если заработает. Переноси данные из старой книги в новую. Но переноси только данные! Если скопируешь листы целиком, то скорее всего перетащишь и внутреннюю ошибку.
...
Рейтинг: 0 / 0
12.05.2005, 19:12
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33063647
Ангара
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ангара
Участник
2 White Owl
Спасибо за желание помочь :-) Пробовала на пяти разных машинах, разные версии Excell (2000-2002) под разными виндами (98SE), NT,200,XP - одна ерунда. Может, намылишь мне свой XLS? буду очень благодарна. Хочу разобраться.
...
Рейтинг: 0 / 0
14.05.2005, 03:41
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33063767
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
2 White Owl

Лучше файлик сюда выложи, я тоже посмотрю.
...
Рейтинг: 0 / 0
14.05.2005, 08:35
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33063957
AndreyK1970
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyK1970
Гость
Просьба рабочий файлик не "мылить", а выложить здесь. У меня такая же проблема. Хоть я и не использую For each, однако проблема интересная.
Тестировал на Ехель2000 со всеми патчами и сервиспаками.
...
Рейтинг: 0 / 0
14.05.2005, 10:03
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33068287
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Пожалуйста. Окно About утверждает что это "Excel 2000 (9.0.2720)". Не помню какой это сервис пак :)
Два листа, два графика на одном и один график на другом. Макрос в точности совпадает с тем что приведен в самом начале топика. Ну я там еще имя листа в печать добавил, чтоб виднее было :)
...
Рейтинг: 0 / 0
16.05.2005, 20:39
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33068496
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
У меня таки приведенный код ( в том числе из загруженной отсюда книги)
в варианте For Each не работает .

А в варианте обращения по индексу/имени ChartObject (см Пользователь2)
работает.

Посмотрел и в справку и в МСДН.
(например здесь
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbaxl10/html/xlobjChartObjects.asp)

Все найденные (в справке) примеры изображают обращение по индексу или
имени и нигде у Microsoft не нашел For Each ...

Любопытно, что Джон Уокенбах, вслед за White Owl,
рисует в этом месте For Each...

PS
проверял на Excel 2002 SP2



(с выражением лица)
...
Рейтинг: 0 / 0
17.05.2005, 01:38
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33068501
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Вопрос на засыпку: А не руссифицированный ли у вас Эксель, дорогие мои?
У меня оригинальный английский, русского нету совсем так что проверить не смогу.
...
Рейтинг: 0 / 0
17.05.2005, 02:05
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33068503
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
White OwlВопрос на засыпку: А не руссифицированный ли у вас Эксель, дорогие мои?
У меня оригинальный английский, русского нету совсем так что проверить не смогу.
прикажете выкинуть?
:))

PS1 - не смешной
eng us+ multilanguage pack, язык интерфейса по умолчанию - руский.
Excel 2002 (10.4302.4219)

ЗЫ2 - смешной:
При перестановке на язык интерфейса - english,
код от Уокенбаха и White Owl РАБОТАЕТ!!!
----------------------------

будут ли ковминтариев?
...
Рейтинг: 0 / 0
17.05.2005, 02:38
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33068505
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
минутку, я код исходный малость смазал - так что щаз уточню хто хде работает...

(с выражением лица)
...
Рейтинг: 0 / 0
17.05.2005, 02:48
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33068511
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
Итак,
1) при языке интерфейса=english
выложенный White Owl код работает без изменений.

2) при языке интерфейса=русский
заставить работать For Each не удалось...
...
Рейтинг: 0 / 0
17.05.2005, 03:23
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33068515
Ангара
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ангара
Участник
2 Victosha: А как сменить язык интерфейса на english, в параметрах не нашла, надо переустанавливать Excel?
...
Рейтинг: 0 / 0
17.05.2005, 03:56
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33068658
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
Ангара2 Victosha: А как сменить язык интерфейса на english, в параметрах не нашла, надо переустанавливать Excel?

У меня это

Пуск -> Программы -> Microsoft Office Tools -> Microsoft Office XP Language Setings

Вкладка "Интерфейс пользователя",
комбобокс "Язык меню и диалоговых окон".

При смене языка офис (все приложения) рестартует.
...
Рейтинг: 0 / 0
17.05.2005, 09:20
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33069836
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
У меня Office русский и соответственно инструкция с For Each не работает.

Надо ставить MUI, чтоб можно было с разными языками проверять.
...
Рейтинг: 0 / 0
17.05.2005, 15:38
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33069911
ддд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ддд
Гость
Пользователь2У меня Office русский и соответственно инструкция с For Each не работает.

Надо ставить MUI, чтоб можно было с разными языками проверять.

да нет - надо просто доставить компонент выбора языка с прошной установки.
проверь
пуск-Программы-Средства Микрософт Офис-Языковые параметры Microsoft Office XP.

может оно у тебя давно стоит :))
если нет - доставь.
...
Рейтинг: 0 / 0
17.05.2005, 15:55
| Ответить | Цитировать | Написать  
ChartObjects - FOR EACH...NEXT не работает :-(
    #33069975
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
ддд, ок.
...
Рейтинг: 0 / 0
17.05.2005, 16:08
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ChartObjects - FOR EACH...NEXT не работает :-(
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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