Добрый день всем. В графике в столбце А есть дни посещений, нужно скрыть строки, в которых нет дней посещений, но с возможностью их опять возвращать. Бывают ситуации что в этом месяце услуга не нужна, удаляем из ячейки А7 текст и строка исчезает, если в следующем месяце нужна эта или другая скрытая услуга то как то нужно вернуть скрытые строки, добавить в нужную услугу дни посещения, остальные услуги без дней посещений скрыть.
Добрый день всем. В графике в столбце А есть дни посещений, нужно скрыть строки, в которых нет дней посещений, но с возможностью их опять возвращать. Бывают ситуации что в этом месяце услуга не нужна, удаляем из ячейки А7 текст и строка исчезает, если в следующем месяце нужна эта или другая скрытая услуга то как то нужно вернуть скрытые строки, добавить в нужную услугу дни посещения, остальные услуги без дней посещений скрыть.Смольный
можно использовать фильтр. в ячейку А4 поставил точку, чтоб не была пустой. для отображения всех строк - ставим флажок Выделить все для скрытия - снимаем флажок Пустые
можно использовать фильтр. в ячейку А4 поставил точку, чтоб не была пустой. для отображения всех строк - ставим флажок Выделить все для скрытия - снимаем флажок ПустыеNic70y
Nic70y, оказалось фильтр не много не так работает как хотелось, можно ли как то реализовать чтоб фильтр на пустые ячейки работал в пределах одного столбца? первый с А5 по А9, второй с А11 по А15 от каждой зеленой линии, в зеленых линиях будет информация, удалил ее, нельзя показывать. в низ по столбцу А зеленых линий будет до 20, может и больше.
Nic70y, оказалось фильтр не много не так работает как хотелось, можно ли как то реализовать чтоб фильтр на пустые ячейки работал в пределах одного столбца? первый с А5 по А9, второй с А11 по А15 от каждой зеленой линии, в зеленых линиях будет информация, удалил ее, нельзя показывать. в низ по столбцу А зеленых линий будет до 20, может и больше.Смольный
Sub u_700() Application.ScreenUpdating = False u = Cells(Rows.Count, "a").End(xlUp).Row For Each v In Range("a1:a" & u) If v.Value = "" Then v.EntireRow.Hidden = True Next Application.ScreenUpdating = True End Sub Sub u_701() Application.ScreenUpdating = False u = Cells(Rows.Count, "a").End(xlUp).Row Range("a1:a" & u).EntireRow.Hidden = False Application.ScreenUpdating = True End Sub
[/vba]
[vba]
Код
Sub u_700() Application.ScreenUpdating = False u = Cells(Rows.Count, "a").End(xlUp).Row For Each v In Range("a1:a" & u) If v.Value = "" Then v.EntireRow.Hidden = True Next Application.ScreenUpdating = True End Sub Sub u_701() Application.ScreenUpdating = False u = Cells(Rows.Count, "a").End(xlUp).Row Range("a1:a" & u).EntireRow.Hidden = False Application.ScreenUpdating = True End Sub
Nic70y, в том то и дело что это может фильтр, мне нужно чтоб фильтр работал в одном столбце, но каждый фильтр для своих строк, от зеленой строки до другой один фильтр на скрытие, от следующей зеленой до другой свой фильтр
Nic70y, в том то и дело что это может фильтр, мне нужно чтоб фильтр работал в одном столбце, но каждый фильтр для своих строк, от зеленой строки до другой один фильтр на скрытие, от следующей зеленой до другой свой фильтрСмольный
Двойной клик левой кнопкой мыши по зеленой ячейке: столбца A скроет столбца B отобразит
в модуль книги: [vba]
Код
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) a = Target.Column b = Target.Interior.Color c = Target.Row u = Cells(Rows.Count, "a").End(xlUp).Row If a < 3 And b = 5287936 Then For v = c + 1 To u w = Range("a" & v).Interior.Color If w = 5287936 Then: Exit For x = Range("a" & v).Value If a = 1 And x = "" Then Rows(v).EntireRow.Hidden = True If a = 2 Then Rows(v).EntireRow.Hidden = False Next Cancel = True End If End Sub
[/vba]
Двойной клик левой кнопкой мыши по зеленой ячейке: столбца A скроет столбца B отобразит
в модуль книги: [vba]
Код
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) a = Target.Column b = Target.Interior.Color c = Target.Row u = Cells(Rows.Count, "a").End(xlUp).Row If a < 3 And b = 5287936 Then For v = c + 1 To u w = Range("a" & v).Interior.Color If w = 5287936 Then: Exit For x = Range("a" & v).Value If a = 1 And x = "" Then Rows(v).EntireRow.Hidden = True If a = 2 Then Rows(v).EntireRow.Hidden = False Next Cancel = True End If End Sub
Nic70y, Добрый день, снова нужна Ваша помощь по скрытию строк, только в другом файле. В этом файле столбец А остается также, а вот открытие столбец F, нужно скрытие строк от ячейки Е9 и вниз, в которых будет пусто.
Nic70y, Добрый день, снова нужна Ваша помощь по скрытию строк, только в другом файле. В этом файле столбец А остается также, а вот открытие столбец F, нужно скрытие строк от ячейки Е9 и вниз, в которых будет пусто.Смольный
Nic70y, Пардон, файл переделал, и так начнем, в столбце Е указываются значения какие услуги выбрал подопечный, услуги у которых в столбце Е пусто, нужно скрыть, так как на следующий месяц эта услуга может вернутся. на скрытие и открытия строк можно назначить ячейки A9 и G9 соответственно. Надеюсь что у меня получилось правильно объяснить.
Nic70y, Пардон, файл переделал, и так начнем, в столбце Е указываются значения какие услуги выбрал подопечный, услуги у которых в столбце Е пусто, нужно скрыть, так как на следующий месяц эта услуга может вернутся. на скрытие и открытия строк можно назначить ячейки A9 и G9 соответственно. Надеюсь что у меня получилось правильно объяснить.Смольный
Сообщение отредактировал Смольный - Вторник, 01.02.2022, 15:58