В Microsoft Excel Visual Basic для приложений (VBA) предоставляет мощный набор инструментов для автоматизации задач и расширения функциональности. Одним из распространенных требований является скрытие определенных листов на основе предопределенного списка имен листов, хранящегося в массиве. В этой статье блога мы рассмотрим различные методы решения этой задачи, а также приведем примеры кода для каждого подхода.

Метод 1: цикл по массиву
Самый простой метод включает в себя циклический просмотр массива имен листов и скрытие каждого соответствующего листа по отдельности. Вот пример фрагмента кода:

Sub HideSheetsFromArray()
    Dim sheetNames As Variant
    Dim i As Long
    sheetNames = Array("Sheet2", "Sheet4", "Sheet6") ' Update with your sheet names
    For i = LBound(sheetNames) To UBound(sheetNames)
        Sheets(sheetNames(i)).Visible = xlSheetHidden
    Next i
End Sub

Метод 2: использовать коллекцию имен рабочих листов
Другой подход — использовать коллекцию имен рабочих листов и проверять, существует ли каждое имя листа в массиве. Вот пример:

Sub HideSheetsFromArray()
    Dim sheetNames As Variant
    Dim ws As Worksheet
    sheetNames = Array("Sheet2", "Sheet4", "Sheet6") ' Update with your sheet names
    For Each ws In ThisWorkbook.Worksheets
        If IsInArray(ws.Name, sheetNames) Then
            ws.Visible = xlSheetHidden
        End If
    Next ws
End Sub
Function IsInArray(value As Variant, arr As Variant) As Boolean
    IsInArray = (UBound(Filter(arr, value)) > -1)
End Function

Метод 3: оптимизация с помощью объекта словаря
Использование объекта словаря может повысить производительность при работе с большими массивами имен листов. Вот оптимизированный пример кода:

Sub HideSheetsFromArray()
    Dim sheetNames As Variant
    Dim ws As Worksheet
    Dim dict As Object
    Dim i As Long
    sheetNames = Array("Sheet2", "Sheet4", "Sheet6") ' Update with your sheet names
    Set dict = CreateObject("Scripting.Dictionary")
    For i = LBound(sheetNames) To UBound(sheetNames)
        dict(sheetNames(i)) = True
    Next i
    For Each ws In ThisWorkbook.Worksheets
        If dict.Exists(ws.Name) Then
            ws.Visible = xlSheetHidden
        End If
    Next ws
End Sub

Используя VBA в Excel, вы можете легко скрывать листы на основе имен листов, хранящихся в массиве. Мы рассмотрели три различных метода, продемонстрировав их реализацию на примерах кода. В зависимости от размера массива и требований к производительности вы можете выбрать наиболее подходящий подход для ваших конкретных нужд.