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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 09.04.2010, 09:33   #1
asas2010
Пользователь
 
Регистрация: 24.03.2010
Сообщений: 65
По умолчанию Интервал дат

В столбце А даты в B:L информация, скажите пожалуиста возможно ли задать фильтр в столбце А за определенныи промежуток времени а в B:L по другим критериям. Спасибо.
asas2010 вне форума Ответить с цитированием
Старый 09.04.2010, 10:02   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Пусть требуется отфильтровать данные по столбцу "A" (по дате), и пусть уже установлен автофильтр по столбцам "A:L". Например, для того, чтобы применить фильтр для дат с 5.01.2010 по 10.01.2010 включительно, можно воспользоваться кодом:
Код:
a = ">=" & CLng(DateSerial(2010, 1, 5))
b = "<=" & CLng(DateSerial(2010, 1, 10))
[A:L].AutoFilter Field:=1, Criteria1:=a, Operator:=xlAnd, Criteria2:=b
Далее применяйте фильтр по требуемым столбцам с требуемыми критериями.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 09.04.2010, 11:00   #3
asas2010
Пользователь
 
Регистрация: 24.03.2010
Сообщений: 65
По умолчанию

Cпасибо SAS888, простите за не граматность, а это макрос? Может быть примерчик попросить можно (а то не знаю как и куда этот код вписывать). Спасибо.

Последний раз редактировалось asas2010; 09.04.2010 в 12:35.
asas2010 вне форума Ответить с цитированием
Старый 09.04.2010, 11:31   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Откройте файл из вложения. Нажмите кнопку. Код макроса находится в модуле листа "Лист1".
Вложения
Тип файла: rar Книга1.rar (8.4 Кб, 19 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 09.04.2010, 12:41   #5
asas2010
Пользователь
 
Регистрация: 24.03.2010
Сообщений: 65
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Откройте файл из вложения. Нажмите кнопку. Код макроса находится в модуле листа "Лист1".
СПАСИБО SAS888 ОГРОМНОЕ за ликбез. Спасибо.
asas2010 вне форума Ответить с цитированием
Старый 09.04.2010, 16:10   #6
asas2010
Пользователь
 
Регистрация: 24.03.2010
Сообщений: 65
По умолчанию

Вот бы еще соотворить форму - допустим кликаем на кнопку "Выбрать дату" - выводитса форма в неи "Введите начальную дату", ввожу, кликаю ОК, выскакивает другое окошко "Введите конечную дату", ввожу, кликаю ОК - получаю результат. Еще подумал - можно вообщето и на однои форме верхнее окошко "начало", нижнее "конец", так даже удобнее, наверное. Спасибо.

Последний раз редактировалось asas2010; 09.04.2010 в 17:36.
asas2010 вне форума Ответить с цитированием
Старый 12.04.2010, 08:33   #7
asas2010
Пользователь
 
Регистрация: 24.03.2010
Сообщений: 65
По умолчанию

Будте пожалуиста так любезны, подскажите - это не возможно. имею в виду форму для запроса даты, в Access это делал а тут не знаю как? Спасибо.
asas2010 вне форума Ответить с цитированием
Старый 12.04.2010, 09:44   #8
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Если у Вас установлен Access, то наверняка имеется элемент управления формы "Data and Time Picker Control". Посмотрите вложение.
Вложения
Тип файла: rar Книга2.rar (12.8 Кб, 23 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 12.04.2010, 11:12   #9
asas2010
Пользователь
 
Регистрация: 24.03.2010
Сообщений: 65
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Если у Вас установлен Access, то наверняка имеется элемент управления формы "Data and Time Picker Control". Посмотрите вложение.
SAS888 ОГРОМНОЕ СПАСИБО ПРИСПАСИБО Вам, сила, то что надо, только не поиму как это зделано, где находитса сама форма "Критерий"?Спасибо.
asas2010 вне форума Ответить с цитированием
Старый 12.04.2010, 11:27   #10
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Откройте файл. Нажмите Alt+F11 (вход в VBE). Просмотрите все имеющиеся модули.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Временой интервал DartDayring Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 1 15.02.2010 15:35
Указать интервал чисел MAX722 Microsoft Office Excel 8 16.01.2010 19:52
Интервал ответа Pavelok Работа с сетью в Delphi 3 16.05.2009 22:08
Интервал Таймера... Roof Общие вопросы Delphi 27 08.07.2008 20:19
межстрочный интервал в excel KorvinZ Microsoft Office Excel 2 16.01.2008 17:40