Блог

Я пытаюсь выполнить поиск по определенному рабочему листу (CSI Tracker) в определенной рабочей книге (CSI).

У меня есть код ниже:

 Function FindAllOnWorksheets(InWorkbook As Workbook, _
            InWorksheets As String, "CSI Tracker", _
            SearchAddress As String, _
            FindWhat As Variant, _
            Optional LookIn As XlFindLookIn = xlValues, _
            Optional LookAt As XlLookAt = xlWhole, _
            Optional SearchOrder As XlSearchOrder = xlByRows, _
            Optional MatchCase As Boolean = False, _
            Optional BeginsWith As String = vbNullString, _
            Optional EndsWith As String = vbNullString, _
            Optional BeginEndCompare As VbCompareMethod = vbTextCompare) As Variant
  

Любая помощь, была бы оценена.
Спасибо

этот код будет перебирать имена рабочих листов рабочей книги, и если этот лист существует, он будет активирован.

 Sub test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets 'a specific workbook (CSI)
    If ws.Name = "CSI Tracker" Then
        ws.Activate
        Exit For
    End If
Next ws
End Sub
  

‘вы можете называть как книги(«CSI.xls «)

 Sub test()
Dim ws As Worksheet
Workbooks("Brief v13.xls").Activate
For Each ws In Workbooks("CSI.xls").Sheets
    If ws.Name = "CSI Tracker" Then
        ws.Activate
        Exit For
    End If
Next ws
  

Конец подраздела