Добрый день, помогите пожалуйста сделать макрос автоскрытие строк, я пользовался макросом с автоскрытием строк по значением в столбце, а как сделать по значению в одной ячейки, к примеру если в ячейке стоит значение 2 то скрыть 1 строку из трех, если значение 1, то скрыть 2 строки, а если значение 3, то все строки отобразить.
Добрый день, помогите пожалуйста сделать макрос автоскрытие строк, я пользовался макросом с автоскрытием строк по значением в столбце, а как сделать по значению в одной ячейки, к примеру если в ячейке стоит значение 2 то скрыть 1 строку из трех, если значение 1, то скрыть 2 строки, а если значение 3, то все строки отобразить.Fokus
Private Sub Worksheet_Change(ByVal Target As Range)
[/vba]это событие листа, следовательно макрос должен быть в модуле листа [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$J$1" Then If Target < 1 Or Target > 3 Then Exit Sub [7:8,14:15,21:22].EntireRow.Hidden = False If Target = 1 Then [7:8,14:15,21:22].EntireRow.Hidden = True If Target = 2 Then [7:7,14:14,21:21].EntireRow.Hidden = True End If End Sub
[/vba]
Fokus, [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
[/vba]это событие листа, следовательно макрос должен быть в модуле листа [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$J$1" Then If Target < 1 Or Target > 3 Then Exit Sub [7:8,14:15,21:22].EntireRow.Hidden = False If Target = 1 Then [7:8,14:15,21:22].EntireRow.Hidden = True If Target = 2 Then [7:7,14:14,21:21].EntireRow.Hidden = True End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
