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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос для автоматической даты - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для автоматической даты (Формулы/Formulas)
Макрос для автоматической даты
maxx Дата: Понедельник, 19.09.2016, 07:48 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 44
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Доброе утро!
В столбце "статус", при выборе в ниспадающем окне "выдано", справа от выдано должна появиться текущая дата...
Подскажите макрос для этого пожалуйста
К сообщению приложен файл: 1868017.xlsx(11.4 Kb)


начинающий

Сообщение отредактировал maxx - Понедельник, 19.09.2016, 07:48
 
Ответить
СообщениеДоброе утро!
В столбце "статус", при выборе в ниспадающем окне "выдано", справа от выдано должна появиться текущая дата...
Подскажите макрос для этого пожалуйста

Автор - maxx
Дата добавления - 19.09.2016 в 07:48
buchlotnik Дата: Понедельник, 19.09.2016, 09:02 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3443
Репутация: 923 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
так нужно? [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target = "выдано" Then Target.Offset(, 1) = Now()
End Sub
[/vba]
К сообщению приложен файл: 1868017.xlsm(16.3 Kb)


Сообщение отредактировал buchlotnik - Понедельник, 19.09.2016, 09:08
 
Ответить
Сообщениетак нужно? [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target = "выдано" Then Target.Offset(, 1) = Now()
End Sub
[/vba]

Автор - buchlotnik
Дата добавления - 19.09.2016 в 09:02
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос для автоматической даты (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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