forum.rastrnet.ru  

Вернуться   forum.rastrnet.ru > Компьютеры и всё, что с ними связано > Программируем

 Сообщения за день       Добавить альбом       Поиск      Правила форума  


Ответ
 
Опции темы Опции просмотра
Старый 31.05.2006, 22:18   #1
KingLion
сворован горыном
 
Аватар для KingLion
 
Регистрация: 16.01.2005
Сообщений: 12
Отправить сообщение для KingLion с помощью ICQ
По умолчанию Visual Basic & Excel

Народ, кто пишет макросы в сабже - помогите разобраться?

написал такой макрос:

--------------------------------------------------------------------------
Sub Показ_заявок_по_дате()

Set k = Worksheets("Показ").Cells(6, 6)
Worksheets("Заявка").Select

Selection.AutoFilter Field:=9, Criteria1:="<=" & Worksheets("Показ").Cells(6, 6), Operator:=xlAnd

Selection.AutoFilter Field:=11, Criteria1:=">=" & Worksheets("Показ").Cells(6, 6), Operator:=xlAnd

Range("D16").Select

End Sub
--------------------------------------------------------------------------

в 9 столбце даты начала предполагаемых событий, в 11 соответственно даты окончания. закладки "заявка"
в ячейке 6:6 закладки "показ" дата, на которую хочу просмотреть действующие события.

однако такой косяк:
программа воспринимает цифры как десятичные числа, а не как даты календаря и соответственно находит не то, что мне хотелось...

вопрос: как заставить этот макрос воспринимать мои даты именно датами? или может есть какой оператор сравнения не "больше/меньше", а "старее/моложе"?
KingLion вне форума   Ответить с цитированием
Старый 31.05.2006, 23:26   #2
COBEHOK
Новичок
 
Регистрация: 17.08.2004
Сообщений: 780
По умолчанию

Как раз обычные числа и нужны
---
Worksheets("Заявка").Range("A:K").AutoFilter Field:=6, Criteria1:="<=" & Worksheets("Показ").Cells(6, 6).Value2
Worksheets("Заявка").Range("A:K").AutoFilter Field:=11, Criteria1:=">=" & Worksheets("Показ").Cells(6, 6).Value2
---

Последний раз редактировалось COBEHOK; 31.05.2006 в 23:37.
COBEHOK вне форума   Ответить с цитированием
Старый 05.06.2006, 21:45   #3
KingLion
сворован горыном
 
Аватар для KingLion
 
Регистрация: 16.01.2005
Сообщений: 12
Отправить сообщение для KingLion с помощью ICQ
По умолчанию

такие как я не ищут лёгких путей
я сделал отдельную колонку в которой дата преобразовывалась в цифру, потом сделал отдельную ячейку в "показ" с таким же преобразованием и сравнивал уже те столбцы и ячейку...
%)
KingLion вне форума   Ответить с цитированием
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Среда разработки приложений Visual Basic delog Поиск 4 04.09.2006 21:18
надо Visual Basic Velvet Touch Поиск 11 22.05.2006 12:46
Microsoft Visual Basic 6.0 qpAHDOpUH Программируем 9 20.01.2006 12:10
Basic Макс Программируем 2 16.05.2005 18:59


Текущее время: 18:44. Часовой пояс GMT +7.


Powered by vBulletin® Version 3.8.4 Patch Level 5
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd. Перевод: zCarot
Форум открыт в июле 2004 г.
Кошки и котята Красноярска и Сибири Живой Мир Сибири