Проверьте, существует ли значение из листа имен в ячейке vba

Question

У меня проблема с концепцией кода.

Я просто закодировал что-то, что заглядывает в столбец (с 500 + ячейками) , и если значение ячейки не существует в виде имени листа (в том же wb), то создайте рабочий лист с именем значение в этой ячейке.

Вот мой код:

' Si le ticker existe mais pas l'onglet,créé l'onglet 
LastRowData = Data.Cells(Data.Rows.Count, "A").End(xlUp).Row 'trouve la dernière ligne de Data 
LastColumnData = Data.Cells(1, Data.Columns.Count).End(xlToLeft).Column 'trouve la dernière colonne de Data 

For i = 2 To LastRowData 
    For Each sht In Perftitres.Worksheets 
     If Not SheetExists(Data.Cells(i, 9), Perftitres) Then 
     Worksheets.Add.Name = Data.Cells(i, 9) 
     ActiveSheet.Move After:=Worksheets(2) 
     End If 
    Next sht 
Next i 

Этот код работы. SheetExist - это функция, которая говорит true, если лист существует и false, если нет.

Тем не менее, я хочу сделать обратное сейчас:

Если рабочий лист в качестве имени, которое не в колонке, то скрыть этот лист. Я не могу понять это ... Я хочу посмотреть в каждом листе, кроме первого (это данные). Если имя отображается в столбце, ничего не делайте. Если это не скроет лист.

спасибо.

Answer 1

непроверенная, но что-то вроде этого:

Dim sName As String, m, sht As Worksheet 

LastRowData = Data.Cells(Data.Rows.Count, "A").End(xlUp).Row 
LastColumnData = Data.Cells(1, Data.Columns.Count).End(xlToLeft).Column 

'Hide any unmatched sheets (and unhide any matched ones) 
For Each sht In Perftitres.Worksheets 
    m = Application.Match(sht.Name, Data.Cells(2, 9).Resize(LastRowData, 1), 0) 
    sht.Visible = IIf(IsError(m), xlSheetHidden, xlSheetVisible) 
Next sht 

'add any missing sheets 
For i = 2 To LastRowData 
    sName = Data.Cells(i, 9).Value 
    If Not SheetExists(sName, Perftitres) Then 
     With Perftitres.Worksheets.Add(After:=Perftitres.Worksheets(2)) 
      .Name = sName 
     End With 
    End If 
Next i