Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Технологии > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 11.10.2018, 15:00   #1
Bosikan
Новичок
 
Регистрация: 03.12.2016
Сообщений: 4
Репутация: 10
По умолчанию Скрытие определенных строк по условию

Добрый день форумчане! Просьба помочь с написанием несложного макроса. Суть в чём: есть диапазон скрытия строк (10:33), нужно чтобы при изменении в ячейке "C4" значений от A до D (сделал выпадающий список) скрывались строки по следующему принципу: Если стоит значение "A" - то скрыть все строки не относящиеся к этому диапазону (16:33), для "B" - скрыть строки 10:15 и 22:33, для "С" - 10:21 и 28:33, для D - 10:27.
Проще говоря для каждого значения ячейки "C4" должны быть ОТКРЫТЫ только соответствующие ему строки.

Для наглядности в файле раскрасил диапазоны разными цветами. Итого при значении "A" -должен остаться только зеленый диапазон, для значения "B" только желтый и так далее по списку. (PS скрытие строк не по условию цвета а по значению в ячейке "C4"
Вложения
Тип файла: xlsx Скрытие строк макросом.xlsx (10.6 Кб, 1 просмотров)
Bosikan вне форума   Ответить с цитированием
Старый 11.10.2018, 15:42   #2
Aleksandr H.
2 the Nation Glory
Профессионал
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Адрес: Wild West Ukraine
Сообщений: 2,432
Репутация: 885

skype: aleksandr.gryb
По умолчанию

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [c4]) Is Nothing And Target.Count = 1 Then
        Dim a As Range: Set a = Rows("10:15")
        Dim b As Range: Set b = Rows("16:21")
        Dim c As Range: Set c = Rows("22:27")
        Dim d As Range: Set d = Rows("28:33")
        Select Case (Target)
            Case "A": a.EntireRow.Hidden = False: b.EntireRow.Hidden = True: c.EntireRow.Hidden = True: d.EntireRow.Hidden = True
            Case "B": a.EntireRow.Hidden = True: b.EntireRow.Hidden = False: c.EntireRow.Hidden = True: d.EntireRow.Hidden = True
            Case "C": a.EntireRow.Hidden = True: b.EntireRow.Hidden = True: c.EntireRow.Hidden = False: d.EntireRow.Hidden = True
            Case "D": a.EntireRow.Hidden = True: b.EntireRow.Hidden = True: c.EntireRow.Hidden = True: d.EntireRow.Hidden = False
            
        End Select
    End If
End Sub

__________________
Mailto: media.project@ukr.net
Aleksandr H. вне форума   Ответить с цитированием
Старый 11.10.2018, 16:33   #3
Bosikan
Новичок
 
Регистрация: 03.12.2016
Сообщений: 4
Репутация: 10
По умолчанию

Спасибо огромное!!! Очень выручили!!!

Последний раз редактировалось Bosikan; 11.10.2018 в 16:39.
Bosikan вне форума   Ответить с цитированием
Старый 11.10.2018, 16:48   #4
Bosikan
Новичок
 
Регистрация: 03.12.2016
Сообщений: 4
Репутация: 10
По умолчанию

При изменении любой ячейки, все скрытые строки почему-то открываются. Как сделать чтобы при изменении других ячеек эти строки не открывались?
Bosikan вне форума   Ответить с цитированием
Старый 11.10.2018, 17:08   #5
Bosikan
Новичок
 
Регистрация: 03.12.2016
Сообщений: 4
Репутация: 10
По умолчанию

Разобрался, еще раз спасибо!
Bosikan вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
скрытие строк по условию govorun1 Microsoft Office Excel 5 24.05.2014 21:50
Скрытие и отображение элементов ActiveX по условию Bozhkov Microsoft Office Excel 20 06.05.2012 16:01
Автоматическое скрытие/отображение столбцов по условию staniiislav Microsoft Office Excel 2 27.07.2011 16:28
Скрытие строк по условию MaxxVer Microsoft Office Excel 11 09.04.2010 05:55
Скрытие столбцов по условию snake980 Microsoft Office Excel 6 26.02.2008 17:52


09:44.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru