Скрыть и показать столбцы по условиям выбора из списка

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

Страница 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)

Ответить

pechkin

Дата: Вторник, 22.03.2022, 11:01 | Сообщение № 2

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

Ранг: Обитатель

Сообщений: 329

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

Замечаний: 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)

Ответить

kirillka2507

Дата: Вторник, 22.03.2022, 13:43 | Сообщение № 3

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

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

Сообщений: 2

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

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

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

Ответить

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