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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.10.2012, 19:30   #1
serega96
Пользователь
 
Регистрация: 14.12.2011
Сообщений: 62
По умолчанию Макрос

Подскажите мне пожалуйста идею или кусок программного текста. Никогда прежде не писал подобные вещи поэтому хочется чего-нибудь конкретного. Задание состоит в том, что бы взять какую -нибудь клетку(желательно на втором листе) и в неё ввести название компании. макрос должен на второй лист скопировать все строчки из таблицы, которые соответствуют этой фирме.(столбец I). это всего лишь промежуточный этап, конечный результат должен быть намного сложнее, но с чего-то надо начинать.
Вложения
Тип файла: rar 68-1333-6456.rar (562.5 Кб, 10 просмотров)
serega96 вне форума Ответить с цитированием
Старый 31.10.2012, 00:39   #2
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

Самый простой - встренные функции.
Данные - Фильтр - автофильтр.
В столбце I нажимаете на стрелочку, выбираете нужного и получаете результат.
Остаётся скопипастить в нужное место.
Можно, конечно и макрос написать(записать и подправить под свои нужды), а крутые формулисты даже могут сделать это формулами
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 31.10.2012, 00:53   #3
serega96
Пользователь
 
Регистрация: 14.12.2011
Сообщений: 62
По умолчанию

А можно ли это оформить в виде программы? мне нужно что бы программа всё сама делала
serega96 вне форума Ответить с цитированием
Старый 31.10.2012, 01:10   #4
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

Можно.
И можно включить макрорекордер и он запишет.
Вот только
Цитата:
это всего лишь промежуточный этап, конечный результат должен быть намного сложнее,
не хочется потом неоднократно переделывать
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 31.10.2012, 01:28   #5
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

Цитата:
и в неё ввести название компании.
Сам такой подход нерацонален так как требует 100% совпадения.
Лучше сделать список уникальных и выбор из списка. Вот это как раз и реализовано встроенной функцией фильтра.
Если же хочется вводить, то лучше сделать форму и при вводе названия фирмы после ввода каждой буквы делать выборку совпадений и показывать в списке. Когда нужная фирма окажется в поле зрения то выбрать её из списка
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 31.10.2012, 02:00   #6
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

вот примерно так:
Вложения
Тип файла: rar 68-1333-6456_pro.rar (1.23 Мб, 56 просмотров)
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 31.10.2012, 09:21   #7
serega96
Пользователь
 
Регистрация: 14.12.2011
Сообщений: 62
По умолчанию

Спасибо
не могли бы вы пояснить как работает ваш макрос? просто у меня excel открывать макрос не хочет, не понимаю что делает кнопка, которая не нажимается. удалил столбик с фирмами, запустил заново макрос ничего не изменилось. поясните пожалуйста, если не сложно можно код макроса?

Последний раз редактировалось serega96; 31.10.2012 в 14:56.
serega96 вне форума Ответить с цитированием
Старый 01.11.2012, 01:27   #8
alex77755
Форумчанин
 
Аватар для alex77755
 
Регистрация: 14.02.2009
Сообщений: 753
По умолчанию

Цитата:
не понимаю что делает кнопка, которая не нажимается
Прям таки не нажимается? Проверил. скачал. распаковал. Нажимается.
Вводи в верхнее поле по буквам латинские буквы - в нижнем списке будут все фирмы с набранным сочетаним. Кликай по нужной и получай результат
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru
alex77755 вне форума Ответить с цитированием
Старый 01.11.2012, 02:20   #9
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

У меня в 2007 тоже не нажимается.
Это так Protect VBA гадит...
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 01.11.2012, 13:30   #10
serega96
Пользователь
 
Регистрация: 14.12.2011
Сообщений: 62
По умолчанию

а можно ли как-нибудь избавиться от этой проблемы?
serega96 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Макрос постоянно обрабатывает события. При открытии другой книги макрос обрывается. Ples Microsoft Office Excel 8 17.12.2016 18:15
макрос kuk19 Microsoft Office Excel 17 01.08.2012 09:27
Exel - при открытии файла через макрос, если файл отсутствует - виснет весь макрос gregory1b Microsoft Office Excel 2 14.10.2010 11:51
Макрос, запускающий макрос из другого закрытого файла petruha Microsoft Office Excel 7 14.03.2010 11:31
Макрос вставки файлов в листы-Необходимо изменить ниже приведённый макрос as-is Microsoft Office Excel 4 25.02.2010 07:51