Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Автоматически скрывать строки по условию - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматически скрывать строки по условию (Макросы/Sub)
Автоматически скрывать строки по условию
kirill59 Дата: Суббота, 24.11.2018, 23:26 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Подскажите, как сделать, чтобы скрывались автоматически строки в диапазоне строк, например, с 10 по 50, при условии, что в предыдущей строке в ячейке столбца B пусто. То есть при вводе текста в ячейку B9 открывается строка 10, при вводе текста в ячейку В10 открывается строка 11 и так далее.

Заранее спасибо
 
Ответить
СообщениеПодскажите, как сделать, чтобы скрывались автоматически строки в диапазоне строк, например, с 10 по 50, при условии, что в предыдущей строке в ячейке столбца B пусто. То есть при вводе текста в ячейку B9 открывается строка 10, при вводе текста в ячейку В10 открывается строка 11 и так далее.

Заранее спасибо

Автор - kirill59
Дата добавления - 24.11.2018 в 23:26
Апострофф Дата: Воскресенье, 25.11.2018, 12:47 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 177
Репутация: 65 ±
Замечаний: 0% ±

Excel 2003
kirill59, попробуйте -
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Target.Column <> 2 Then Exit Sub
If Target.Row < 9 Then Exit Sub
Rows(Target.Row + 1).Hidden = Target = ""
End Sub
[/vba]
 
Ответить
Сообщениеkirill59, попробуйте -
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Target.Column <> 2 Then Exit Sub
If Target.Row < 9 Then Exit Sub
Rows(Target.Row + 1).Hidden = Target = ""
End Sub
[/vba]

Автор - Апострофф
Дата добавления - 25.11.2018 в 12:47
krosav4ig Дата: Понедельник, 26.11.2018, 02:07 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1729
Репутация: 728 ±
Замечаний: 0% ±

Excel 2007,2010,2013
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    With Me.Rows("10:50").Columns("B")
        If Intersect(Target, .Cells) Is Nothing Then Exit Sub
        .EntireRow.Hidden = 0
        Intersect(.Cells, .SpecialCells(4).Offset(1)).EntireRow.Hidden = 1
    End With
End Sub
[/vba]


(_)Õvõ(_)

Сообщение отредактировал krosav4ig - Понедельник, 26.11.2018, 02:08
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    With Me.Rows("10:50").Columns("B")
        If Intersect(Target, .Cells) Is Nothing Then Exit Sub
        .EntireRow.Hidden = 0
        Intersect(.Cells, .SpecialCells(4).Offset(1)).EntireRow.Hidden = 1
    End With
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 26.11.2018 в 02:07
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автоматически скрывать строки по условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!