Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.08.2010, 17:34   #11
doober
Старожил
 
Аватар для doober
 
Регистрация: 02.05.2009
Сообщений: 3,907
По умолчанию

А ссылка где,или брать с того же сайта
Анализ,обработка данных Недорого
doober вне форума Ответить с цитированием
Старый 24.08.2010, 17:52   #12
Flurt
 
Регистрация: 24.08.2010
Сообщений: 7
По умолчанию

Вот таблица которая должна заполнятся, там же ссылка на кинопоиск
Вложения
Тип файла: rar таблица.rar (4.1 Кб, 22 просмотров)
Flurt вне форума Ответить с цитированием
Старый 24.08.2010, 18:24   #13
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

Проверяйте:




(добавлено)
Сейчас этот код не работает, т.к. сайт кинопоиск изменил шаблон страниц

Новая версия скрипта доступна у меня на сайте: http://excelvba.ru/programmes/MoviesSearch

Последний раз редактировалось EducatedFool; 08.09.2011 в 05:33.
EducatedFool вне форума Ответить с цитированием
Старый 24.08.2010, 19:51   #14
Flurt
 
Регистрация: 24.08.2010
Сообщений: 7
По умолчанию

EducatedFool Спасибо огромное, все работает!
Flurt вне форума Ответить с цитированием
Старый 25.08.2010, 11:23   #15
Flurt
 
Регистрация: 24.08.2010
Сообщений: 7
По умолчанию

И еще один вопросик, а можно скрипт сделать что бы он работал только для выделенных ячеек а не для всех? Было бы очень здорово
Flurt вне форума Ответить с цитированием
Старый 25.08.2010, 13:25   #16
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

Замените строку
Код:
For Each cell In ra.Cells
на строки
Код:
On Error Resume Next
For Each cell In Intersect(ra, Selection.EntireRow).Cells
Пример в файле: http://excelvba.ru/XL_Files/Sample__...__15-24-25.zip

(выдять можно как строки полностью, так и отдельные ячейки в любых столбцах нужных строк)
EducatedFool вне форума Ответить с цитированием
Старый 25.08.2010, 13:32   #17
Flurt
 
Регистрация: 24.08.2010
Сообщений: 7
По умолчанию

EducatedFool спасибо огромное еще раз все просто отлично работает!
Flurt вне форума Ответить с цитированием
Старый 25.08.2010, 17:36   #18
Flurt
 
Регистрация: 24.08.2010
Сообщений: 7
По умолчанию

Столкнулся с такой проблемой, у меня стоит Excel 2007 при копирования модуля макроса из одной книги в другую он перестает работать в другой книге, а если запустить две книги не копируя модуль макроса, он работает в обоих!
Что я делаю не так?

Последний раз редактировалось Flurt; 25.08.2010 в 22:30.
Flurt вне форума Ответить с цитированием
Старый 25.08.2010, 22:33   #19
Flurt
 
Регистрация: 24.08.2010
Сообщений: 7
По умолчанию

Так все таки получилось модуль импортировать нормально , только теперь при запуске макроса вот такая ошибка:

Flurt вне форума Ответить с цитированием
Старый 15.04.2012, 22:16   #20
elen292005
Новичок
Джуниор
 
Регистрация: 15.04.2012
Сообщений: 1
По умолчанию

Добрый день, уважаемые господа программисты!
Очень прошу помочь мне в моей проблеме, т.к. к программированию я никакого отношения не имею, а работу сделать нужно. Мне нужно создать базу в таблице Excel (прилагаю), исходные данные берутся с этого сайта http://virtuzor.ru/virtuzors/organizatory/
Т.о. нужны выборочные данные каждого организатора.
Спасибо.
Вложения
Тип файла: rar Виртузор запрос.rar (5.5 Кб, 14 просмотров)
elen292005 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
макрос обновления данных из интернета Legame Microsoft Office Excel 14 01.10.2015 09:26
импорт данных из интернета peq Microsoft Office Excel 7 30.04.2010 09:12
Импорт данных с интернета в таблицу Ренатик Microsoft Office Access 0 20.05.2009 02:03
Импорт данных с интернета в Accesse Ренатик Помощь студентам 0 03.05.2009 22:50
импорт данных Рокабіллі_Птах БД в Delphi 1 13.05.2008 18:49