Спрятать столбец по условию(количество дней в месяце)

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Спрятать столбец по условию(количество дней в месяце) (Макросы/Sub)

probably

Дата: Воскресенье, 22.08.2021, 16:45 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Добрый день!

Создаю рабочий график, но в конце есть строки в зависимости от количества дней в месяце. Хочется сделать так, чтобы Если количество дней в месяце допустим 28(как в феврале, то 3 столбца следующие спрятались), соответственно и в другие месяца в соответствии с количеством дней прятались столбики до столбца с надписью подпись.

Буду благодарен помощи.

К сообщению приложен файл: 4936086.xlsx (19.3 Kb)

Сообщение отредактировал probably - Воскресенье, 22.08.2021, 16:47

Ответить

Kuzmich

Дата: Воскресенье, 22.08.2021, 18:55 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 711

Репутация: 156 ±

Замечаний: 0% ±

Excel 2003

Посмотрите здесь
http://perfect-excel.ru/publ....4-1-0-1

Ответить

probably

Дата: Воскресенье, 22.08.2021, 20:16 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Цитата Kuzmich, 22.08.2021 в 18:55, в сообщении № 2 (

)

Посмотрите здесь
http://perfect-excel.ru/publ....4-1-0-1

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

Ответить

Kuzmich

Дата: Воскресенье, 22.08.2021, 21:25 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 711

Репутация: 156 ±

Замечаний: 0% ±

Excel 2003

Цитата

не выходит к сожалению автоматизировать

Пишите макрос на изменение значения ячеек B3 и C3
В зависимости от значения ячейки В6 скрываете ненужные столбцы
В6=28 скрываете столбцы AI:АК
В6=29 скрываете столбцы AJ:АК
В6=30 скрываете столбец АК

Ответить

bmv98rus

Дата: Воскресенье, 22.08.2021, 21:30 | Сообщение № 5

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4106

Репутация: 768 ±

Замечаний: 0% ±

Excel 2013/2016

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b3:c3")) Is Nothing Then
    For Each cell In Range("ai9:ak9")
        cell.EntireColumn.Hidden = cell = 0
    Next
End If
End Sub

[/vba]

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Сообщение отредактировал bmv98rus - Воскресенье, 22.08.2021, 21:31

Ответить

probably

Дата: Понедельник, 23.08.2021, 09:06 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 5

Репутация: 0 ±

Замечаний: 0% ±

Большое спасибо! Очень помогли!

Сообщение отредактировал Serge_007 - Понедельник, 23.08.2021, 10:20

Ответить

Страница 1 из 1
1