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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир 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
 
Ответить
СообщениеДобрый день!

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

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

Автор - probably
Дата добавления - 22.08.2021 в 16:45
Kuzmich Дата: Воскресенье, 22.08.2021, 18:55 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 613
Репутация: 131 ±
Замечаний: 0% ±

Excel 2003
Посмотрите здесь
http://perfect-excel.ru/publ....4-1-0-1
 
Ответить
СообщениеПосмотрите здесь
http://perfect-excel.ru/publ....4-1-0-1

Автор - Kuzmich
Дата добавления - 22.08.2021 в 18:55
probably Дата: Воскресенье, 22.08.2021, 20:16 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±



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

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

Автор - probably
Дата добавления - 22.08.2021 в 20:16
Kuzmich Дата: Воскресенье, 22.08.2021, 21:25 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 613
Репутация: 131 ±
Замечаний: 0% ±

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

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

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

Автор - Kuzmich
Дата добавления - 22.08.2021 в 21:25
bmv98rus Дата: Воскресенье, 22.08.2021, 21:30 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3651
Репутация: 647 ±
Замечаний: 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
 
Ответить
Сообщение[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]

Автор - bmv98rus
Дата добавления - 22.08.2021 в 21:30
probably Дата: Понедельник, 23.08.2021, 09:06 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

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


Сообщение отредактировал Serge_007 - Понедельник, 23.08.2021, 10:20
 
Ответить
СообщениеБольшое спасибо! Очень помогли!

Автор - probably
Дата добавления - 23.08.2021 в 09:06
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Спрятать столбец по условию(количество дней в месяце) (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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