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

Вход

Регистрация

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

 

= Мир MS Excel/Скрыть и показать столбцы по условиям выбора из списка - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрыть и показать столбцы по условиям выбора из списка (Макросы/Sub)
Скрыть и показать столбцы по условиям выбора из списка
kirillka2507 Дата: Вторник, 22.03.2022, 07:41 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Добрый день. Хочу написать макрос на отображение столбцов в документе по условию из списка. Задание.
Ячейка со списком F3..
При значении в F3=1, видны только столбцы G:P
F3=3, видны только столбцы Q:V
F3=5, видны только W:AB
F3=6,видны только AC:AH
К сообщению приложен файл: 7662021.xlsm(11.4 Kb)
 
Ответить
СообщениеДобрый день. Хочу написать макрос на отображение столбцов в документе по условию из списка. Задание.
Ячейка со списком F3..
При значении в F3=1, видны только столбцы G:P
F3=3, видны только столбцы Q:V
F3=5, видны только W:AB
F3=6,видны только AC:AH

Автор - kirillka2507
Дата добавления - 22.03.2022 в 07:41
pechkin Дата: Вторник, 22.03.2022, 11:01 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 319
Репутация: 47 ±
Замечаний: 0% ±

2003
Здравствуйте! Проверяйте[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) '
  Dim rng As Range: Set rng = Range("F3")
    If Not Intersect(rng, Target) Is Nothing Then
  Columns("G:AH").EntireColumn.Hidden = False
    If Range("F3").Value = 1 Then
     Columns("Q:AH").EntireColumn.Hidden = True
    End If
      If Range("F3").Value = 3 Then
       Columns("G:P").EntireColumn.Hidden = True
       Columns("W:AH").EntireColumn.Hidden = True
      End If
        If Range("F3").Value = 5 Then
         Columns("G:V").EntireColumn.Hidden = True
         Columns("AC:AH").EntireColumn.Hidden = True
        End If
            If Range("F3").Value = 6 Then
             Columns("G:AB").EntireColumn.Hidden = True
            End If
    End If
End Sub
[/vba]
К сообщению приложен файл: 7662021.xls(39.5 Kb)
 
Ответить
СообщениеЗдравствуйте! Проверяйте[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) '
  Dim rng As Range: Set rng = Range("F3")
    If Not Intersect(rng, Target) Is Nothing Then
  Columns("G:AH").EntireColumn.Hidden = False
    If Range("F3").Value = 1 Then
     Columns("Q:AH").EntireColumn.Hidden = True
    End If
      If Range("F3").Value = 3 Then
       Columns("G:P").EntireColumn.Hidden = True
       Columns("W:AH").EntireColumn.Hidden = True
      End If
        If Range("F3").Value = 5 Then
         Columns("G:V").EntireColumn.Hidden = True
         Columns("AC:AH").EntireColumn.Hidden = True
        End If
            If Range("F3").Value = 6 Then
             Columns("G:AB").EntireColumn.Hidden = True
            End If
    End If
End Sub
[/vba]

Автор - pechkin
Дата добавления - 22.03.2022 в 11:01
kirillka2507 Дата: Вторник, 22.03.2022, 13:43 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Огромное спасибо!) Попытаюсь разобраться!
 
Ответить
СообщениеОгромное спасибо!) Попытаюсь разобраться!

Автор - kirillka2507
Дата добавления - 22.03.2022 в 13:43
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрыть и показать столбцы по условиям выбора из списка (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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