/ / Loop через книги та таблиці в Excel VBA

Цикл через книги та таблиці у Excel VBA

Нижче ми розглянемо програму в Росії Excel VBA це петлі за допомогою всіх відкритих робочих книг і листів, і відображає всі імена.

Ситуація:

Поворот через приклади книг і листів

Додайте наступні кодові рядки до кнопки команди:

1. По-перше, ми оголошуємо два об'єкти та одну змінну. Один об'єкт типу «Робота», яку ми називаємо книгою, одним об'єктом типу «Робочий аркуш», який ми називаємо аркушем, і змінною типу 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

Також читайте: