Ввод даты без разделителей⁠⁠

Если Вам часто приходится работать с датами в ячейках Excel, то Вас наверняка задалбывает каждый раз вводить точки или полностью указывать год.

Этот вариант с помощью макроса предоставляет возможность писать даты сокращенно, без точек/дробей - просто как число, т.е. 101019 автоматически превратится в 10.10.2019.

Для этого создайте документ Excel с поддержкой макросов. На открытом листе щелкните правой клавишей мыши по ярлычку листа,

выберите команду «Просмотреть код», в более ранних версиях Word «Исходный текст». В открывшееся окно редактора Visual Basic скопируйте и вставьте следующий код:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim vVal

Dim StrVal As String

Dim dDate As Date

If Target.Cells.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("A2:A10")) Is Nothing Then

With Target

StrVal = Format(.Text, "000000")

If IsNumeric(StrVal) And Len(StrVal) = 6 Then

Application.EnableEvents = False

dDate = DateValue(Left(StrVal, 2) & "/" & Mid(StrVal, 3, 2) & "/" & Right(StrVal, 2))

.NumberFormat = "dd/mm/yyyy"

.Value = CDate(DateSerial(Year(dDate), Month(dDate), Day(dDate)))

End If

End With

End If

Application.EnableEvents = True

End Sub

Диапазоны A2:A10 замените на свои области ячеек листа, куда будут вводиться даты.

Даты до 10 можно вводить одной цифрой, либо с нулём (01, 02 и т.д.), месяц и год должен быть только двухзначной цифрой.

В случае ошибки ввода, если вместо минимум 5 цифр ввести 4 или неправильно указать месяц, то даты будут выводиться неверно и может выйти окошко

В этом случае нажмите «End», сохраните и закройте документ, затем откройте заново и продолжайте вводить цифры дальше.