Скрытие столбцов по выбранному значению

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

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

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

Oh_Nick

Дата: Среда, 15.07.2020, 11:05 | Сообщение № 1

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

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

Сообщений: 445

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

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

Excel 2019

Добрый день!

Столкнулся с проблемой , когда нужно выбрать значение и скрыть столбцы на листах.

Лист Индия. Когда выбираем FOB Nhava Sheva , должны остаться столбцы Sea LCL, Sea 20*std, Sea 40*std . Остальные убраться. Когда FCA Mumbai, остаться только AIR, остальные убраться. Когда EXW Pune , остаться столбец EXPRESS , остальные убраться.

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

Ответить

Oh_Nick

Дата: Среда, 15.07.2020, 14:27 | Сообщение № 2

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

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

Сообщений: 445

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

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

Excel 2019

Попробовал этот код:

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("B26"), Target) Is Nothing Then
Application.EnableEvents = 0: Application.ScreenUpdating = False
If Target = "FOB Nhava Sheva,India" Then
Columns("D30:E37;J30:J37").EntireRow.Hidden = False
Else
Columns("D30:E37;J30:J37").EntireRow.Hidden = True
End If
If Target = "FCA Mumbai,India" Then Columns("F30:J37").EntireRow.Hidden = False
If Target = "EXW Pune,India" Then Columns("D30:I37").EntireRow.Hidden = False
Application.EnableEvents = -1: Application.ScreenUpdating = False
End If
End Sub

[/vba]

Но не выходит. Помогите, пожалуйста, разобраться
:unsure:

Ответить

Oh_Nick

Дата: Среда, 15.07.2020, 15:32 | Сообщение № 3

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

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

Сообщений: 445

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

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

Excel 2019

Ребята,

Эта тоже не получается:

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False

Columns("B:J").EntireColumn.Hidden = False

Select Case Range("B26").Value
Case "FOB Nhava Sheva,India"
Range("D30:E37;J30:J37").Hidden = True
Case "FCA Mumbai, India"
Range("F30:J37").Hidden = True
Case "EXW Pune,India"
Range("D30:I37").Hidden = True
End Select

Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

[/vba]

Сообщение отредактировал Oh_Nick - Среда, 15.07.2020, 16:51

Ответить

Pelena

Дата: Среда, 15.07.2020, 16:46 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

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

Замечаний: ±

Excel 365 & Mac Excel

Oh_Nick, оформите код тегами с помощью кнопки # в режиме правки поста

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Oh_Nick

Дата: Среда, 15.07.2020, 16:51 | Сообщение № 5

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

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

Сообщений: 445

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

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

Excel 2019

Цитата Pelena, 15.07.2020 в 16:46, в сообщении № 4 ()

Oh_Nick, оформите код тегами с помощью кнопки # в режиме правки поста

Сделано.

Ответить

Pelena

Дата: Среда, 15.07.2020, 17:04 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

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

Замечаний: ±

Excel 365 & Mac Excel

Так можно
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("B26"), Target) Is Nothing Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False

        Columns("B:J").EntireColumn.Hidden = False

        Select Case Range("B26").Value
        Case "FOB Nhava Sheva,India"
            Range("D:E,J:J").EntireColumn.Hidden = True
        Case "FCA Mumbai, India"
            Columns("F:J").Hidden = True
        Case "EXW Pune,India"
            Columns("D:I").Hidden = True
        End Select

        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

[/vba]