У меня есть файл, в нём очень много листов, для удобства работы хочу скрывать ненужные листы и оставлять видимыми только те, которые в имени содержат определённые символы.
Для этого я нашёл макрос:
у меня много листов, в именах которых есть слово "отопление", надо скрыть все остальные
А так же есть листы в которых название 4 (1).....18 (1) и лишние (лист 2 (3) и т.д.) - из них надо скрыть все, кроме тех, в которых есть "(4)"
Я новичок, прошу помочь с синтаксисом написание данной функции.
Для этого я нашёл макрос:
| Код |
|---|
Public Sub HideAllButCurrent() Dim i For i = 1 To Sheets.Count If Sheets(i).Name <> " отопление" _ Then Sheets(i).Visible = xlSheetHidden ' ??? xlSheetVeryHidden Next i End Sub |
у меня много листов, в именах которых есть слово "отопление", надо скрыть все остальные
А так же есть листы в которых название 4 (1).....18 (1) и лишние (лист 2 (3) и т.д.) - из них надо скрыть все, кроме тех, в которых есть "(4)"
Я новичок, прошу помочь с синтаксисом написание данной функции.
Изменено: - 23.11.2015 18:48:48
