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

Вход

Регистрация

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

 

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

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

Форумчане, всем привет!

Подскажите, как сделать так чтобы по условию из строки (либо 0 / либо 1) столбец был скрытый? Написал на 1 столбец, но прописывать 20 if на 20 столбцов наверное неправильно.
[vba]
Код


Sub скрыть()

If Range("a2") = 0 Then
    Columns("A:A").EntireColumn.Hidden = True
End If
End Sub
[/vba]

Извиняюсь, не могу приложить пример с рабочего компьютера :'(
 
Ответить
СообщениеФорумчане, всем привет!

Подскажите, как сделать так чтобы по условию из строки (либо 0 / либо 1) столбец был скрытый? Написал на 1 столбец, но прописывать 20 if на 20 столбцов наверное неправильно.
[vba]
Код


Sub скрыть()

If Range("a2") = 0 Then
    Columns("A:A").EntireColumn.Hidden = True
End If
End Sub
[/vba]

Извиняюсь, не могу приложить пример с рабочего компьютера :'(
Автор - AntonKa1013
Дата добавления - 28.08.2024 в 13:00
bigor Дата: Среда, 28.08.2024, 13:55 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1284
Репутация: 246 ±
Замечаний: 0% ±

нет
AntonKa1013, приделайте цикл, если знаете сколько у вас значений в строке, то как то так
[vba]
Код
Sub скрыть()
n=количеству обрабатываемых столбцов
for i=1 to n
If cells(2,i) = 0 Then
    Columns(i).EntireColumn.Hidden = True
End If
next
End Sub
[/vba]


Сообщение отредактировал bigor - Среда, 28.08.2024, 13:56
 
Ответить
СообщениеAntonKa1013, приделайте цикл, если знаете сколько у вас значений в строке, то как то так
[vba]
Код
Sub скрыть()
n=количеству обрабатываемых столбцов
for i=1 to n
If cells(2,i) = 0 Then
    Columns(i).EntireColumn.Hidden = True
End If
next
End Sub
[/vba]
Автор - bigor
Дата добавления - 28.08.2024 в 13:55
Hugo Дата: Среда, 28.08.2024, 13:57 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3703
Репутация: 792 ±
Замечаний: 0% ±

365
Можно пройтись циклом по строке, работать с Columns(переменнаяцикла.column)

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеМожно пройтись циклом по строке, работать с Columns(переменнаяцикла.column)
Автор - Hugo
Дата добавления - 28.08.2024 в 13:57
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрывать столбцы по условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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