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

Вход

Регистрация

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

 

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

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

Excel 2013
Проблема : нужно кнопки что бы скрывать каждый 4 столбец начиная с 2,3,4,5 и отобразить все. Я написал простым циклом
[vba]
Код
For i = 2 To 272
Columns(i).EntireColumn.Hidden = True
i = i + 3
Next i
[/vba]
он работает только если скрывать не больше 2- х , иначе работает не верно, я так понял что ексель не считает скрытые столбцы. Подскажите как сделать. Спасибо.
К сообщению приложен файл: 4146296.xlsm (35.9 Kb)


Сообщение отредактировал Donald - Среда, 17.01.2018, 17:52
 
Ответить
СообщениеПроблема : нужно кнопки что бы скрывать каждый 4 столбец начиная с 2,3,4,5 и отобразить все. Я написал простым циклом
[vba]
Код
For i = 2 To 272
Columns(i).EntireColumn.Hidden = True
i = i + 3
Next i
[/vba]
он работает только если скрывать не больше 2- х , иначе работает не верно, я так понял что ексель не считает скрытые столбцы. Подскажите как сделать. Спасибо.
Автор - Donald
Дата добавления - 17.01.2018 в 17:39
Pelena Дата: Среда, 17.01.2018, 17:43 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19603
Репутация: 4660 ±
Замечаний: ±

Excel 365 & Mac Excel
Donald, оформите код тегами с помощью кнопки # в режиме правки поста

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеDonald, оформите код тегами с помощью кнопки # в режиме правки поста
Автор - Pelena
Дата добавления - 17.01.2018 в 17:43
Pelena Дата: Среда, 17.01.2018, 18:04 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19603
Репутация: 4660 ±
Замечаний: ±

Excel 365 & Mac Excel
Обычно в таких случаях делают цикл с конца
[vba]
Код
For i = 272 To 2 Step -4
Columns(i).EntireColumn.Hidden = True
Next i
[/vba]
UPD=========
Хотя да, мне тут подсказывают, что прямой цикл тоже сработает, только надо сделать шаг 4
[vba]
Код
For i = 2 To 272 Step 4
Columns(i).EntireColumn.Hidden = True
Next i
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеОбычно в таких случаях делают цикл с конца
[vba]
Код
For i = 272 To 2 Step -4
Columns(i).EntireColumn.Hidden = True
Next i
[/vba]
UPD=========
Хотя да, мне тут подсказывают, что прямой цикл тоже сработает, только надо сделать шаг 4
[vba]
Код
For i = 2 To 272 Step 4
Columns(i).EntireColumn.Hidden = True
Next i
[/vba]
Автор - Pelena
Дата добавления - 17.01.2018 в 18:04
vikttur Дата: Среда, 17.01.2018, 18:39 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

Не обязательно. Можно считать и с "прямым" шагом. Почему код автора у него не сработал, не знаю...
[vba]
Код
    For i = 2 To 272 Step 4
        Columns(i).Hidden = True
    Next i
[/vba]
 
Ответить
СообщениеНе обязательно. Можно считать и с "прямым" шагом. Почему код автора у него не сработал, не знаю...
[vba]
Код
    For i = 2 To 272 Step 4
        Columns(i).Hidden = True
    Next i
[/vba]
Автор - vikttur
Дата добавления - 17.01.2018 в 18:39
Donald Дата: Четверг, 18.01.2018, 09:34 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 20
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем спасибо, заработало.
 
Ответить
СообщениеВсем спасибо, заработало.
Автор - Donald
Дата добавления - 18.01.2018 в 09:34
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрытие столбцов макросом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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