요약
이 문서는 Microsoft Visual Basic for Applications 현재 통합 문서의 모든 워크시트 통한 루프 매크로 (Sub 프로시저) 포함 되어 있습니다. 이 매크로 각 워크시트의 이름을 또한 표시합니다.
추가 정보
Microsoft는 모든 보증, 그림에 대 한 묵시적인 보증. 이 포함 되지만 상품성 또는 특정 목적에의 적합성의 묵시적된 보증에 국한 되지는 않습니다. 이 문서는 작성 하 고 프로시저를 디버깅할 데 사용 되는 도구 및 여기서 설명 하는 프로그래밍 언어에 익숙한 가정 합니다. Microsoft 지원 엔지니어는 특정 프로시저의 기능을 설명할 수 있지만 추가 기능을 제공 하거나 특정 요구 사항에 맞도록 프로시저를 구성 하는 이러한 예제를 수정 하지 않습니다. 예제 매크로 실행 하려면 다음이 단계를 수행 합니다.
-
새 모듈 시트에 다음 매크로 코드를 입력 합니다.
Sub WorksheetLoop() Dim WS_Count As Integer Dim I As Integer ' Set WS_Count equal to the number of worksheets in the active ' workbook. WS_Count = ActiveWorkbook.Worksheets.Count ' Begin the loop. For I = 1 To WS_Count ' Insert your code here. ' The following line shows how to reference a sheet within ' the loop by displaying the worksheet name in a dialog box. MsgBox ActiveWorkbook.Worksheets(I).Name Next I End Sub
-
매크로 실행 하려면 "Sub WorksheetLoop()," 줄에 삽입 포인터를 F5 키를 누릅니다.
매크로 통합 문서에서 반복 실행 되며 루프가 실행 될 때마다 다른 워크시트 이름 가진 메시지 상자를 표시 합니다. 참고가이 매크로 워크시트 이름;에 표시 됩니다 통합 문서에 다른 형식의 시트의 이름이 표시 되지 않습니다. 모든 통합 문서의 워크시트 'For Each' 루프를 사용 하 여 반복할 수도 있습니다.
-
새 모듈 시트에 다음 매크로 코드를 입력 합니다.
Sub WorksheetLoop2() ' Declare Current as a worksheet object variable. Dim Current As Worksheet ' Loop through all of the worksheets in the active workbook. For Each Current In Worksheets ' Insert your code here. ' This line displays the worksheet name in a message box. MsgBox Current.Name Next End Sub
-
매크로 실행 하려면 "Sub WorksheetLoop2()," 줄에 삽입 포인터를 F5 키를 누릅니다.
이 매크로 현재 통합 문서의 워크시트 모두 처리 하는 데 다른 종류의 루프를 사용 하 여 WorksheetLoop 매크로에 동일 하 게 작동 합니다.
참조
Visual Basic for Applications 도움말 보기에 대 한 자세한 내용은 Microsoft 기술 자료의 다음 문서를 참조 하십시오.
163435 VBA: Visual Basic for Applications 대 한 프로그래밍 리소스
226118 OFF2000: Visual Basic for Applications 대 한 프로그래밍 리소스
