VBNet - Форум - Проверка ячейки на заполнение даты и времени

Вопрос: Проверка ячейки на заполнение даты и времени Добавлено: 21.01.09 09:19

Автор вопроса: alfred

Есть проблема!
Нужно организовать проверку на коррекность заполнения ячейки с датой и ячеку с временем.

пример:

Sub proverka()
i = 4
While ActiveSheet.Cells(i, 1) > 0
If ActiveSheet.Cells(i, 1).NumberFormat <>"m/d/yyyy" Then
MsgBox ("дата заполнено не коррекно, строка " & i)
End If
If ActiveSheet.Cells(i, 2).NumberFormat <> "h:mm;@" Then
MsgBox ("Время заполнено не коррекно, строка " & i)
End If
i = i + 1
Wend
End Sub

Код не совршенен, когда дата и время заполняется макросом с другого листа,значения в ячейку встают как текст а не дата.
Подправте код пожалуйста или предложите свое решение проблемы.
Ответить

Ответы Всего ответов: 4

Номер ответа: 1 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #1	Добавлено: 21.01.09 12:58
	Cells(i, 1).NumberFormat - как ячейка отображает данные, а не что она хранит. Проверять, по-моему, следует Cells(i, 1).Value любой из следующих функций: VarType, TypeName, IsDate При заполнении макросом используй ф-ию CDate. Ответить

Номер ответа: 2 Автор ответа: alfred Вопросов: 9 Ответов: 14	Профиль \| \| #2	Добавлено: 21.01.09 13:06
	Например.... Ответить

Номер ответа: 3 Автор ответа: alfred Вопросов: 9 Ответов: 14	Профиль \| \| #3	Добавлено: 21.01.09 14:12
	Забыл указать что тоже самое происходит и с временем. С датой разобрались. А как быть с временем. Ведь Time берется от date и нет такой функции IsTime () Ответить

Номер ответа: 4 Автор ответа: fAndOrIn Вопросов: 5 Ответов: 344	Профиль \| \| #4	Добавлено: 22.01.09 18:36
	R=4 Cells(R, 1).NumberFormat = "dd.mm.yyyy" Cells(R, 1) = "1/2/2009" 'Date 'WorkSheets(?).Cells(?,?) 'кто-нибудь может объяснить, почему получается 2 января, а не 1 февраля? Cells(R, 2).NumberFormat = "hh:mm:ss" Cells(R, 2) = "5:15:45" 'Time 'WorkSheets(?).Cells(?,?) If VarType(Cells(R, 1)) <> vbDate Then _ MsgBox ("Дата заполнена не корректно, строка " & R) If (VarType(Cells(R, 2)) <> vbDouble) Or (Cells(R, 2) < 0) Or (Cells(R, 2) > 1) Then _ MsgBox ("Время заполнено не корректно, строка " & R) Проверка правильности введения времени вроде получилась, но как-то коряво! Может, у кого есть другие вырианты? Поделитесь... Ответить

Страница: 1 |