Excel VB 검색 특정 워크 시트

Question

특정 통합 문서 (CSI)에서 특정 워크 시트 (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 

어떤 도움, 평가 될 것입니다 :

나는 아래의 코드를 가지고있다. 감사 코드

Answer 1

이 코드는 통합 문서의 워크 시트 이름을 반복하며 해당 시트가 존재하면 활성화됩니다.

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 

최종 하위