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

Вход

Регистрация

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

 

= Мир MS Excel/Скрытие столбцов с выходными и праздничными днями - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Скрытие столбцов с выходными и праздничными днями (Формулы/Formulas)
Скрытие столбцов с выходными и праздничными днями
Yurio22 Дата: Суббота, 25.09.2021, 08:56 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Сделал таблицу, где с помощью счётчиков меняется месяц и год. В самой таблице столбцы с выходные днями выделяются «В», а нужно отобразить только столбцы с датами рабочих дней, а столбцы с выходными и праздничными днями должны быть скрыты.
К сообщению приложен файл: 1202753.xlsx (56.1 Kb)
 
Ответить
СообщениеСделал таблицу, где с помощью счётчиков меняется месяц и год. В самой таблице столбцы с выходные днями выделяются «В», а нужно отобразить только столбцы с датами рабочих дней, а столбцы с выходными и праздничными днями должны быть скрыты.

Автор - Yurio22
Дата добавления - 25.09.2021 в 08:56
Nic70y Дата: Суббота, 25.09.2021, 10:25 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8705
Репутация: 2260 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub u_01()
    Application.ScreenUpdating = False
    Columns("c:ag").EntireColumn.Hidden = False
    For Each c In Range("c3:ag3")
        If c = "В" Or c.Offset(-1, 0) = " " Then c.Columns.EntireColumn.Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub
[/vba][p.s.]зачем пробел в формуле, ну то ладно - дело Ваше[/p.s.]
К сообщению приложен файл: 1202753.xlsm (63.7 Kb)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Суббота, 25.09.2021, 10:31
 
Ответить
Сообщение[vba]
Код
Sub u_01()
    Application.ScreenUpdating = False
    Columns("c:ag").EntireColumn.Hidden = False
    For Each c In Range("c3:ag3")
        If c = "В" Or c.Offset(-1, 0) = " " Then c.Columns.EntireColumn.Hidden = True
    Next
    Application.ScreenUpdating = True
End Sub
[/vba][p.s.]зачем пробел в формуле, ну то ладно - дело Ваше[/p.s.]

Автор - Nic70y
Дата добавления - 25.09.2021 в 10:25
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Скрытие столбцов с выходными и праздничными днями (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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