|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.02.2010, 17:34 | #1 |
Форумчанин
Регистрация: 13.03.2009
Сообщений: 253
|
Условие по выбору даты на календаре
Помогите написать условие.
If Calendar1.Value = одному из значений A1:A100 Then MsgBox "Совпадение" |
27.02.2010, 17:41 | #2 |
Форумчанин
Регистрация: 13.01.2010
Сообщений: 410
|
dim r
r = "" on error resume next r = [a1:a100].find (what:=calendar1.value, lookin:=xlvalues, lookat:=xlwhole) if r <> "" then msgbox "Совпадение" можно так |
01.03.2010, 07:27 | #3 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
С позволения Dophin, можно немного упростить:
Код:
Чем шире угол зрения, тем он тупее.
|
01.03.2010, 08:30 | #4 |
Форумчанин
Регистрация: 13.03.2009
Сообщений: 253
|
Спасибо. SAS888 у Вас самый короткий вариант.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Multiselect на календаре | ruavia3 | Microsoft Office Excel | 2 | 23.12.2009 13:37 |
outlook и VBA. Как создать событие в календаре с форматированием описания? | Snark | Microsoft Office Excel | 0 | 28.09.2009 15:34 |
Макрос активации ячейки по выбору в фильтре | dsapa | Microsoft Office Excel | 8 | 20.07.2009 08:13 |
Советы бывалых по выбору базы данных. | Nemez | БД в Delphi | 4 | 19.03.2009 17:50 |
Вопрос по выбору железа | QunneD | Компьютерное железо | 7 | 01.02.2009 09:43 |