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

Вход

Регистрация

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

 

= Мир MS Excel/скрыть определенный цвет - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » скрыть определенный цвет (Иное)
скрыть определенный цвет
oks26 Дата: Пятница, 15.11.2013, 16:36 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 20% ±

Доброе время суток!
Имеется файл Excel c данными где строки окрашенны в разные цвета.
Вопрос: как сделать чтобы строки при закрашивании в определенный цвет скрывались автаматически.
В примере необходимо скрыть коричневые строки.
К сообщению приложен файл: 2816263.xlsx (11.1 Kb)
 
Ответить
СообщениеДоброе время суток!
Имеется файл Excel c данными где строки окрашенны в разные цвета.
Вопрос: как сделать чтобы строки при закрашивании в определенный цвет скрывались автаматически.
В примере необходимо скрыть коричневые строки.
Автор - oks26
Дата добавления - 15.11.2013 в 16:36
SkyPro Дата: Пятница, 15.11.2013, 17:00 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
А закрашиваете вы по какому принципу? Может проще к этому привязываться? А то формулами цвет не определить.

skypro1111@gmail.com
 
Ответить
СообщениеА закрашиваете вы по какому принципу? Может проще к этому привязываться? А то формулами цвет не определить.
Автор - SkyPro
Дата добавления - 15.11.2013 в 17:00
Pelena Дата: Пятница, 15.11.2013, 17:02 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19429
Репутация: 4569 ±
Замечаний: ±

Excel 365 & Mac Excel
Формулами и строки не скрыть "автоматически"

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеФормулами и строки не скрыть "автоматически"
Автор - Pelena
Дата добавления - 15.11.2013 в 17:02
oks26 Дата: Пятница, 15.11.2013, 17:47 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 20% ±

Не к принципу закрашивания неполучается привязаться.
Может макрос можно какой нибудь придумать или незнаю что еще , поэтому и задал вопрос.
А еще проблема в том, когда в ручную скрываешь все хорошо, но когда начинаешь пользоваться фильтром все отображается, что скрыто было.
 
Ответить
СообщениеНе к принципу закрашивания неполучается привязаться.
Может макрос можно какой нибудь придумать или незнаю что еще , поэтому и задал вопрос.
А еще проблема в том, когда в ручную скрываешь все хорошо, но когда начинаешь пользоваться фильтром все отображается, что скрыто было.
Автор - oks26
Дата добавления - 15.11.2013 в 17:47
SkyPro Дата: Пятница, 15.11.2013, 18:02 | Сообщение № 5
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub hid() ' скрыть
Application.ScreenUpdating = False
Dim rCell As Range, hRange As Range
For Each rCell In Range("A1:A" & [a65536].End(xlUp).Row)
     If rCell.Interior.Color = 9420794 Then
         If hRange Is Nothing Then
             Set hRange = rCell
         End If
         Set hRange = Union(rCell, hRange)
     End If
Next
hRange.EntireRow.Hidden = True
Set hRange = Nothing
Application.ScreenUpdating = True
End Sub

Sub vis() 'показать все
Application.ScreenUpdating = False
Rows("1:65536").Hidden = False
Application.ScreenUpdating = True
End Sub
[/vba]

skypro1111@gmail.com
 
Ответить
Сообщение[vba]
Код
Sub hid() ' скрыть
Application.ScreenUpdating = False
Dim rCell As Range, hRange As Range
For Each rCell In Range("A1:A" & [a65536].End(xlUp).Row)
     If rCell.Interior.Color = 9420794 Then
         If hRange Is Nothing Then
             Set hRange = rCell
         End If
         Set hRange = Union(rCell, hRange)
     End If
Next
hRange.EntireRow.Hidden = True
Set hRange = Nothing
Application.ScreenUpdating = True
End Sub

Sub vis() 'показать все
Application.ScreenUpdating = False
Rows("1:65536").Hidden = False
Application.ScreenUpdating = True
End Sub
[/vba]
Автор - SkyPro
Дата добавления - 15.11.2013 в 18:02
SergeyKorotun Дата: Суббота, 16.11.2013, 01:44 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 301
Репутация: 15 ±
Замечаний: 0% ±

Excel 2007
первая ячейка-кандидат на скрытие не попадет ли дважды в hRange?
[vba]
Код
        If hRange Is Nothing Then
             Set hRange = rCell
         End If
         Set hRange = Union(rCell, hRange)
[/vba]
может быть так:
[vba]
Код
        If hRange Is Nothing Then
             Set hRange = rCell
         else
             Set hRange = Union(rCell, hRange)
         End If
[/vba]
 
Ответить
Сообщениепервая ячейка-кандидат на скрытие не попадет ли дважды в hRange?
[vba]
Код
        If hRange Is Nothing Then
             Set hRange = rCell
         End If
         Set hRange = Union(rCell, hRange)
[/vba]
может быть так:
[vba]
Код
        If hRange Is Nothing Then
             Set hRange = rCell
         else
             Set hRange = Union(rCell, hRange)
         End If
[/vba]
Автор - SergeyKorotun
Дата добавления - 16.11.2013 в 01:44
Мир MS Excel » Вопросы и решения » Вопросы по Excel » скрыть определенный цвет (Иное)
  • Страница 1 из 1
  • 1
Поиск:

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