Дата

[antfrolov]

Привет, подскажите пожалуйста, как сделать вот это:
Мне нужно вписать в ячейку дату 2007.07.01 и таких дат мне нужно вписать много.
Расположены они будут в столбец(ячейка под ячейкой).
Как сделать так, чтобы я набирал на клавиатуре 20070701 и после нажатия Enter, у меня автоматически проставились точки 2007.07.01

Спасибо.
P.S. Поиском по форуму пользовался, но не нашел этой темы(не знаю даже как эту функцию назвать), если она уже обсуждалась, дайте пожалуйста ссылку.

[SAS888]

См. во вложении пример для столбца "A".

[EducatedFool]

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

См. во вложении пример для столбца "A".

Замечу только, что в момент ввода даты в ячейку у ячейки должен быть формат "Общий" (ну или какой-то подобный, главное, чтобы не был установлен формат "Дата")
Иначе макрос вылетает с ошибкой переполнения
(при вводе в ячейку, имеющую формат Дата, какого-нибудь большого числа - например, 20070303, в ячейке оказывается текст #######)

Короче, заменить ранее введённую дату при таком алгоритме вряд ли получится...

[antfrolov]

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

См. во вложении пример для столбца "A".

Вот и у меня получилось ###### причем в А1, а в A2 ничего не происходит.
Вопрос актуален.

[EducatedFool]

Немного изменил макрос - теперь всё работает:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    txt = Target.Value2
    If Len(txt) <> 8 Or Not IsNumeric(txt) Then Exit Sub
    On Error Resume Next
    newdate = DateSerial(Left$(txt, 4), Mid$(txt, 5, 2), Right$(txt, 2))
    If IsDate(newdate) Then Target = newdate
End Sub

Пример файла:

[antfrolov]

Странно, ввожу дату, а всё равно ######## перед тем, как пользоваться этим файлом мне нужно было что-то сделать? Я просто открыл и вписал в А4 дату, получилось #######

[SAS888]

Согласен с замечаниями. При необходимости нужно делать еще дополнительные проверки введенных данных. Можно, конечно, предусмотреть все возможные случаи, но это уже дело техники.
Так, например, предложенный Вами макрос тоже "вылетит" с ошибкой при вводе числа 12345678.

[EducatedFool]

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

Странно, ввожу дату, а всё равно ######## перед тем, как пользоваться этим файлом мне нужно было что-то сделать? Я просто открыл и вписал в А4 дату, получилось #######

А в каком формате Вы её вводите?
Также, как и собирались изначально - 20070701
(то етсь в формате ГГГГММДД) ?

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

Так, например, предложенный Вами макрос тоже "вылетит" с ошибкой при вводе числа 12345678.

Я увидел это чуть позже, поэтому внес в код коррективы:

    On Error Resume Next
    newdate = DateSerial(Left$(txt, 4), Mid$(txt, 5, 2), Right$(txt, 2))
    If IsDate(newdate) Then Target = newdate

[antfrolov]

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

А в каком формате Вы её вводите?
Также, как и собирались изначально - 20070701
(то етсь в формате ГГГГММДД) ?

Да. И так вводил и наоборот...

[EducatedFool]

Да. И так вводил и наоборот...

Ну и? Что происходит?
Я ввожу в ячейку 20070701 - через мгновение получаю в ячейке результат 01.07.2007

Надеюсь, у Вас макросы не отключены?