Нижче ми розглянемо програму в Excel VBA що перебирає всі відкриті робочі книги та аркушіта відображає всі імена.
Ситуація:
Додайте до командної кнопки такі рядки коду:
1. Спочатку ми оголошуємо два об’єкти та одну змінну. Один об’єкт типу Робоча книга ми називаємо книгою, один об’єкт типу Аркуш, який ми називаємо аркушем, і змінну типу Рядок, яку ми називаємо текстом.
Затемнити книгу як робочу книгу, аркуш як робочий аркуш, текст як рядок
2. Ми хочемо прокрутити всі відкриті книги. Щоб цього досягти, додайте наступний рядок коду:
За кожну книгу в робочих зошитах
3. Текст "Робочий зошит:", назву робочого зошиту та текст "Робочі аркуші:" "записуємо до змінного тексту.
text = text & "Workbook:" & book.Name & vbNewLine & "Робочі аркуші:" & vbNewLine
Примітка: Ви можете використовувати оператор & для об'єднання (з'єднання) елементів. Щоб розпочати новий рядок, можна скористатися vbNewLine.
4. Щоб прокрутити всі аркуші робочої книги, додайте наступний рядок коду:
Для кожного аркуша в книзі. Робочі аркуші
5. Ми записуємо назви робочих аркушів до змінного тексту.
text = text & sheet.Name & vbNewLine
6. Закрийте другу петлю.
Наступний аркуш
7. Додайте білу лінію.
text = текст & vbNewLine
8. Не забудьте закрити перший цикл.
Наступна книга
9. Нарешті, ми відображаємо текст змінної за допомогою MsgBox.
Текст MsgBox
10. Перевірте програму. Перш ніж натиснути кнопку команди, дайте своїм робочим аркушам деякі описові назви та відкрийте порожню книгу з трьома аркушами.
Результат: