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

Вход

Регистрация

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

 

= Мир MS Excel/Если одна ячейка заполнена, то в другой дата - Мир MS Excel

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

Excel для Mac
Всем добрый день!

Подскажите плз. как при заполненной одной ячейки проставить дату в другую и так, что бы она больше не менялась? Используемая формула =ЕСЛИ(C3="";"";ТДАТА()) меняет каждый раз дату на текущую. Использую Excel 2016 for Mac.

Заранее спасибо.

Мир не любит перемен, хотя это единственное, что движет прогрессом.
 
Ответить
СообщениеВсем добрый день!

Подскажите плз. как при заполненной одной ячейки проставить дату в другую и так, что бы она больше не менялась? Используемая формула =ЕСЛИ(C3="";"";ТДАТА()) меняет каждый раз дату на текущую. Использую Excel 2016 for Mac.

Заранее спасибо.
Автор - DaDimka
Дата добавления - 31.07.2015 в 12:23
Nic70y Дата: Пятница, 31.07.2015, 12:33 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A21")) Is Nothing Then
Application.ScreenUpdating = 0
     For Each c In Range("A2:A21")
     If c <> "" And c.Offset(, 1) = "" Then
     c.Offset(, 1) = CDate(Format(Now(), "DD.MM.YY"))
     End If
     Next
End If
Application.ScreenUpdating = 1
End Sub
[/vba]
К сообщению приложен файл: 1111.44.xlsm (14.0 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:A21")) Is Nothing Then
Application.ScreenUpdating = 0
     For Each c In Range("A2:A21")
     If c <> "" And c.Offset(, 1) = "" Then
     c.Offset(, 1) = CDate(Format(Now(), "DD.MM.YY"))
     End If
     Next
End If
Application.ScreenUpdating = 1
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 31.07.2015 в 12:33
DaDimka Дата: Пятница, 31.07.2015, 12:52 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel для Mac
Nic70y, а может построение формулы быть не на макросах?

Мир не любит перемен, хотя это единственное, что движет прогрессом.
 
Ответить
СообщениеNic70y, а может построение формулы быть не на макросах?
Автор - DaDimka
Дата добавления - 31.07.2015 в 12:52
Nic70y Дата: Пятница, 31.07.2015, 13:41 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
Код
=ЕСЛИ(B2=0;"";ЕСЛИ(A2="";B2;ТДАТА()))
К сообщению приложен файл: 1111.44.xlsx (8.8 Kb) · 1027841.gif (48.5 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 31.07.2015, 13:41
 
Ответить
Сообщение
Код
=ЕСЛИ(B2=0;"";ЕСЛИ(A2="";B2;ТДАТА()))
Автор - Nic70y
Дата добавления - 31.07.2015 в 13:41
DaDimka Дата: Пятница, 31.07.2015, 23:20 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel для Mac
Спасибо огромное, данные внес завтра проверю, но уверен, что дата уже не поменяется!

Мир не любит перемен, хотя это единственное, что движет прогрессом.
 
Ответить
СообщениеСпасибо огромное, данные внес завтра проверю, но уверен, что дата уже не поменяется!
Автор - DaDimka
Дата добавления - 31.07.2015 в 23:20
Nic70y Дата: Пятница, 31.07.2015, 23:32 | Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
Не неправильно!
но уже поздно - не соображаю

ЮMoney 41001841029809
 
Ответить
СообщениеНе неправильно!
но уже поздно - не соображаю
Автор - Nic70y
Дата добавления - 31.07.2015 в 23:32
Nic70y Дата: Понедельник, 03.08.2015, 00:32 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
http://www.excelworld.ru/forum/2-17969-1

ЮMoney 41001841029809
 
Ответить
Сообщениеhttp://www.excelworld.ru/forum/2-17969-1
Автор - Nic70y
Дата добавления - 03.08.2015 в 00:32
DaDimka Дата: Понедельник, 03.08.2015, 11:29 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel для Mac
Добрый день!

Да, к сожалению не сработало...

Прочитал всё по Вашей ссылке, похоже это то, что мне нужно. Единственное, так и не смог переделать формулы на обратно. В данном примере приведен запрет изменения текста, при ручном проставлении даты. В моем случае заполняется текстовой поле, а дата проставляется автоматически, на которую накладывается запрет редактирования.

Мир не любит перемен, хотя это единственное, что движет прогрессом.
 
Ответить
СообщениеДобрый день!

Да, к сожалению не сработало...

Прочитал всё по Вашей ссылке, похоже это то, что мне нужно. Единственное, так и не смог переделать формулы на обратно. В данном примере приведен запрет изменения текста, при ручном проставлении даты. В моем случае заполняется текстовой поле, а дата проставляется автоматически, на которую накладывается запрет редактирования.
Автор - DaDimka
Дата добавления - 03.08.2015 в 11:29
Nic70y Дата: Понедельник, 03.08.2015, 11:38 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 9131
Репутация: 2415 ±
Замечаний: 0% ±

Excel 2010
DaDimka, чем Вам макрос не понравился?
Даже если добиться результата формулами, доп.столбцами - итерации вредная штука.

ЮMoney 41001841029809
 
Ответить
СообщениеDaDimka, чем Вам макрос не понравился?
Даже если добиться результата формулами, доп.столбцами - итерации вредная штука.
Автор - Nic70y
Дата добавления - 03.08.2015 в 11:38
DaDimka Дата: Понедельник, 03.08.2015, 11:40 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 0% ±

Excel для Mac
Прошу прощенья! Все идеально работает! Проблема решена!

Спасибо огромное!!!

Мир не любит перемен, хотя это единственное, что движет прогрессом.
 
Ответить
СообщениеПрошу прощенья! Все идеально работает! Проблема решена!

Спасибо огромное!!!
Автор - DaDimka
Дата добавления - 03.08.2015 в 11:40
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Если одна ячейка заполнена, то в другой дата (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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