Макрос даты и времени - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Microsoft Office (Word, Excel, Outlook и т.д.) (http://forum.oszone.net/forumdisplay.php?f=115)

- - Макрос даты и времени (http://forum.oszone.net/showthread.php?t=266956)

Макрос даты и времени

Привет!
У нас есть журнал, который можно заполнять не позже 17.00 сегодняшнего числа. Это заявки на авто, машину нужно бронировать заранее (за день или более) не позже 17.00 и нельзя бронировать день в день...
Как-то можно это с помощью макросов организовать?

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

Цитата:

Цитата 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

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