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

Вход

Регистрация

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

 

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

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

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


начинающий

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

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

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(16Kb)


платная помощь:
ЯД: 410012595572239; WM: 311017577133
buchlotnik@mail.ru


Сообщение отредактировал 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 из 11
Поиск:

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