Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Отмена обновления функции СЕГОДНЯ() - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отмена обновления функции СЕГОДНЯ() (Формулы/Formulas)
Отмена обновления функции СЕГОДНЯ()
shayhevaliev Дата: Понедельник, 21.11.2016, 00:54 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

2007
При вводе любого символа в столбец 3 в столбце 2 отображается дата. Как отменить изменение этой даты при перезапуске? Желательно, что бы не нужно было что то делать вручую, к примеру ввести какую-нибудь формулу и т.д. или может есть аналог этой функции СЕГОДНЯ()?.
 
Ответить
СообщениеПри вводе любого символа в столбец 3 в столбце 2 отображается дата. Как отменить изменение этой даты при перезапуске? Желательно, что бы не нужно было что то делать вручую, к примеру ввести какую-нибудь формулу и т.д. или может есть аналог этой функции СЕГОДНЯ()?.

Автор - shayhevaliev
Дата добавления - 21.11.2016 в 00:54
Nic70y Дата: Понедельник, 21.11.2016, 07:35 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3477
Репутация: 722 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1:C65536")) Is Nothing Then
    If Target.Count > 1 Then Exit Sub
    If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Date
End If
End Sub
[/vba]так наверное вернее
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1:C65536")) Is Nothing Then
    If Target.Count > 1 Then Exit Sub
    If Target <> "" And Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Date
End If
End Sub
[/vba]


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)


Сообщение отредактировал Nic70y - Понедельник, 21.11.2016, 07:48
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1:C65536")) Is Nothing Then
    If Target.Count > 1 Then Exit Sub
    If Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Date
End If
End Sub
[/vba]так наверное вернее
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1:C65536")) Is Nothing Then
    If Target.Count > 1 Then Exit Sub
    If Target <> "" And Target.Offset(0, -1) = "" Then Target.Offset(0, -1) = Date
End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 21.11.2016 в 07:35
shayhevaliev Дата: Среда, 23.11.2016, 18:46 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 3
Репутация: 0 ±
Замечаний: 0% ±

2007
Nic70y, Огромное спасибо!!!
 
Ответить
СообщениеNic70y, Огромное спасибо!!!

Автор - shayhevaliev
Дата добавления - 23.11.2016 в 18:46
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отмена обновления функции СЕГОДНЯ() (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!