/ / Loop чрез Книги и листове в Excel VBA

Loop чрез Книги и листове в Excel VBA

По - долу ще разгледаме програма в Excel VBA че през всички отворени работни листове и работни листове, и показва всички имена.

Ситуация:

Loop чрез книги и листове Пример

Добавете следните кодови линии към командния бутон:

1. Първо, декларираме два обекта и една променлива. Един обект от тип Работна книга, която наричаме книга, един обект от тип Работен лист, който наричаме лист, и променлива от тип Структура, която наричаме текст.

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. Тествайте програмата. Преди да кликнете върху командния бутон, дайте на работните си листи някои описателни имена и отворете друга празна работна книга.

Резултат:

Loop чрез Книги и листове в Excel VBA

Също така се чете: