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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Очистка ячейки в конце месяца. (Формулы/Formulas)
Очистка ячейки в конце месяца.
Новичёк Дата: Понедельник, 18.11.2019, 10:37 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 79
Репутация: 1 ±
Замечаний: 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
Группа: Пользователи
Ранг: Участник
Сообщений: 79
Репутация: 1 ±
Замечаний: 0% ±

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

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

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


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

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

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

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

Excel 2010, 2016 & 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)


"Черт возьми, Холмс! Но как??!!"
ЯД 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
Группа: Пользователи
Ранг: Участник
Сообщений: 79
Репутация: 1 ±
Замечаний: 0% ±

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

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

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


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

Автор - Pelena
Дата добавления - 29.11.2019 в 15:51
Новичёк Дата: Понедельник, 02.12.2019, 12:02 | Сообщение № 8
Группа: Пользователи
Ранг: Участник
Сообщений: 79
Репутация: 1 ±
Замечаний: 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
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15644
Репутация: 6114 ±
Замечаний: 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
Группа: Пользователи
Ранг: Участник
Сообщений: 79
Репутация: 1 ±
Замечаний: 0% ±

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

Автор - Новичёк
Дата добавления - 02.12.2019 в 13:50
_Boroda_ Дата: Понедельник, 02.12.2019, 13:58 | Сообщение № 11
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15644
Репутация: 6114 ±
Замечаний: 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
Группа: Пользователи
Ранг: Участник
Сообщений: 79
Репутация: 1 ±
Замечаний: 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
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15644
Репутация: 6114 ±
Замечаний: 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
Группа: Пользователи
Ранг: Участник
Сообщений: 79
Репутация: 1 ±
Замечаний: 0% ±

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

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

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


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

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

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

Автор - Новичёк
Дата добавления - 02.12.2019 в 15:08
Новичёк Дата: Понедельник, 09.12.2019, 13:28 | Сообщение № 15
Группа: Пользователи
Ранг: Участник
Сообщений: 79
Репутация: 1 ±
Замечаний: 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-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!