2010

Iska · Отправлено: **06:26, 27-08-2013** | #2

Какое приложение-то?

fraid · Отправлено: **20:09, 28-08-2013** | #3

MS Excell

Iska · Отправлено: **21:03, 28-08-2013** | #4

Цитата fraid:

MS Excell »

Не слишком удачный выбор.

Примерная болванка кода для списка «Список1», в который будет осуществляться ввод:

Код:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.ListObjects.Item("Список1").Range) Is Nothing Then
        If Not IsEmpty(Target.Value) Then
            If Hour(Time()) >= 8 And Hour(Time()) < 17 Then
                If DateDiff("d", Target.Value, DateAdd("d", 1, Date)) < 1 Then
                    ' ОК
                Else
                    MsgBox "Error"
                    Target.ClearContents
                End If
            Else
                MsgBox "Error"
                Target.ClearContents
            End If
        End If
    End If
End Sub

Поместите код в модуль того же рабочего листа.