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

Вход

Регистрация

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

 

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

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

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

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

Excel 2010
[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]


ЮMoney 41001841029809

Сообщение отредактировал 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
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

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

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

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