/ / Excel VBA의 설명서 및 시트를 반복합니다.

Excel VBA에서 장부 및 시트를 반복합니다.

아래에서 우리는 Excel VBA열려있는 모든 통합 문서 및 워크 시트를 반복합니다., 모든 이름을 표시합니다.

상태:

Loop through Books and Sheets 예제

명령 단추에 다음 코드 줄을 추가하십시오.

1. 먼저 두 개의 객체와 하나의 변수를 선언합니다. Book이라는 워크 북 유형의 한 객체, Sheet라고하는 워크 시트 유형의 객체 하나, String이라는 유형의 변수를 텍스트라고 부릅니다.

Dim book As Workbook, sheet As Worksheet, text As String

2. 열려있는 모든 통합 문서를 반복하고 싶습니다. 이를 위해 다음 코드 줄을 추가하십시오.

For Each book In Workbooks

3. 우리는 변수 텍스트에 "통합 문서 :"텍스트, 통합 문서 이름 및 "워크 시트 :"텍스트를 씁니다.

text = text & "Workbook: " & book.Name & vbNewLine & "Worksheets: " & vbNewLine

참고 : & 연산자를 사용하여 요소를 연결 (결합) 할 수 있습니다. 새 줄을 시작하려면 vbNewLine을 사용할 수 있습니다.

4. 통합 문서의 모든 워크 시트를 반복하려면 다음 코드 줄을 추가합니다.

For Each sheet In book.Worksheets

5. 우리는 변수 텍스트에 워크 북의 워크 시트 이름을 씁니다.

text = text & sheet.Name & vbNewLine

6. 두 번째 루프를 닫습니다.

Next sheet

7. 흰 선을 추가하십시오.

text = text & vbNewLine

8. 첫 번째 루프를 닫는 것을 잊지 마십시오.

Next book

9. 마지막으로 MsgBox를 사용하여 변수 텍스트를 표시합니다.

MsgBox text

10. 프로그램을 테스트하십시오. 명령 단추를 클릭하기 전에 워크 시트에 몇 가지 설명이 포함 된 이름을 지정하고 다른 빈 통합 문서를 엽니 다.

결과:

Excel VBA에서 장부 및 시트를 반복합니다.

또한 읽으십시오 :