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

Вход

Регистрация

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

 

= Мир MS Excel/Очистка ячейки в конце месяца. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Очистка ячейки в конце месяца. (Формулы/Formulas)
Очистка ячейки в конце месяца.
Новичёк Дата: Понедельник, 18.11.2019, 10:37 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 2 ±
Замечаний: 0% ±

Здравствуйте. Есть некий график посещения с отметками о выполнении. По окончании месяца ячейки с отметками должны очищаться, что бы дата посещения была актуальной на новый месяц. В файле, на данный момент, смог реализовать только выпадающий список, но в конце месяца отметки о выполнении надо снимать вручную. Есть ли возможность как-то автоматизировать процесс по удалению при наступлении 1-го числа следующего месяца?
Либо, как вариант, присваивалось значение №2 из условия: Лист 1 ячейка F6
К сообщению приложен файл: 9560890.xlsx (15.2 Kb)


Сообщение отредактировал Новичёк - Понедельник, 18.11.2019, 11:04
 
Ответить
СообщениеЗдравствуйте. Есть некий график посещения с отметками о выполнении. По окончании месяца ячейки с отметками должны очищаться, что бы дата посещения была актуальной на новый месяц. В файле, на данный момент, смог реализовать только выпадающий список, но в конце месяца отметки о выполнении надо снимать вручную. Есть ли возможность как-то автоматизировать процесс по удалению при наступлении 1-го числа следующего месяца?
Либо, как вариант, присваивалось значение №2 из условия: Лист 1 ячейка F6

Автор - Новичёк
Дата добавления - 18.11.2019 в 10:37
Новичёк Дата: Среда, 27.11.2019, 12:34 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 2 ±
Замечаний: 0% ±

Может кто помочь?
 
Ответить
СообщениеМожет кто помочь?

Автор - Новичёк
Дата добавления - 27.11.2019 в 12:34
Pelena Дата: Среда, 27.11.2019, 14:06 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Не совсем понятно (судя по отсутствию ответов, не только мне), по какому событию должна происходить очистка? При открытии книги проверяется текущая дата, и если это 1-ое число месяца, то очищаем? А если не открыли книгу первого числа?
Поясните логику


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеНе совсем понятно (судя по отсутствию ответов, не только мне), по какому событию должна происходить очистка? При открытии книги проверяется текущая дата, и если это 1-ое число месяца, то очищаем? А если не открыли книгу первого числа?
Поясните логику

Автор - Pelena
Дата добавления - 27.11.2019 в 14:06
Новичёк Дата: Среда, 27.11.2019, 14:38 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 2 ±
Замечаний: 0% ±

Логика, которую хотелось бы реализовать, следующая: в течении месяца напротив объектов, которые были посещены, ставим отметку "Выполнено" при помощи выпадающего списка (столбец F). По окончании текущего месяца (или начале следующего) ячейки, в которых стоят отметки "Выполнено" очищались бы разово, при первом открытии файла в новом месяце, без разницы, какого числа нового месяца был открыт файл. Будет ли очищаться ячейка, будет ли ей присваиваться пустая ячейка выпадающего списка или ещё как - не принципиально. И, если возможно, в строках, где в столбце "Напоминалка" (столбец Е) есть надпись "не посещено", в соответствующих ячейках "Дата посещения" (столбец С) дата бы при смене месяца не менялась.
 
Ответить
СообщениеЛогика, которую хотелось бы реализовать, следующая: в течении месяца напротив объектов, которые были посещены, ставим отметку "Выполнено" при помощи выпадающего списка (столбец F). По окончании текущего месяца (или начале следующего) ячейки, в которых стоят отметки "Выполнено" очищались бы разово, при первом открытии файла в новом месяце, без разницы, какого числа нового месяца был открыт файл. Будет ли очищаться ячейка, будет ли ей присваиваться пустая ячейка выпадающего списка или ещё как - не принципиально. И, если возможно, в строках, где в столбце "Напоминалка" (столбец Е) есть надпись "не посещено", в соответствующих ячейках "Дата посещения" (столбец С) дата бы при смене месяца не менялась.

Автор - Новичёк
Дата добавления - 27.11.2019 в 14:38
Pelena Дата: Четверг, 28.11.2019, 14:25 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
В модуль книги
[vba]
Код
Private Sub Workbook_Open()
    If Month(Sheets("Лист1").Range("I2").Value) <> Month(Date) Then
        Sheets("Объекты").ListObjects("Таблица1").ListColumns("Отметка о выполнении").DataBodyRange.ClearContents
    End If
    Sheets("Лист1").Range("I2") = Date
End Sub
[/vba]
К сообщению приложен файл: 9560890-1-.xlsm (21.9 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеВ модуль книги
[vba]
Код
Private Sub Workbook_Open()
    If Month(Sheets("Лист1").Range("I2").Value) <> Month(Date) Then
        Sheets("Объекты").ListObjects("Таблица1").ListColumns("Отметка о выполнении").DataBodyRange.ClearContents
    End If
    Sheets("Лист1").Range("I2") = Date
End Sub
[/vba]

Автор - Pelena
Дата добавления - 28.11.2019 в 14:25
Новичёк Дата: Пятница, 29.11.2019, 15:48 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 2 ±
Замечаний: 0% ±

Pelena, спасибо, что участвуете в моём вопросе. Только я не понял, как это работает. Ячейка с отметкой о выполнении не очищается ни при каких условиях. И наоборот, дата посещения при наличии отметки "не посещено" меняется при смене месяца. Ещё раз спасибо.
 
Ответить
СообщениеPelena, спасибо, что участвуете в моём вопросе. Только я не понял, как это работает. Ячейка с отметкой о выполнении не очищается ни при каких условиях. И наоборот, дата посещения при наличии отметки "не посещено" меняется при смене месяца. Ещё раз спасибо.

Автор - Новичёк
Дата добавления - 29.11.2019 в 15:48
Pelena Дата: Пятница, 29.11.2019, 15:51 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Ячейка с отметкой о выполнении должна очиститься при наступлении нового месяца


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЯчейка с отметкой о выполнении должна очиститься при наступлении нового месяца

Автор - Pelena
Дата добавления - 29.11.2019 в 15:51
Новичёк Дата: Понедельник, 02.12.2019, 12:02 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 2 ±
Замечаний: 0% ±

Не очищается. Или я неправильно макрос вставляю? Делаю так: Разработчик-Visual Basic-два клика ЛКМ по "Эта книга"-Paste-закрываю Visual Basic.
И, если я правильно понял, макрос отработает только при 12 месяце. А если будет 1 месяц 20 года, то макрос уже не сработает?
К сообщению приложен файл: 2124430.xlsm (20.9 Kb)


Сообщение отредактировал Новичёк - Понедельник, 02.12.2019, 13:12
 
Ответить
СообщениеНе очищается. Или я неправильно макрос вставляю? Делаю так: Разработчик-Visual Basic-два клика ЛКМ по "Эта книга"-Paste-закрываю Visual Basic.
И, если я правильно понял, макрос отработает только при 12 месяце. А если будет 1 месяц 20 года, то макрос уже не сработает?

Автор - Новичёк
Дата добавления - 02.12.2019 в 12:02
_Boroda_ Дата: Понедельник, 02.12.2019, 13:26 | Сообщение № 9
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А если немного переписать?
[vba]
Код
Private Sub Workbook_Open()
    With Sheets("Лист1")
        If Month(.Range("I2")) <> Month(Date) Then
            Sheets("Объекты").ListObjects("Таблица1").ListColumns("Отметка о выполнении").DataBodyRange.ClearContents
            .Range("I2") = Date
        End If
    End With
End Sub
[/vba]
Только перед сохранением исправьте дату в I2 на ноябрь
К сообщению приложен файл: 2124430_1.xlsm (21.3 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА если немного переписать?
[vba]
Код
Private Sub Workbook_Open()
    With Sheets("Лист1")
        If Month(.Range("I2")) <> Month(Date) Then
            Sheets("Объекты").ListObjects("Таблица1").ListColumns("Отметка о выполнении").DataBodyRange.ClearContents
            .Range("I2") = Date
        End If
    End With
End Sub
[/vba]
Только перед сохранением исправьте дату в I2 на ноябрь

Автор - _Boroda_
Дата добавления - 02.12.2019 в 13:26
Новичёк Дата: Понедельник, 02.12.2019, 13:50 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 2 ±
Замечаний: 0% ±

А нельзя ли сделать, что бы проверялась не ячейка I2, так как она фиксированная, а текущая дата (ячейка Е5)?
 
Ответить
СообщениеА нельзя ли сделать, что бы проверялась не ячейка I2, так как она фиксированная, а текущая дата (ячейка Е5)?

Автор - Новичёк
Дата добавления - 02.12.2019 в 13:50
_Boroda_ Дата: Понедельник, 02.12.2019, 13:58 | Сообщение № 11
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Нет, нам как раз нужно проверять фиксированную ячейку Range("I2") и сверять ее месяц с месяцем текущей даты Date


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

Автор - _Boroda_
Дата добавления - 02.12.2019 в 13:58
Новичёк Дата: Понедельник, 02.12.2019, 14:06 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 2 ±
Замечаний: 0% ±

_Boroda_, Pelena, Спасибо огромное. А по второй части вопроса можете подсказать?
Цитата Новичёк, 27.11.2019 в 14:38, в сообщении № 4 ()
И, если возможно, в строках, где в столбце "Напоминалка" (столбец Е) есть надпись "не посещено", в соответствующих ячейках "Дата посещения" (столбец С) дата бы при смене месяца не менялась.
 
Ответить
Сообщение_Boroda_, Pelena, Спасибо огромное. А по второй части вопроса можете подсказать?
Цитата Новичёк, 27.11.2019 в 14:38, в сообщении № 4 ()
И, если возможно, в строках, где в столбце "Напоминалка" (столбец Е) есть надпись "не посещено", в соответствующих ячейках "Дата посещения" (столбец С) дата бы при смене месяца не менялась.

Автор - Новичёк
Дата добавления - 02.12.2019 в 14:06
_Boroda_ Дата: Понедельник, 02.12.2019, 14:41 | Сообщение № 13
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
При таком раскладе данных, как у Вас, можно только в том случае, если была только одна неявка, в предыдущем месяце. А если она (неявка) была 2 месяца назад?
Кстати, у Вас там вроде не совсем то с формулами. №4 - понедельник третьей недели месяца. Для декабря все так - 16 декабря (не совсем так, см. сноску *). А если поставить там "Выполнено", то напишет 17 января 2020г. - пятница третьей недели месяца.

* Вам нужно определить, как Вы считаете недели месяца. Вот например, в декабре 2019г. - первое декабря приходится на воскресенье. Это первая неделя или первая неделя начнется с первого понедельника? Или с той недели, в которой первый четверг месяца (по типу стандарта ISO 8601)?

В любом случае правка формулы к этой теме не относится


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПри таком раскладе данных, как у Вас, можно только в том случае, если была только одна неявка, в предыдущем месяце. А если она (неявка) была 2 месяца назад?
Кстати, у Вас там вроде не совсем то с формулами. №4 - понедельник третьей недели месяца. Для декабря все так - 16 декабря (не совсем так, см. сноску *). А если поставить там "Выполнено", то напишет 17 января 2020г. - пятница третьей недели месяца.

* Вам нужно определить, как Вы считаете недели месяца. Вот например, в декабре 2019г. - первое декабря приходится на воскресенье. Это первая неделя или первая неделя начнется с первого понедельника? Или с той недели, в которой первый четверг месяца (по типу стандарта ISO 8601)?

В любом случае правка формулы к этой теме не относится

Автор - _Boroda_
Дата добавления - 02.12.2019 в 14:41
Новичёк Дата: Понедельник, 02.12.2019, 15:08 | Сообщение № 14
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 2 ±
Замечаний: 0% ±

При таком раскладе данных, как у Вас, можно только в том случае, если была только одна неявка, в предыдущем месяце
Неявку больше одного месяца можно не рассматривать.

Первая неделя-это первое число месяца, даже если этих дней в первую неделю не было. По другому просто не получилось сделать.

P/S Ваша правда, следующую дату показывает неправильно. Пока получилось сделать так, дальше буду думать, как поправить. Какая-то неточность с вычитанием дат.


Сообщение отредактировал Новичёк - Понедельник, 02.12.2019, 15:57
 
Ответить
Сообщение
При таком раскладе данных, как у Вас, можно только в том случае, если была только одна неявка, в предыдущем месяце
Неявку больше одного месяца можно не рассматривать.

Первая неделя-это первое число месяца, даже если этих дней в первую неделю не было. По другому просто не получилось сделать.

P/S Ваша правда, следующую дату показывает неправильно. Пока получилось сделать так, дальше буду думать, как поправить. Какая-то неточность с вычитанием дат.

Автор - Новичёк
Дата добавления - 02.12.2019 в 15:08
Новичёк Дата: Понедельник, 09.12.2019, 13:28 | Сообщение № 15
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 121
Репутация: 2 ±
Замечаний: 0% ±

Подыму ещё раз тему. Может по второй части вопроса кто подскажет?
Цитата Новичёк, 27.11.2019 в 14:38, в сообщении № 4 ()
И, если возможно, в строках, где в столбце "Напоминалка" (столбец Е) есть надпись "не посещено", в соответствующих ячейках "Дата посещения" (столбец С) дата бы при смене месяца не менялась

При таком раскладе данных, как у Вас, можно только в том случае, если была только одна неявка, в предыдущем месяце. А если она (неявка) была 2 месяца назад?

Цитата Новичёк, 02.12.2019 в 15:08, в сообщении № 14 ()
Неявку больше одного месяца можно не рассматривать.
 
Ответить
СообщениеПодыму ещё раз тему. Может по второй части вопроса кто подскажет?
Цитата Новичёк, 27.11.2019 в 14:38, в сообщении № 4 ()
И, если возможно, в строках, где в столбце "Напоминалка" (столбец Е) есть надпись "не посещено", в соответствующих ячейках "Дата посещения" (столбец С) дата бы при смене месяца не менялась

При таком раскладе данных, как у Вас, можно только в том случае, если была только одна неявка, в предыдущем месяце. А если она (неявка) была 2 месяца назад?

Цитата Новичёк, 02.12.2019 в 15:08, в сообщении № 14 ()
Неявку больше одного месяца можно не рассматривать.

Автор - Новичёк
Дата добавления - 09.12.2019 в 13:28
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Очистка ячейки в конце месяца. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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