Скрыть строки при тексте в другой ячейке

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

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

Скрыть строки при тексте в другой ячейке (Макросы/Sub)

untablet

Дата: Вторник, 13.11.2018, 09:19 | Сообщение № 1

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

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

Сообщений: 7

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

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

Excel 2016

Нужно создать макрос для экселя. Задача такая.
Есть ячейка под адресом 7, 3 и в ней существует 2 выбора «ИП» и «ЮЛ».
Если выбрать ИП, то строки с 67 по 82 должны быть скрыты, если ЮЛ, то соответственно ничего не должно быть скрыто.

К сообщению приложен файл: ___.xlsm (90.4 Kb)

Сообщение отредактировал untablet - Вторник, 13.11.2018, 10:54

Ответить

_Boroda_

Дата: Вторник, 13.11.2018, 09:24 | Сообщение № 2

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

- Прочитайте Правила форума
- Исправьте название темы согласно п.2 Правил форума (поконкретнее как-то, типа "Скрыть строки по ДА/НЕТ в другой ячейке"
- Приложите файл с исходными данными в формате Excel размером до 100кб согласно п.3 Правил форума

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

untablet

Дата: Вторник, 13.11.2018, 10:55 | Сообщение № 3

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

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

Сообщений: 7

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

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

Excel 2016

_Boroda_, исправил

Ответить

Manyasha

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

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

Ранг: Старожил

Сообщений: 2198

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

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

Excel 2010, 2016

untablet, здравствуйте, у Вас защита листа стоит.
[vba]

Код

    ActiveSheet.Unprotect
    If Target.Value = "ИП" Then
        ' Скрытие строк.
        Rows("67:82").Hidden = True
    ' Если в ячейке 'ЮЛ'.
    ElseIf Target.Value = "ЮЛ" Then
        ' Отображение строк.
        Rows("67:82").Hidden = False
    End If
    ActiveSheet.Protect

[/vba] или просто пропишите
[vba]

Код

ActiveSheet.Protect UserInterfaceOnly:=True

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

_Boroda_

Дата: Вторник, 13.11.2018, 11:15 | Сообщение № 5

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C7")) Is Nothing Then
        Me.Unprotect
        If Range("C7") = "ИП" Then
            Rows("67:82").Hidden = True
        Else
            Rows("67:82").Hidden = False
        End If
        Me.Protect
    End If
End Sub

[/vba]