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

Вход

Регистрация

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

 

= Мир MS Excel/Скрыть столбцы при значении в ячейке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрыть столбцы при значении в ячейке (Макросы/Sub)
Скрыть столбцы при значении в ячейке
shankspank3 Дата: Среда, 20.04.2022, 09:34 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте. Суть проблемы такая существует таблица с множеством изделий. нужно создать макрос если во всех ячейках в столбца нет значения он скрывался, а если хотя в одной из ячеек есть значения он оставался.
К сообщению приложен файл: ___-.xlsm(47.2 Kb)
 
Ответить
СообщениеЗдравствуйте. Суть проблемы такая существует таблица с множеством изделий. нужно создать макрос если во всех ячейках в столбца нет значения он скрывался, а если хотя в одной из ячеек есть значения он оставался.

Автор - shankspank3
Дата добавления - 20.04.2022 в 09:34
shankspank3 Дата: Пятница, 22.04.2022, 09:21 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

 
Ответить
Сообщение

Автор - shankspank3
Дата добавления - 22.04.2022 в 09:21
Апострофф Дата: Пятница, 22.04.2022, 09:51 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 408
Репутация: 116 ±
Замечаний: 0% ±

Excel 1997
shankspank3, примерно так можно
[vba]
Код
Sub Макрос1()
For C = 4 To 57
  Columns(C).Hidden = Cells(1, C).End(xlDown).Row = Rows.Count
Next
End Sub
[/vba]
 
Ответить
Сообщениеshankspank3, примерно так можно
[vba]
Код
Sub Макрос1()
For C = 4 To 57
  Columns(C).Hidden = Cells(1, C).End(xlDown).Row = Rows.Count
Next
End Sub
[/vba]

Автор - Апострофф
Дата добавления - 22.04.2022 в 09:51
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрыть столбцы при значении в ячейке (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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