Добрый день! подскажите как сделать что бы автоматически скрывать не нужные столбцы, а оставались лишь те которые нужны, например если в столбце 16, то показывает только где 16 цифр и т д
Добрый день! подскажите как сделать что бы автоматически скрывать не нужные столбцы, а оставались лишь те которые нужны, например если в столбце 16, то показывает только где 16 цифр и т дSwetlana
Не понятно и т д. Что это значит? Автоматически скрывать - это как? Вы приписали 1 в столбце, их стало 16, столбец скрылся, а дальше что? И т д это в каком случае столбец скроется? Когда столбец должен отобразиться, ведь вы в скрытом столбце убрать единичку не сможете? Или нужна какая то кнопка, которая будет скрывать столбцы по определенному критерию, а другая кнопка которая будет отображать все столбцы? Конечно же это можно сделать макросом, самостоятельно столбцы скрываться не могут. Можно еще сделать это руками, выделить через Ctrl ячейки с числами >=16 и через Формат скрыть столбцы. Что вы хотите, мне не понятно и другим, предполагаю, тоже. По этому и нет ответов.
Не понятно и т д. Что это значит? Автоматически скрывать - это как? Вы приписали 1 в столбце, их стало 16, столбец скрылся, а дальше что? И т д это в каком случае столбец скроется? Когда столбец должен отобразиться, ведь вы в скрытом столбце убрать единичку не сможете? Или нужна какая то кнопка, которая будет скрывать столбцы по определенному критерию, а другая кнопка которая будет отображать все столбцы? Конечно же это можно сделать макросом, самостоятельно столбцы скрываться не могут. Можно еще сделать это руками, выделить через Ctrl ячейки с числами >=16 и через Формат скрыть столбцы. Что вы хотите, мне не понятно и другим, предполагаю, тоже. По этому и нет ответов.gling
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]
Может так [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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
