Добрый день, коллеги. Столкнулся с задачей, которую как ни пробовал, не вышло решить своими силами.
Имеется документ, где есть календарь по дням. Необходимо на данном календаре по дням отмечать количество изготовленных деталей, с дальнейшим суммированием в столбец F. Проблема в том, что на текущий момент календарь движется, а вот внесенные значения в ячейки остаются на прежних местах. Через ячейку С3 имеется возможность листать календарь самостоятельно.
Прошу по возможности помочь с решением данной задачи. Есть предположение, что текущая структура календаря вообще не подходит по данную задачу, а нужен сквозной календарь.
Добрый день, коллеги. Столкнулся с задачей, которую как ни пробовал, не вышло решить своими силами.
Имеется документ, где есть календарь по дням. Необходимо на данном календаре по дням отмечать количество изготовленных деталей, с дальнейшим суммированием в столбец F. Проблема в том, что на текущий момент календарь движется, а вот внесенные значения в ячейки остаются на прежних местах. Через ячейку С3 имеется возможность листать календарь самостоятельно.
Прошу по возможности помочь с решением данной задачи. Есть предположение, что текущая структура календаря вообще не подходит по данную задачу, а нужен сквозной календарь.Ragnarrok
Ragnarrok, если каждый день изготавливается то да, если не каждый, то только даты с количеством, все равно где-то долно быть записано в какую дату сколько. Вариант по месяцам, с группировкой и закреплением области... но опять весь календарь нужен...
Ragnarrok, если каждый день изготавливается то да, если не каждый, то только даты с количеством, все равно где-то долно быть записано в какую дату сколько. Вариант по месяцам, с группировкой и закреплением области... но опять весь календарь нужен...cmivadwot
Вот этот вариант больше похож на что-то подходящее. Но конечно календарь получается не самый удобный в работе и несовершенный. Больше нет никакого инструментария в рамках эксель по работе с календарем?
Вот этот вариант больше похож на что-то подходящее. Но конечно календарь получается не самый удобный в работе и несовершенный. Больше нет никакого инструментария в рамках эксель по работе с календарем?Ragnarrok
Сообщение отредактировал Ragnarrok - Вторник, 17.10.2023, 19:54
Обдумал, наверно решил бы вопрос формирование календаря на весь год, но с возможностью горизонтальной фильтрации по месяцам. К примеру в какой-то ячейке выбирается месяц, в соответствии с этим лишние месяца скрываются.
Обдумал, наверно решил бы вопрос формирование календаря на весь год, но с возможностью горизонтальной фильтрации по месяцам. К примеру в какой-то ячейке выбирается месяц, в соответствии с этим лишние месяца скрываются.Ragnarrok
Сообщение отредактировал Ragnarrok - Среда, 18.10.2023, 11:35
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("i2")) Is Nothing Then a = Target.Value b = Application.CountA(Range("4:4")) + 10 If a = "" Then Range(Columns(11), Columns(b)).EntireColumn.Hidden = False Else Range(Columns(11), Columns(b)).EntireColumn.Hidden = True c = Application.Match(a, Range("3:3"), 0) d = Application.Match("*" & Mid(a, 2, 2) & "*ит*", Range("4:4"), 0) Range(Columns(c), Columns(d)).EntireColumn.Hidden = False End If End If End Sub
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("i2")) Is Nothing Then a = Target.Value b = Application.CountA(Range("4:4")) + 10 If a = "" Then Range(Columns(11), Columns(b)).EntireColumn.Hidden = False Else Range(Columns(11), Columns(b)).EntireColumn.Hidden = True c = Application.Match(a, Range("3:3"), 0) d = Application.Match("*" & Mid(a, 2, 2) & "*ит*", Range("4:4"), 0) Range(Columns(c), Columns(d)).EntireColumn.Hidden = False End If End If End Sub
Ragnarrok, что бы ответить форумчанину не надо цитировать его ник Мышкой нажмите в колонке слева на ник форумчанина, которому Вы отвечаете и автоматически ник появится в теле поста уже с тегами Bold и запятой
Ragnarrok, что бы ответить форумчанину не надо цитировать его ник Мышкой нажмите в колонке слева на ник форумчанина, которому Вы отвечаете и автоматически ник появится в теле поста уже с тегами Bold и запятойSerge_007
Nic70y, подскажите, возник вопрос. Обратил внимание, что есть какая-то связь со столбцом "сент итого", удалил его за ненадобностью, макрос начал выдавать ошибку. Возможно как-то откорректировать макрос для работы в рамках такой структуры?
Nic70y, подскажите, возник вопрос. Обратил внимание, что есть какая-то связь со столбцом "сент итого", удалил его за ненадобностью, макрос начал выдавать ошибку. Возможно как-то откорректировать макрос для работы в рамках такой структуры?Ragnarrok
Сообщение отредактировал Ragnarrok - Четверг, 19.10.2023, 19:29
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("i3")) Is Nothing Then a = Target.Value b = Application.CountA(Range("4:4")) + 9 If a = "" Then Range(Columns(10), Columns(b)).EntireColumn.Hidden = False Else Dim f As Double Dim d As Double f = Target.Value Range(Columns(10), Columns(b)).EntireColumn.Hidden = True c = Application.Match(f, Range("4:4"), 0) d = DateSerial(Year(a), Month(a) + 1, 0) e = Application.Match(d, Range("4:4"), 0) Range(Columns(c), Columns(e)).EntireColumn.Hidden = False End If End If End Sub
[/vba]
для данного случая: [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("i3")) Is Nothing Then a = Target.Value b = Application.CountA(Range("4:4")) + 9 If a = "" Then Range(Columns(10), Columns(b)).EntireColumn.Hidden = False Else Dim f As Double Dim d As Double f = Target.Value Range(Columns(10), Columns(b)).EntireColumn.Hidden = True c = Application.Match(f, Range("4:4"), 0) d = DateSerial(Year(a), Month(a) + 1, 0) e = Application.Match(d, Range("4:4"), 0) Range(Columns(c), Columns(e)).EntireColumn.Hidden = False End If End If End Sub
Nic70y, Немного другое имею ввиду. К примеру сейчас месяц по которому надо отфильтровать находится в ячейке I3, в какой части макроса внести изменения, если например необходимо перенести в ячейку H2?
Nic70y, Немного другое имею ввиду. К примеру сейчас месяц по которому надо отфильтровать находится в ячейке I3, в какой части макроса внести изменения, если например необходимо перенести в ячейку H2?Ragnarrok
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
