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

Вход

Регистрация

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

 

= Мир MS Excel/Скрытие всех листов кроме активного - Мир MS Excel

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

Excel 2k3;2k7;2k10;2k13;2k19
Здравствуйте

Извините за беспокойство
имею макросы для отображения всех скрытых листов,
он работает но видает ошибку, так как нельзя скрыть все листы книги
[vba]
Код

Sub Скрыть_все_листи()
n = Sheets.Count
For i = 1 To n
  If Worksheets(i).Visible = True Then
     Worksheets(i).Visible = False
  End If
Next
End Sub
[/vba]

чем его допилить чтобы он скрывал все листы кроме активного
(ато сейчас скрывает все подряд крове последнего видимого листа)

Спасибо


Сообщение отредактировал Shakal07 - Пятница, 02.07.2021, 18:18
 
Ответить
СообщениеЗдравствуйте

Извините за беспокойство
имею макросы для отображения всех скрытых листов,
он работает но видает ошибку, так как нельзя скрыть все листы книги
[vba]
Код

Sub Скрыть_все_листи()
n = Sheets.Count
For i = 1 To n
  If Worksheets(i).Visible = True Then
     Worksheets(i).Visible = False
  End If
Next
End Sub
[/vba]

чем его допилить чтобы он скрывал все листы кроме активного
(ато сейчас скрывает все подряд крове последнего видимого листа)

Спасибо

Автор - Shakal07
Дата добавления - 02.07.2021 в 18:16
Pelena Дата: Пятница, 02.07.2021, 21:21 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17792
Репутация: 3957 ±
Замечаний: ±

Excel 2016 & Mac Excel
Здравствуйте.
Можно так, например
[vba]
Код
Sub Скрыть_все_листи()
n = Sheets.Count
For i = 1 To n
If Worksheets(i).Name<>Activesheet.Name Then
If Worksheets(i).Visible = True Then
    Worksheets(i).Visible = False
End If
End If
Next
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Можно так, например
[vba]
Код
Sub Скрыть_все_листи()
n = Sheets.Count
For i = 1 To n
If Worksheets(i).Name<>Activesheet.Name Then
If Worksheets(i).Visible = True Then
    Worksheets(i).Visible = False
End If
End If
Next
End Sub
[/vba]

Автор - Pelena
Дата добавления - 02.07.2021 в 21:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Скрытие всех листов кроме активного (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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