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

Вход

Регистрация

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

 

= Мир MS Excel/можно ли "заморозить" сегодняшнюю дату? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » можно ли "заморозить" сегодняшнюю дату? (Формулы/Formulas)
можно ли "заморозить" сегодняшнюю дату?
maxx Дата: Четверг, 31.03.2016, 00:10 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
здравствуйте!
1. можно ли сделать так, чтобы при выборе из списка в ячейке Н14 "клиент оповещен", в ячейке I14 появилась текущая дата?и что самое важное, чтобы она "заморозилась" и не поменялась автоматически завтра на актуальную?чтобы через неделю, скажем, было видно, когда звонили клиенту...
2. а если выбрать следом из того же списка "требуется повторный звонок", то дата просто исчезает....пока вы снова не выберете "клиент оповещен"...с новой текущей датой.
К сообщению приложен файл: 01-2-.xlsx (12.6 Kb)


начинающий

Сообщение отредактировал maxx - Четверг, 31.03.2016, 00:13
 
Ответить
Сообщениездравствуйте!
1. можно ли сделать так, чтобы при выборе из списка в ячейке Н14 "клиент оповещен", в ячейке I14 появилась текущая дата?и что самое важное, чтобы она "заморозилась" и не поменялась автоматически завтра на актуальную?чтобы через неделю, скажем, было видно, когда звонили клиенту...
2. а если выбрать следом из того же списка "требуется повторный звонок", то дата просто исчезает....пока вы снова не выберете "клиент оповещен"...с новой текущей датой.

Автор - maxx
Дата добавления - 31.03.2016 в 00:10
_Boroda_ Дата: Четверг, 31.03.2016, 00:20 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16654
Репутация: 6475 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
Макросом
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 8 Then Exit Sub
    If Target.Value <> "клиент оповещен" Then
        Target.Offset(, 1).ClearContents
    Else
        Target.Offset(, 1) = Date
    End If
End Sub
[/vba]
К сообщению приложен файл: 01-2-1.xlsm (17.7 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
Макросом
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 8 Then Exit Sub
    If Target.Value <> "клиент оповещен" Then
        Target.Offset(, 1).ClearContents
    Else
        Target.Offset(, 1) = Date
    End If
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 31.03.2016 в 00:20
AlexM Дата: Четверг, 31.03.2016, 00:24 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4415
Репутация: 1090 ±
Замечаний: 0% ±

Excel 2003
Почти тоже самое[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(Range("H3:H99"), Target) Is Nothing Then
        If Target = "клиент оповещен" Then Target.Offset(, 1) = Date
        If Target = "требуется повторный звонок" Then Target.Offset(, 1) = ""
    End If
    Application.EnableEvents = True
End Sub
[/vba]
К сообщению приложен файл: 01-2-.xls (38.0 Kb)



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеПочти тоже самое[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Not Intersect(Range("H3:H99"), Target) Is Nothing Then
        If Target = "клиент оповещен" Then Target.Offset(, 1) = Date
        If Target = "требуется повторный звонок" Then Target.Offset(, 1) = ""
    End If
    Application.EnableEvents = True
End Sub
[/vba]

Автор - AlexM
Дата добавления - 31.03.2016 в 00:24
DrMini Дата: Четверг, 31.03.2016, 00:56 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 1590
Репутация: 183 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Александр. Подскажите, что надо вставить в колонку I . Мне подобная штука нужна для диспетчеров. Но я не разобрался как называется макрос, что бы его вставить в нужный диапазон.
 
Ответить
СообщениеАлександр. Подскажите, что надо вставить в колонку I . Мне подобная штука нужна для диспетчеров. Но я не разобрался как называется макрос, что бы его вставить в нужный диапазон.

Автор - DrMini
Дата добавления - 31.03.2016 в 00:56
maxx Дата: Четверг, 31.03.2016, 01:06 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
_Boroda_, ваууу hands ...честно думал пошлют меня...скажут иди ты мудрила :D
только вот вставляю этот макрос в такой же документ, но почему то не срабатывает... :(


начинающий
 
Ответить
Сообщение_Boroda_, ваууу hands ...честно думал пошлют меня...скажут иди ты мудрила :D
только вот вставляю этот макрос в такой же документ, но почему то не срабатывает... :(

Автор - maxx
Дата добавления - 31.03.2016 в 01:06
AlexM Дата: Четверг, 31.03.2016, 01:09 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4415
Репутация: 1090 ±
Замечаний: 0% ±

Excel 2003
maxx, если не получается, показывайте файл



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
Сообщениеmaxx, если не получается, показывайте файл

Автор - AlexM
Дата добавления - 31.03.2016 в 01:09
maxx Дата: Четверг, 31.03.2016, 01:16 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
AlexM, да это тот же файл...сделал как описано тут...
https://www.e-xcel.ru/index.p....u-knigu
но не сработало...
К сообщению приложен файл: 3836600.xlsm (16.2 Kb)


начинающий
 
Ответить
СообщениеAlexM, да это тот же файл...сделал как описано тут...
https://www.e-xcel.ru/index.p....u-knigu
но не сработало...

Автор - maxx
Дата добавления - 31.03.2016 в 01:16
_Boroda_ Дата: Четверг, 31.03.2016, 01:21 | Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16654
Репутация: 6475 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Копируете код, жмете правой мышой на ярлык нужного листа, выбираете "Исходный код", в появившемся окошке вставляете скопированное. Сохраняете книгу в формате с макросами.
что надо вставить в колонку I

В I ничего. Макрос работает при появлении в столбце Н текста "клиент оповещен"


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеКопируете код, жмете правой мышой на ярлык нужного листа, выбираете "Исходный код", в появившемся окошке вставляете скопированное. Сохраняете книгу в формате с макросами.
что надо вставить в колонку I

В I ничего. Макрос работает при появлении в столбце Н текста "клиент оповещен"

Автор - _Boroda_
Дата добавления - 31.03.2016 в 01:21
maxx Дата: Четверг, 31.03.2016, 01:30 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 54
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
_Boroda_, AlexM, спасибо ребята!...вроде сработало...завтра будет понятнее, когда все попробую применить на работе на настоящем документе...спасибо!


начинающий
 
Ответить
Сообщение_Boroda_, AlexM, спасибо ребята!...вроде сработало...завтра будет понятнее, когда все попробую применить на работе на настоящем документе...спасибо!

Автор - maxx
Дата добавления - 31.03.2016 в 01:30
DrMini Дата: Четверг, 31.03.2016, 06:36 | Сообщение № 10
Группа: Проверенные
Ранг: Старожил
Сообщений: 1590
Репутация: 183 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Александр. Спасибо за подсказку. Разобрался. И нашёл где изменить колонку. specool respect


Сообщение отредактировал DrMini - Четверг, 31.03.2016, 07:13
 
Ответить
СообщениеАлександр. Спасибо за подсказку. Разобрался. И нашёл где изменить колонку. specool respect

Автор - DrMini
Дата добавления - 31.03.2016 в 06:36
DrMini Дата: Четверг, 31.03.2016, 06:55 | Сообщение № 11
Группа: Проверенные
Ранг: Старожил
Сообщений: 1590
Репутация: 183 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
AlexM, Алексей спасибо за Ваше решение этой задачи. specool respect
 
Ответить
СообщениеAlexM, Алексей спасибо за Ваше решение этой задачи. specool respect

Автор - DrMini
Дата добавления - 31.03.2016 в 06:55
Мир MS Excel » Вопросы и решения » Вопросы по Excel » можно ли "заморозить" сегодняшнюю дату? (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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