Скрытие столбцов по условию

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

Скрытие столбцов по условию (Формулы/Formulas)

Смольный

Дата: Вторник, 28.09.2021, 10:44 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 188

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

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

Добрый день всем, можно ли такое реализовать в эксель? Если в ячейке А1 стоит цифра 1 то столбец С будет скрыт, если цифра 3 то столбец С и D, если 3 то C,D,E скрытие нужно только от 1 до 3 столбцов, после скрытия столбца/столбцов, содержащиеся в них данные и формулы не должны работать. Нумерация столбцов будет статичной.

Ответить

Serge_007

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

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Здравствуйте

Средствами Excel такое не сделать, но можно написать макрос VBA

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Смольный

Дата: Вторник, 28.09.2021, 11:07 | Сообщение № 3

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

Ранг: Форумчанин

Сообщений: 188

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

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

Serge_007, это платно?

Ответить

китин

Дата: Вторник, 28.09.2021, 11:20 | Сообщение № 4

Группа: Модераторы

Ранг: Экселист

Сообщений: 7034

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

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

Excel 2007;2010;2016

Смольный, в этом разделе все бесплатно. но при условии соблюдения Правил форума

- Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 500 кб

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Смольный

Дата: Вторник, 28.09.2021, 16:19 | Сообщение № 5

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

Ранг: Форумчанин

Сообщений: 188

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

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

китин, сделал, надеюсь понятно написал.

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

Ответить

Nic70y

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

Группа: Друзья

Ранг: Экселист

Сообщений: 9122

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

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

Excel 2010

Смольный, я так понимаю, что цветом вы выделили для примера, а нужно скрывать числа.
вводим в A1,
в модуль листа
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a1")) Is Nothing Then
        Application.ScreenUpdating = False
        u = Target.Value
        For a = 2 To Sheets.Count
            Sheets(a).Columns("ag:ai").EntireColumn.Hidden = False
            If u = 1 Then Sheets(a).Columns("ai").EntireColumn.Hidden = True
            If u = 2 Then Sheets(a).Columns("ah:ai").EntireColumn.Hidden = True
            If u = 3 Then Sheets(a).Columns("ag:ai").EntireColumn.Hidden = True
        Next
        Application.ScreenUpdating = True
    End If
End Sub

[/vba]формулы:

Код

=СУММ(E5:ИНДЕКС(E5:AI5;31-Лист1!$A$1))

Код

=СЧЁТ(E5:ИНДЕКС(E5:AI5;31-Лист1!$A$1))

вдруг правильно