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

Вход

Регистрация

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

 

= Мир MS Excel/Скрыть строки без посещений с возможностью отображения - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Скрыть строки без посещений с возможностью отображения (Формулы/Formulas)
Скрыть строки без посещений с возможностью отображения
Смольный Дата: Четверг, 30.09.2021, 13:18 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 20% ±

Добрый день всем. В графике в столбце А есть дни посещений, нужно скрыть строки, в которых нет дней посещений, но с возможностью их опять возвращать. Бывают ситуации что в этом месяце услуга не нужна, удаляем из ячейки А7 текст и строка исчезает, если в следующем месяце нужна эта или другая скрытая услуга то как то нужно вернуть скрытые строки, добавить в нужную услугу дни посещения, остальные услуги без дней посещений скрыть.
К сообщению приложен файл: 0259820.xlsx(15.7 Kb)


Сообщение отредактировал Serge_007 - Четверг, 30.09.2021, 13:59
 
Ответить
СообщениеДобрый день всем. В графике в столбце А есть дни посещений, нужно скрыть строки, в которых нет дней посещений, но с возможностью их опять возвращать. Бывают ситуации что в этом месяце услуга не нужна, удаляем из ячейки А7 текст и строка исчезает, если в следующем месяце нужна эта или другая скрытая услуга то как то нужно вернуть скрытые строки, добавить в нужную услугу дни посещения, остальные услуги без дней посещений скрыть.

Автор - Смольный
Дата добавления - 30.09.2021 в 13:18
Nic70y Дата: Четверг, 30.09.2021, 14:16 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7113
Репутация: 1641 ±
Замечаний: 0% ±

Excel 2010
можно использовать фильтр.
в ячейку А4 поставил точку, чтоб не была пустой.
для отображения всех строк - ставим флажок Выделить все
для скрытия - снимаем флажок Пустые
К сообщению приложен файл: 19.xlsx(15.8 Kb)


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
Сообщениеможно использовать фильтр.
в ячейку А4 поставил точку, чтоб не была пустой.
для отображения всех строк - ставим флажок Выделить все
для скрытия - снимаем флажок Пустые

Автор - Nic70y
Дата добавления - 30.09.2021 в 14:16
Смольный Дата: Четверг, 30.09.2021, 14:53 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 20% ±

Nic70y, оказывается все просто, спасибо
 
Ответить
СообщениеNic70y, оказывается все просто, спасибо

Автор - Смольный
Дата добавления - 30.09.2021 в 14:53
Смольный Дата: Пятница, 01.10.2021, 13:54 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 20% ±

Nic70y, оказалось фильтр не много не так работает как хотелось, можно ли как то реализовать чтоб фильтр на пустые ячейки работал в пределах одного столбца? первый с А5 по А9, второй с А11 по А15 от каждой зеленой линии, в зеленых линиях будет информация, удалил ее, нельзя показывать. в низ по столбцу А зеленых линий будет до 20, может и больше.
К сообщению приложен файл: _1.xlsm(293.1 Kb)


Сообщение отредактировал Смольный - Пятница, 01.10.2021, 13:55
 
Ответить
СообщениеNic70y, оказалось фильтр не много не так работает как хотелось, можно ли как то реализовать чтоб фильтр на пустые ячейки работал в пределах одного столбца? первый с А5 по А9, второй с А11 по А15 от каждой зеленой линии, в зеленых линиях будет информация, удалил ее, нельзя показывать. в низ по столбцу А зеленых линий будет до 20, может и больше.

Автор - Смольный
Дата добавления - 01.10.2021 в 13:54
Nic70y Дата: Пятница, 01.10.2021, 14:51 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 7113
Репутация: 1641 ±
Замечаний: 0% ±

Excel 2010
[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
[/vba]
К сообщению приложен файл: 6902494.xlsm(300.8 Kb)


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
Сообщение[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
[/vba]

Автор - Nic70y
Дата добавления - 01.10.2021 в 14:51
Смольный Дата: Пятница, 01.10.2021, 16:05 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 20% ±

Nic70y, я извиняюсь, но не понятно мне как это действует.
 
Ответить
СообщениеNic70y, я извиняюсь, но не понятно мне как это действует.

Автор - Смольный
Дата добавления - 01.10.2021 в 16:05
Nic70y Дата: Пятница, 01.10.2021, 16:09 | Сообщение № 7
Группа: Друзья
Ранг: Экселист
Сообщений: 7113
Репутация: 1641 ±
Замечаний: 0% ±

Excel 2010
нажимаете скрыть - строки, где в столбце А пусто скрываются
нажимаете показать - отображаются все строки
что конкретно не понятно?


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
Сообщениенажимаете скрыть - строки, где в столбце А пусто скрываются
нажимаете показать - отображаются все строки
что конкретно не понятно?

Автор - Nic70y
Дата добавления - 01.10.2021 в 16:09
Смольный Дата: Пятница, 01.10.2021, 16:43 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 20% ±

Nic70y, в том то и дело что это может фильтр, мне нужно чтоб фильтр работал в одном столбце, но каждый фильтр для своих строк, от зеленой строки до другой один фильтр на скрытие, от следующей зеленой до другой свой фильтр
 
Ответить
СообщениеNic70y, в том то и дело что это может фильтр, мне нужно чтоб фильтр работал в одном столбце, но каждый фильтр для своих строк, от зеленой строки до другой один фильтр на скрытие, от следующей зеленой до другой свой фильтр

Автор - Смольный
Дата добавления - 01.10.2021 в 16:43
Смольный Дата: Пятница, 01.10.2021, 16:46 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 20% ±

если не понятно, могу нарисовать на самом графике
 
Ответить
Сообщениеесли не понятно, могу нарисовать на самом графике

Автор - Смольный
Дата добавления - 01.10.2021 в 16:46
Nic70y Дата: Пятница, 01.10.2021, 17:22 | Сообщение № 10
Группа: Друзья
Ранг: Экселист
Сообщений: 7113
Репутация: 1641 ±
Замечаний: 0% ±

Excel 2010
Смольный, все понятно, но я уже не за компом


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
СообщениеСмольный, все понятно, но я уже не за компом

Автор - Nic70y
Дата добавления - 01.10.2021 в 17:22
Смольный Дата: Пятница, 01.10.2021, 20:25 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 20% ±

Nic70y, все норм, я подожду
 
Ответить
СообщениеNic70y, все норм, я подожду

Автор - Смольный
Дата добавления - 01.10.2021 в 20:25
Nic70y Дата: Суббота, 02.10.2021, 08:32 | Сообщение № 12
Группа: Друзья
Ранг: Экселист
Сообщений: 7113
Репутация: 1641 ±
Замечаний: 0% ±

Excel 2010
Двойной клик левой кнопкой мыши по зеленой ячейке:
столбца 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]
К сообщению приложен файл: 84.xlsm(299.7 Kb)


ЮMoney(Яндекс Деньги) 41001841029809

Сообщение отредактировал Nic70y - Суббота, 02.10.2021, 08:45
 
Ответить
СообщениеДвойной клик левой кнопкой мыши по зеленой ячейке:
столбца 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]

Автор - Nic70y
Дата добавления - 02.10.2021 в 08:32
Смольный Дата: Суббота, 02.10.2021, 12:34 | Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 20% ±

Nic70y, так в том и дело что нужно в столбце А именно в нем работало по строкам
 
Ответить
СообщениеNic70y, так в том и дело что нужно в столбце А именно в нем работало по строкам

Автор - Смольный
Дата добавления - 02.10.2021 в 12:34
Nic70y Дата: Суббота, 02.10.2021, 13:17 | Сообщение № 14
Группа: Друзья
Ранг: Экселист
Сообщений: 7113
Репутация: 1641 ±
Замечаний: 0% ±

Excel 2010
Цитата Смольный, 02.10.2021 в 12:34, в сообщении № 13 ()
нужно в столбце А
так оно и есть


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
Сообщение
Цитата Смольный, 02.10.2021 в 12:34, в сообщении № 13 ()
нужно в столбце А
так оно и есть

Автор - Nic70y
Дата добавления - 02.10.2021 в 13:17
Смольный Дата: Воскресенье, 03.10.2021, 06:09 | Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 20% ±

Nic70y, пардон, работает как надо, благодарю. Подскажите как новые зеленые строки добавлять чтоб они так же работали?


Сообщение отредактировал Смольный - Воскресенье, 03.10.2021, 06:18
 
Ответить
СообщениеNic70y, пардон, работает как надо, благодарю. Подскажите как новые зеленые строки добавлять чтоб они так же работали?

Автор - Смольный
Дата добавления - 03.10.2021 в 06:09
Nic70y Дата: Понедельник, 04.10.2021, 08:52 | Сообщение № 16
Группа: Друзья
Ранг: Экселист
Сообщений: 7113
Репутация: 1641 ±
Замечаний: 0% ±

Excel 2010
Смольный, добавляйте смело сколько нужно.
макрос работает до нижней заполненной ячейки A


ЮMoney(Яндекс Деньги) 41001841029809
 
Ответить
СообщениеСмольный, добавляйте смело сколько нужно.
макрос работает до нижней заполненной ячейки A

Автор - Nic70y
Дата добавления - 04.10.2021 в 08:52
Смольный Дата: Понедельник, 04.10.2021, 09:47 | Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 20% ±

Nic70y, Супер, спасибо.
 
Ответить
СообщениеNic70y, Супер, спасибо.

Автор - Смольный
Дата добавления - 04.10.2021 в 09:47
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Скрыть строки без посещений с возможностью отображения (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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