Дата

[SAS888]

Кстати, автор вопроса не оговаривает, что нужно делать в случае ввода в ячейку данных, не являющихся датой. Оставлять как есть? Кричать "караул"? Молча запрещать? и т.п.

[Volodshan]

Был вопрос: "Как сделать так, чтобы я набирал на клавиатуре 20070701 и после нажатия Enter, у меня автоматически проставились точки 2007.07.01". Уточнение - "07.01" - где месяц, где число? Региональные настройки: Россия, Беларусь, Британия, Украина, офис какой?.. Последоватальность ввода... Форматы полей...

[antfrolov]

О, получилось!
Прошу прощение, у меня были отключены макросы.

Кстати, автор вопроса не оговаривает, что нужно делать в случае ввода в ячейку данных, не являющихся датой. Оставлять как есть? Кричать "караул"? Молча запрещать? и т.п.

Подобного фильтра принципиально не нужно, но было бы хорошо, если бы ячейка например, выделялась красным цветом, если я ввёл не 20070512, а 2070512. То есть если я ошибся при вводе даты.

Заранее большое спасибо!!!

[EducatedFool]

Теперь ячейки с ошибочными значениями подсвечиваются:



Вот весь код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Or Target.Cells.Count > 1 Then Exit Sub
    txt = Target.Value2: On Error Resume Next
    If txt Like "########" Then
        newdate = DateSerial(Left$(txt, 4), Mid$(txt, 5, 2), Right$(txt, 2))
        If IsDate(newdate) Then
            Application.EnableEvents = False
            If Year(newdate) > 1960 And Year(newdate) < 2050 Then Target = newdate
            Application.EnableEvents = True
        End If
    End If
    If Len(txt) = 0 Then Target.Interior.ColorIndex = 0: Exit Sub
    Select Case True
        Case Target = newdate: Target.Interior.Color = vbGreen
        Case IsNumeric(txt): Target.Interior.Color = vbYellow
        Case Else: Target.Interior.Color = vbRed
    End Select
End Sub

[antfrolov]

А как этот код прикрутить в файлу? Простите, я с excel абсолютно незнаком

[EducatedFool]

А как этот код прикрутить в файлу?

Вообще-то, код уже "прикручен". Скачиваете файл, и пользуетесь, не забыв включить макросы.

Если надо засунуть код в свой файл, делаете следующее:

1. Копируем код в буфер обмена
2. Правой кнопкой по ярлычку листа
3. Выбираем пункт ИСХОДНЫЙ ТЕКСТ
4. В открывшееся окно вставляем код
5. Не забываем сохранить файл

[antfrolov]

Спасибо огромное!

[kopeysk6]

ребята подскажите пожалуйста как в эксель ввести текущую дату из биоса или еще как то!!!

[EducatedFool]

Сообщение от kopeysk6

ребята подскажите пожалуйста как в эксель ввести текущую дату из биоса или еще как то!!!

Формулой: =СЕГОДНЯ()
Макросом: [a1] = Now