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

Вход

Регистрация

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

 

= Мир MS Excel/Скрыть строки в Excel, имеющие ячейку "Подъем" и заливку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрыть строки в Excel, имеющие ячейку "Подъем" и заливку (Макросы/Sub)
Скрыть строки в Excel, имеющие ячейку "Подъем" и заливку
alexidok Дата: Пятница, 17.10.2014, 08:13 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
В файле SM_ZAD02 нужно скрыть строки, содержащие ячейку со словом "Подъем" и она должна быть залито цветом.
Строки с не залитыми ячейками скрывать не нужно. Спасибо.
К сообщению приложен файл: SM_ZAD02.xls (41.5 Kb)


Сообщение отредактировал alexidok - Пятница, 17.10.2014, 09:43
 
Ответить
СообщениеВ файле SM_ZAD02 нужно скрыть строки, содержащие ячейку со словом "Подъем" и она должна быть залито цветом.
Строки с не залитыми ячейками скрывать не нужно. Спасибо.
Автор - alexidok
Дата добавления - 17.10.2014 в 08:13
alex1248 Дата: Пятница, 17.10.2014, 12:56 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 384
Репутация: 71 ±
Замечаний: 0% ±

Excel 2007, 2010
alexidok, посмотрите такой вариант. Макрос Sokrytiye.
К сообщению приложен файл: SM_ZAD02-111.xls (47.5 Kb)

skype alex12481632
Qiwi +79276708519
 
Ответить
Сообщениеalexidok, посмотрите такой вариант. Макрос Sokrytiye.
Автор - alex1248
Дата добавления - 17.10.2014 в 12:56
SkyPro Дата: Пятница, 17.10.2014, 14:32 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1206
Репутация: 255 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub hider()
Application.ScreenUpdating = False
Rows("1:65000").Hidden = False
For i = 1 To [l65000].End(xlUp).Row
      If Range("L" & i).Value = "Подъем" Then
          If Range("L" & i).Interior.Color <> xlNone Then
              Range("L" & i).EntireRow.Hidden = True
          End If
      End If
Next
Application.ScreenUpdating = True
End Sub
[/vba]

alex1248, Через AND будет работать медленнее.

skypro1111@gmail.com

Сообщение отредактировал SkyPro - Пятница, 17.10.2014, 14:33
 
Ответить
Сообщение[vba]
Код
Sub hider()
Application.ScreenUpdating = False
Rows("1:65000").Hidden = False
For i = 1 To [l65000].End(xlUp).Row
      If Range("L" & i).Value = "Подъем" Then
          If Range("L" & i).Interior.Color <> xlNone Then
              Range("L" & i).EntireRow.Hidden = True
          End If
      End If
Next
Application.ScreenUpdating = True
End Sub
[/vba]

alex1248, Через AND будет работать медленнее.
Автор - SkyPro
Дата добавления - 17.10.2014 в 14:32
alexidok Дата: Понедельник, 20.10.2014, 14:43 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
alex1248, Спасибо работает .
 
Ответить
Сообщениеalex1248, Спасибо работает .
Автор - alexidok
Дата добавления - 20.10.2014 в 14:43
alexidok Дата: Вторник, 21.10.2014, 10:57 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
alex1248, Некоторые строки длинные, такие как 12-я и часть строки переносится на другую и остается не скрытой.
Как добавить и их для сокрытия. Спасибо.


Сообщение отредактировал alexidok - Среда, 22.10.2014, 06:15
 
Ответить
Сообщениеalex1248, Некоторые строки длинные, такие как 12-я и часть строки переносится на другую и остается не скрытой.
Как добавить и их для сокрытия. Спасибо.
Автор - alexidok
Дата добавления - 21.10.2014 в 10:57
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрыть строки в Excel, имеющие ячейку "Подъем" и заливку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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