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

Вход

Регистрация

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

 

= Мир MS Excel/автоматическое скрытие столбцов по условию - Мир MS Excel

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

Excel 2019
Добрый день! подскажите как сделать что бы автоматически скрывать не нужные столбцы, а оставались лишь те которые нужны, например если в столбце 16, то показывает только где 16 цифр и т д
К сообщению приложен файл: 4976551.xlsx(10.5 Kb)
 
Ответить
СообщениеДобрый день! подскажите как сделать что бы автоматически скрывать не нужные столбцы, а оставались лишь те которые нужны, например если в столбце 16, то показывает только где 16 цифр и т д

Автор - Swetlana
Дата добавления - 03.05.2020 в 10:03
gling Дата: Воскресенье, 03.05.2020, 20:18 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2194
Репутация: 545 ±
Замечаний: 0% ±

2010
Здравствуйте.
где 16 цифр и т д

Не понятно и т д. Что это значит? Автоматически скрывать - это как? Вы приписали 1 в столбце, их стало 16, столбец скрылся, а дальше что? И т д это в каком случае столбец скроется? Когда столбец должен отобразиться, ведь вы в скрытом столбце убрать единичку не сможете? Или нужна какая то кнопка, которая будет скрывать столбцы по определенному критерию, а другая кнопка которая будет отображать все столбцы? Конечно же это можно сделать макросом, самостоятельно столбцы скрываться не могут. Можно еще сделать это руками, выделить через Ctrl ячейки с числами >=16 и через Формат скрыть столбцы. Что вы хотите, мне не понятно и другим, предполагаю, тоже. По этому и нет ответов.


ЯД-41001506838083
 
Ответить
СообщениеЗдравствуйте.
где 16 цифр и т д

Не понятно и т д. Что это значит? Автоматически скрывать - это как? Вы приписали 1 в столбце, их стало 16, столбец скрылся, а дальше что? И т д это в каком случае столбец скроется? Когда столбец должен отобразиться, ведь вы в скрытом столбце убрать единичку не сможете? Или нужна какая то кнопка, которая будет скрывать столбцы по определенному критерию, а другая кнопка которая будет отображать все столбцы? Конечно же это можно сделать макросом, самостоятельно столбцы скрываться не могут. Можно еще сделать это руками, выделить через Ctrl ячейки с числами >=16 и через Формат скрыть столбцы. Что вы хотите, мне не понятно и другим, предполагаю, тоже. По этому и нет ответов.

Автор - gling
Дата добавления - 03.05.2020 в 20:18
krosav4ig Дата: Воскресенье, 03.05.2020, 20:53 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 2323
Репутация: 976 ±
Замечаний: 0% ±

Excel 2007,2010,2013


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
 
Ответить
Сообщениекросс https://www.planetaexcel.ru/forum....=128233

Автор - krosav4ig
Дата добавления - 03.05.2020 в 20:53
Dmitriy_37 Дата: Воскресенье, 03.05.2020, 21:35 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 25
Репутация: 4 ±
Замечаний: 0% ±

Excel 2010
Может так
[vba]
Код
Sub ColumnsHidden()
For x = 1 To Cells(23, Columns.Count).End(xlToLeft).Column
If Cells(23, x) <> 16 Then Cells(23, x).EntireColumn.Hidden = True
Next x
End Sub
[/vba]


Сообщение отредактировал Dmitriy_37 - Воскресенье, 03.05.2020, 21:36
 
Ответить
СообщениеМожет так
[vba]
Код
Sub ColumnsHidden()
For x = 1 To Cells(23, Columns.Count).End(xlToLeft).Column
If Cells(23, x) <> 16 Then Cells(23, x).EntireColumn.Hidden = True
Next x
End Sub
[/vba]

Автор - Dmitriy_37
Дата добавления - 03.05.2020 в 21:35
Мир MS Excel » Вопросы и решения » Вопросы по VBA » автоматическое скрытие столбцов по условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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