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

Вход

Регистрация

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

 

= Мир MS Excel/скрытие ненужных столбцов и строк на листе - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » скрытие ненужных столбцов и строк на листе (Макросы/Sub)
скрытие ненужных столбцов и строк на листе
Catand76 Дата: Среда, 30.05.2018, 05:51 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
[vba]
Код
Sub Hide_215()
Dim cell As Range
Application.ScreenUpdating = False 'отключаем обновление экрана для ускорения
Columns.Hidden = False 'отменяем все скрытия строк и столбцов
Rows.Hidden = False
For Each cell In ActiveSheet.UsedRange.Rows(1).Cells 'проходим по всем ячейкам первой строки
If cell.Value = "2" Then cell.EntireColumn.Hidden = True 'если в ячейке 2 - скрываем столбец
Next
For Each cell In ActiveSheet.UsedRange.Columns(55).Cells 'проходим по всем ячейкам 55-го столбца
If cell.Value = "1" Then cell.EntireRow.Hidden = True 'если в ячейке "1" - скрываем строку
Next
Application.ScreenUpdating = True
End Sub
[/vba]


Век живи - век учись

Сообщение отредактировал Catand76 - Среда, 30.05.2018, 06:06
 
Ответить
Сообщение[vba]
Код
Sub Hide_215()
Dim cell As Range
Application.ScreenUpdating = False 'отключаем обновление экрана для ускорения
Columns.Hidden = False 'отменяем все скрытия строк и столбцов
Rows.Hidden = False
For Each cell In ActiveSheet.UsedRange.Rows(1).Cells 'проходим по всем ячейкам первой строки
If cell.Value = "2" Then cell.EntireColumn.Hidden = True 'если в ячейке 2 - скрываем столбец
Next
For Each cell In ActiveSheet.UsedRange.Columns(55).Cells 'проходим по всем ячейкам 55-го столбца
If cell.Value = "1" Then cell.EntireRow.Hidden = True 'если в ячейке "1" - скрываем строку
Next
Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Catand76
Дата добавления - 30.05.2018 в 05:51
Pelena Дата: Среда, 30.05.2018, 06:54 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 13110
Репутация: 2889 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Catand76, оформите код тегами с помощью кнопки # в режиме правки поста.
И да, вопрос-то в чём?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеCatand76, оформите код тегами с помощью кнопки # в режиме правки поста.
И да, вопрос-то в чём?

Автор - Pelena
Дата добавления - 30.05.2018 в 06:54
Catand76 Дата: Четверг, 31.05.2018, 12:33 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, Вопрос был... Но пока его просматривали я сам нашел ответ и исправил ошибку.... В последствии отредактировал код, т.к. не смог удалить тему.... Вдруг кому понадобится (лично мне очень помогает при формировании документов из готовых форм).
P.S. почему-то пропала кнопка "правка", не смог добавить #....


Век живи - век учись

Сообщение отредактировал Catand76 - Четверг, 31.05.2018, 12:39
 
Ответить
СообщениеPelena, Вопрос был... Но пока его просматривали я сам нашел ответ и исправил ошибку.... В последствии отредактировал код, т.к. не смог удалить тему.... Вдруг кому понадобится (лично мне очень помогает при формировании документов из готовых форм).
P.S. почему-то пропала кнопка "правка", не смог добавить #....

Автор - Catand76
Дата добавления - 31.05.2018 в 12:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » скрытие ненужных столбцов и строк на листе (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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