Лооп кроз књиге и листове у Екцел ВБА

У наставку ћемо погледати програм Екцел ВБА то петље кроз све отворене радне свеске и радне листове, и приказује сва имена.

Ситуација:

Додајте следеће линијске кодове у командно дугме:

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

Напомена: можете користити & оператер да бисте повезали (придружили) елементе. Да бисте започели нову линију, можете користити вбНевЛине.

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 text

10. Тестирајте програм. Пре него што кликнете на командно дугме, дајте својим радним листовима нека описна имена и отворите још једну празну радну свеску.

Резултат: