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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.03.2010, 08:42   #11
BobBarker
Пользователь
 
Аватар для BobBarker
 
Регистрация: 12.03.2010
Сообщений: 21
По умолчанию

Извеняюсь. Да, да все вы правильно сделали так как я и хотел что было. Осталось понять как этот макрос во все остальные книги добавить.
Йа НРЛБ
BobBarker вне форума Ответить с цитированием
Старый 18.03.2010, 08:57   #12
BobBarker
Пользователь
 
Аватар для BobBarker
 
Регистрация: 12.03.2010
Сообщений: 21
По умолчанию

А все ужо не надо, понял че куда.
Йа НРЛБ
BobBarker вне форума Ответить с цитированием
Старый 18.03.2010, 09:01   #13
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Нужно в требуемую книгу скопировать все коды всех модулей ("Лист1", "Эта книга" и "Module1").
Если же книг много, то можно либо использовать надстройку, либо поместить макрос в персональную книгу макросов. И в том и в другом случае, потребуется проверять имена книг и листов на соответствие заданным, т.е. тем, в которых макрос должен выполняться, и, соответствующим образом доработать сам макрос.
Также, обратите внимание, что я, с Вашего позволения, в ячейку "AJ1" добавил функцию "Сегодня()". Это потому, что макрос запускается по событию Worksheet_Calculate. А при отсутствии формул на листе это событие не возникает.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 22.03.2010, 19:54   #14
BobBarker
Пользователь
 
Аватар для BobBarker
 
Регистрация: 12.03.2010
Сообщений: 21
По умолчанию

Всем привет.
Макрос выдает ошибку.. Чет не могу разобраться что делать. Помогите плиззз
Вложения
Тип файла: rar График Арзамас Апрель.rar (17.0 Кб, 9 просмотров)
Йа НРЛБ
BobBarker вне форума Ответить с цитированием
Старый 23.03.2010, 06:19   #15
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

У Вас в VBA проекте присутствуют два программных модуля, содержащих один и тот же макрос "Init". Удалите из проекта "Module2" и будет счастье.
P.S. Модуль "Module1" удалять не нужно, т.к. кроме макроса там еще объявлена глобальная переменная "Crit".
Чем шире угол зрения, тем он тупее.

Последний раз редактировалось SAS888; 23.03.2010 в 06:52.
SAS888 вне форума Ответить с цитированием
Старый 23.03.2010, 06:51   #16
BobBarker
Пользователь
 
Аватар для BobBarker
 
Регистрация: 12.03.2010
Сообщений: 21
По умолчанию

Большое Спасибо!
Йа НРЛБ
BobBarker вне форума Ответить с цитированием
Старый 25.03.2010, 00:00   #17
BobBarker
Пользователь
 
Аватар для BobBarker
 
Регистрация: 12.03.2010
Сообщений: 21
По умолчанию

Не работает макрос (см прикрепленный файл)
Вложения
Тип файла: rar График Балахна Март.rar (35.1 Кб, 9 просмотров)
Йа НРЛБ

Последний раз редактировалось BobBarker; 25.03.2010 в 00:03.
BobBarker вне форума Ответить с цитированием
Старый 25.03.2010, 06:40   #18
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Цитата:
Не работает макрос
Давайте начнем с того, что не макрос не работает, а задачу Вы ставите другую. В предыдущем примере рассматривался автофильтр в одном столбце. В приложенном Вами файле автофильтр применяется к нескольким столбцам. Макрос, по умолчанию, ищет критерий только для 1-го столбца диапазона автофильтра. Поэтому и не работает. Чтобы решить Вашу задачу, требуется определять не только примененный критерий, но и к какому из столбцов применен автофильтр. Посмотрите вложение, в котором это реализовано. Что не так?
Вложения
Тип файла: rar График Балахна Март_2.rar (38.1 Кб, 11 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 25.03.2010, 07:07   #19
BobBarker
Пользователь
 
Аватар для BobBarker
 
Регистрация: 12.03.2010
Сообщений: 21
По умолчанию

Мне и нужно чтобы автофильтр работал по столбцу < Машинисты >, но почему то он просто перестал показывать вторую строчку. Просто забыл убрать в примере параметры в автофилтре, поэтому вас это и смутило.
Йа НРЛБ
BobBarker вне форума Ответить с цитированием
Старый 25.03.2010, 07:24   #20
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

При работе с автофильтром есть один нюанс. Если в столбце имеются пустые строки, то существует большая разница в том, каким образом задан автофильтр. Объяснять лучше на примере. Посмотрите вложение.
1. Выделите столбец "A" и примените автофильтр.
2. Задайте критерий автофильтра "=1"
3. Запомните результат.
4. Отмените автофильтр.
5. Выделите ячейку "A1" и примените автофильтр.
6. Задайте критерий автофильтра "=1"
7. Почувствуйте разницу.

Именно поэтому, в последнем примере, как Вы, наверное, уже заметили, при открытии книги, в столбцах "B:E" в пределах использованного диапазона, во все пустые ячейки помещается пробел. Теперь, после такой замены, не будет разницы, каким образом Вы будете задавать диапазон автофильтра.
Вложения
Тип файла: rar Пример.rar (1.4 Кб, 10 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
mainmeny 1 как настроить?? Betty Общие вопросы Delphi 2 26.06.2009 21:41
Как настроить почтовик? Naruto. Операционные системы общие вопросы 10 06.05.2009 01:15
как настроить аватар? oLMeR О форуме и сайтах клуба 7 02.12.2008 10:30
Как настроить звук lionman Мультимедиа в Delphi 2 11.10.2008 14:47