Добрый вечер!
В приложенном файле записан код, который делает проверку вносимых данных.
Критерии проверки-не более 11 символов или три буквы "вых"
Что необходимо дописать в коде что бы ячейки еще можно было оставлять пустыми?
Сейчас, при удаление значения из одной ячейки VB открывает MsgBox, если удалить значения из нескольких ячеек, то VB пишет ошибку "Type Mismatch"
Код |
---|
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C9:AG36")) Is Nothing Then
If LCase(Target.Value) = "вых" Then Exit Sub
If Len(Target.Value) <> 11 Then
MsgBox "Интервал времени может быть записан только в формате чч:мм-чч:мм, например: 10:00-22:00. Записать интервал времени можно только символами: 0123456789:-!Пожалуйста, проверьте правильность внесенных данных!"
Application.Undo
Else
For i = 1 To 11
If InStr(1, "0123456789:-", Mid(Target.Value, i, 1)) = 0 Then
MsgBox "допускаются только 0123456789:-"
Application.Undo
Exit Sub
End If
Next i
End If
End If
End Sub
|