Быстрый ввод даты и времени без разделителей

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
            End If
            On Error GoTo ErrorHandlerDivision
            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)))
ErrorHandlerDivision:
        End With
    End If
    If Not Intersect(Target, Range("B2:B10")) Is Nothing Then
        With Target
            vVal = Format(.Value, "0000")
            If IsNumeric(vVal) And Len(vVal) = 4 Then
                Application.EnableEvents = False
                .Value = Left(vVal, 2) & ":" & Right(vVal, 2)
                .NumberFormat = "[h]:mm"
            End If
        End With
    End If
    Application.EnableEvents = True
End Sub

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

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      End If      On Error GoTo ErrorHandlerDivision      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)))ErrorHandlerDivision:     End With    End If    If Not Intersect(Target, Range("K16:AO41")) Is Nothing Then     With Target      vVal = Format(.Value, "0000")2      If IsNumeric(vVal) And Len(vVal) = 4 Then          Application.EnableEvents = False          .Value = Left(vVal, 2) & ":" & Right(vVal, 2)          .NumberFormat = "[h]:mm"      End If     End With    End If    Application.EnableEvents = TrueEnd Sub

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

Dim Num1 As Range
Num1 = InputBox("Текст в окошке", "Название окошка")
If Not Intersect(Target, Range(Num1)) Is Nothing Then  

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vVal
Dim StrVal As String
Dim dDate As Date
On Error GoTo ErrorHandler ' Обработка ошибок
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
 
If Not Intersect(Target, Range("B2:B10")) Is Nothing Then
    With Target
        vVal = Format(.Value, "0000")
        If IsNumeric(vVal) And Len(vVal) = 4 Then
            Application.EnableEvents = False
            .Value = Left(vVal, 2) & ":" & Right(vVal, 2)
            .NumberFormat = "[h]:mm"
        End If
    End With
End If
ExitHandler: ' Возвращение функции Application.EnableEvents
Application.EnableEvents = True
Exit Sub

ErrorHandler: ' Обработка ошибок
Resume ExitHandler

End Sub
 

function onEdit(e) {
  var range = e.range;
  var sheet = range.getSheet();
  if(sheet.getName() === 'Лист1' && ((range.getColumn() === 3 && range.getRow() >= 2 && range.getRow() <= 9999) || (range.getColumn() === 5 && range.getRow() >= 2 && range.getRow() <= 9999))) {
    var value = e.value;
    var regex = /^(\d{1}|\d{2})(\d{2})(\d{2}|\d{4})$/;
    if(regex.test(value)) {
      var match = regex.exec(value);
      var day = match[1];
      var month = match[2];
      if (month[0] === '0') {
        month = month[1];
      }
      month = parseInt(month) - 1; // уменьшаем значение месяца на единицу, иначе он будет больше чем нужно
      var year = match[3];
      if(year.length === 2) {
        var current_year = parseInt(new Date().getFullYear().toString().substr(-2));
        var input_year = parseInt(year);
        year = input_year <= current_year + 29 ? '20' + year : '19' + year;  // если год введён 2 цифрами, правим на 4
      }
      var date = new Date(year, month, day);
      date.setDate(date.getDate()+1); // добавляем один день, иначе он будет уменьшен на единицу
      var dateString = Utilities.formatDate(date, 'GMT', 'dd.MM.yyyy');
      sheet.getRange(range.getRow(), range.getColumn()).setValue(dateString);
    }
  }
}

if(sheet.getName() === 'Лист1' && range.getColumn() === 3 && range.getRow() > 1  ) { 

function onEdit(e) {
  var range = e.range;
  var idRow = e.range.getRow(); // получаем номер текущей строки
  var idCol = e.range.getColumn();  // получаем номер текущего столбца
  var sheet = range.getSheet();
  if(sheet.getName() === 'Лист1' && ((idCol === 3 && idRow > 1 ) || (idCol === 4 && idRow > 1 ) || (idCol === 5 && idRow > 1 ))) {
    var sheet = e.source.getActiveSheet();
    var value = sheet.getRange(idRow, idCol).getDisplayValue(); // получаем введённое значение в ячейку не в том виде, в каком оно хранится, а в том как оно отображается на экране
    var regex = /^(\d{1}|\d{2})(\d{2})(\d{2}|\d{4})$/;
    if (value.includes(".")) return; // проверяем на наличие точек в введённой строке, и если находим прерываем выполнение скрипта
    if(regex.test(value)) {
      var match = regex.exec(value);
      var day = match[1];
      var month = match[2];
      if (month[0] === '0') {
        month = month[1];
      }
      month = parseInt(month) - 1;
      var year = match[3];
      if(year.length === 2) {
        var current_year = parseInt(new Date().getFullYear().toString().substr(-2));
        var input_year = parseInt(year);
        year = input_year <= current_year + 29 ? '20' + year : '19' + year;
      }
      var date = new Date(year, month, day);
      date.setDate(date.getDate()+1); // добавляем один день, иначе он будет уменьшен на единицу
      var dateString = Utilities.formatDate(date, 'GMT', 'dd.MM.yyyy');
      sheet.getRange(range.getRow(), range.getColumn()).setValue(dateString);
    }
  }
}