Условие по выбору даты на календаре - Microsoft Office Excel

ruavia3 · 27.02.2010, 17:34

Помогите написать условие.
If Calendar1.Value = одному из значений A1:A100 Then MsgBox "Совпадение"

Dophin · 27.02.2010, 17:41

dim r
r = ""
on error resume next
r = [a1:a100].find (what:=calendar1.value, lookin:=xlvalues, lookat:=xlwhole)
if r <> "" then msgbox "Совпадение"

можно так

SAS888 · 01.03.2010, 07:27

С позволения Dophin, можно немного упростить:

Код:

If Not [A1:A100].Find(Calendar1.Value) Is Nothing Then MsgBox "Совпадение"

ruavia3 · 01.03.2010, 08:30

Спасибо. SAS888 у Вас самый короткий вариант.

27.02.2010, 17:34	#1
ruavia3 Форумчанин Регистрация: 13.03.2009 Сообщений: 253	Условие по выбору даты на календаре Помогите написать условие. If Calendar1.Value = одному из значений A1:A100 Then MsgBox "Совпадение"

01.03.2010, 07:27	#3
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	С позволения Dophin, можно немного упростить: Код: `If Not [A1:A100].Find(Calendar1.Value) Is Nothing Then MsgBox "Совпадение"` Чем шире угол зрения, тем он тупее.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
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

27.02.2010, 17:41	#2
Dophin Форумчанин Регистрация: 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, 08:30	#4
ruavia3 Форумчанин Регистрация: 13.03.2009 Сообщений: 253	Спасибо. SAS888 у Вас самый короткий вариант.