Макрос для циклі всі аркушів книги

Застосовується до: Visual Basic 2010 Express

Загальні відомості


Ця стаття містить, Microsoft Visual Basic для застосунків макросу (з підпрограма), який проходить всіх аркушах активної книги. Цей макрос, також відображається ім'я кожного аркуша.

Додаткові відомості


Корпорація Майкрософт надає приклади програмного коду тільки для ілюстрації без гарантії або, – прямих або непрямих. Це включає, але не обмежується, будь-яких гарантій придатності до продажу та придатності для певної мети. У цій статті припускається, що ви знайомі з, що демонструє мову програмування та інструменти, які використовуються для створення та налагодження процедури. Співробітники служби підтримки корпорації Майкрософт можуть пояснити функціональні особливості кожної конкретної процедури, але вони не будуть змінювати приклади для реалізації додаткових можливостей або створювати процедури на вимогу окремих користувачів. Спробувати зразок макросу, виконайте такі дії:
  1. Аркуш модуля введіть такий код макросу.
          Sub WorksheetLoop()         Dim WS_Count As Integer         Dim I As Integer         ' Set WS_Count equal to the number of worksheets in the active         ' workbook.         WS_Count = ActiveWorkbook.Worksheets.Count         ' Begin the loop.         For I = 1 To WS_Count            ' Insert your code here.            ' The following line shows how to reference a sheet within            ' the loop by displaying the worksheet name in a dialog box.            MsgBox ActiveWorkbook.Worksheets(I).Name         Next I      End Sub
  2. Для запуску макросу, курсор у рядку під текстом "Sub WorksheetLoop()" і натисніть клавішу F5.
Макрос циклі книги і відображається у вікні повідомлення з іншої книги ім'я кожного разу, коли вона проходить через цикл. Зверніть увагу, що цей макрос відображатимуться імена на аркуші; Це не відображаються імена інших типів аркушів книги. Можна Постійне повторення через всі аркуші книги за допомогою циклу "Для кожного".
  1. Укласти аркуш модуля такий код макросу.
          Sub WorksheetLoop2()         ' Declare Current as a worksheet object variable.         Dim Current As Worksheet         ' Loop through all of the worksheets in the active workbook.         For Each Current In Worksheets            ' Insert your code here.            ' This line displays the worksheet name in a message box.            MsgBox Current.Name         Next      End Sub
  2. Для запуску макросу, курсор у рядку під текстом "Sub WorksheetLoop2()" і натисніть клавішу F5.
Цей макрос працює однаково WorksheetLoop макросу, за винятком того, що вона використовує іншого типу цикл для обробки з усіх аркушах активної книги.

Посилання


Щоб отримати додаткові відомості про отримання допомоги з Visual Basic для застосунків див. в такій статті бази знань Microsoft Knowledge Base:
163435 VBA: ресурси програмування Visual Basic для застосунків
226118 OFF2000: ресурси програмування Visual Basic для застосунків