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

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

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

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.09.2009, 11:30   #1
mephist
Форумчанин
 
Регистрация: 01.05.2009
Сообщений: 200
По умолчанию Выборка таблиц

Всем здравствуйте!
Есть такая проблема: порядка 20 таблиц идет одна под другой на листе.
Смотреть их очень неудобно. Мне нужно упростить восприятие информации.
Я хочу на другом листе создать юзер-форму. Нужно чтобы в этой форме представлялись названия таблиц.
Работать все должно примерно так:В книге два листа(один с таблицами,другой с юзер-формой),я захожу на страницу с формой,выбираю название нужной мне таблицы и эта таблица с первого листа копируется на этот (включая форматирование,ширину столбцов и группировку). Затем я выбираю название другой таблицы и новая копируется на этот же лист под уже имеющуюся.
Самая главная проблема это юзер-форма:
она должна собирать названия таблиц и формировать из них список для выбора (например, при открытии книги макрос пробегает ячейки первого листа, и считает названием таблицы ячейки, которые объединяют столбцы А и D). Затем я выбираю нужную таблицу, и макрос копирует таблицу(ячейки между двумя названиями).
Для меня сложнее всего реализвать саму юзер-форму и макрос который выбирает ячейки по их форматированию.
Буду очень благодарен за любую помощь и подсказки.
mephist вне форума Ответить с цитированием
Старый 18.09.2009, 11:39   #2
mephist
Форумчанин
 
Регистрация: 01.05.2009
Сообщений: 200
По умолчанию

Для примера накидал файлик
Вложения
Тип файла: rar пример.rar (9.3 Кб, 19 просмотров)
mephist вне форума Ответить с цитированием
Старый 21.09.2009, 09:13   #3
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Посмотрите вложение. Перейдите на лист 2. В появившейся форме выберите названия требуемых таблиц (удерживая Ctrl) и нажмите "OK".
Вложения
Тип файла: rar пример_2.rar (14.3 Кб, 27 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 22.09.2009, 20:23   #4
mephist
Форумчанин
 
Регистрация: 01.05.2009
Сообщений: 200
По умолчанию

Огромное спасибо.
Просто фантастический макрос.
Но есть маленький изьян: он не корректно работает для двух таблиц. Вернее он отлично работает почти со всеми таблицами, а вот с двумя конкретными не работает. В файлике пример этих таблиц(я их назвал вредными). Попробуйте например вывести их вместе. У меня полуается какой-то бред. Может кто-нибудь видит ошибку?
Вложения
Тип файла: rar пример_3.rar (16.5 Кб, 12 просмотров)
mephist вне форума Ответить с цитированием
Старый 23.09.2009, 04:50   #5
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Подразумевалось, что 1-й столбец таблицы всегда заполнен (как в Вашем первом примере). Если это не обязательное условие, то макрос нужно чуть переделать (см. вложение).
Вложения
Тип файла: rar пример_4.rar (16.5 Кб, 30 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Выборка из БД ИВАНьКа Общие вопросы C/C++ 4 21.08.2009 10:02
Создание запроса, выборка из 4 таблиц! help! angelkisss SQL, базы данных 3 03.02.2008 15:03
Выборка информации из 2 таблиц (SQL) frai БД в Delphi 10 10.11.2007 17:38
выборка Ser_gl Microsoft Office Excel 1 24.08.2007 20:49
Выборка John_chek БД в Delphi 10 27.06.2007 08:43