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

Вход

Регистрация

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

 

= Мир MS Excel/Определение текущего времени при вводе слова - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Определение текущего времени при вводе слова
l-lisa Дата: Четверг, 24.09.2015, 22:31 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 312
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте, подскажите пожалуйста, есть ли возможность написать макрос, который бы каждый раз, после ввода слова "Прибыл" в соседней ячейке справа писал текущее время(время в которое было набрано слово)
К сообщению приложен файл: 6150657.xlsx (9.0 Kb)
 
Ответить
СообщениеЗдравствуйте, подскажите пожалуйста, есть ли возможность написать макрос, который бы каждый раз, после ввода слова "Прибыл" в соседней ячейке справа писал текущее время(время в которое было набрано слово)

Автор - l-lisa
Дата добавления - 24.09.2015 в 22:31
Формуляр Дата: Четверг, 24.09.2015, 22:43 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 832
Репутация: 255 ±
Замечаний: 0% ±

Excel 2003, 2013
Здравствуйте.
Ну, как-то так:
[vba]
Код
Sub Worksheet_Change(ByVal Target As Range)
      If Target.Cells(1, 1) = "Прибыл" Then
          Application.EnableEvents = False
          Target.Cells(1, 2) = Now()
          Application.EnableEvents = True
      End If
End Sub
[/vba]
К сообщению приложен файл: 6150657.xls (31.5 Kb)


Excel 2003 EN, 2013 EN

Сообщение отредактировал Формуляр - Четверг, 24.09.2015, 22:44
 
Ответить
СообщениеЗдравствуйте.
Ну, как-то так:
[vba]
Код
Sub Worksheet_Change(ByVal Target As Range)
      If Target.Cells(1, 1) = "Прибыл" Then
          Application.EnableEvents = False
          Target.Cells(1, 2) = Now()
          Application.EnableEvents = True
      End If
End Sub
[/vba]

Автор - Формуляр
Дата добавления - 24.09.2015 в 22:43
  • Страница 1 из 1
  • 1
Поиск:

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