For each in vba word

This tutorial will show you examples of using the For Each Loop in VBA. Click here to learn more about loops in general.

For Each Loop

The For Each Loop allows you to loop through each object in a collection:

• All cells in a range
• All worksheets in a workbook
• All open workbooks
• All shapes in a worksheet
• All items in an array
• and more!

For Each: Basic Examples

These examples will demonstrate how to set up For Each loops to loop through different types of objects.

Loop Through Cells

This procedure will loop through each cell in range A1:A10, setting the cell to it’s right equal to itself.

Sub ForEachCell()
    Dim Cell As Range
    
    For Each Cell In Sheets("Sheet1").Range("A1:A10")
        Cell.Offset(0, 1).value = Cell.value
    Next Cell
    
End Sub

Loop Through Sheets

This procedure will loop through each sheet in a Workbook, unhiding each sheet.

Sub ForEachSheets()
    Dim ws As Worksheet

    For Each ws In Sheets
        ws.Visible = True
    Next ws

End Sub

Loop Through Workbooks

This procedure will loop through each Workbook, closing each one.

Sub ForEachWorkbooks()
    Dim wb As Workbook
    
    For Each wb In Workbooks
        wb.Close
    Next wb
    
End Sub

Loop Through Shapes

This procedure will loop through each shape in Sheet1, deleting each one.

Sub ForEachShape()
    Dim Shp As Shape
    
    For Each Shp In Sheets("Sheet1").Shapes
        Shp.Delete
    Next Shp
    
End Sub

Loop Through Charts

This procedure will loop through each Chart in Sheet1, deleting each one.

Sub ForEachCharts()
    Dim cht As ChartObject
    
    For Each cht In Sheets("Sheet1").ChartObjects
        cht.Delete
    Next cht
    
End Sub

Loop Through PivotTables

This procedure will loop through each PivotTable in Sheet1, clearing each one

Sub ForEachPivotTables()
    Dim pvt As PivotTable
    
    For Each pvt In Sheets("Sheet1").PivotTables
        pvt.ClearTable
    Next pvt
    
End Sub

Loop Through Tables

This procedure will loop through each Table in Sheet1, deleting each one.

Sub ForEachTables()
    Dim tbl As ListObject
    
    For Each tbl In Sheets("Sheet1").ListObjects
        tbl.Delete
    Next tbl
    
End Sub

VBA Programming | Code Generator does work for you!

Loop Through Items in Array

This procedure will loop through each item in an Array, display each value in a msgbox,

Sub ForEachItemInArray()
    Dim arrValue As Variant
    Dim Item As Variant
    arrValue = Array("Item 1", "Item 2", "Item 3")
    
    For Each Item In arrValue
        MsgBox Item
    Next Item
    
End Sub

Loop Through Numbers

This procedure will loop through each number in an Array, display each value in a msgbox,

Sub ForEachNumberInNumbers()
    Dim arrNumber(1 To 3) As Integer
    Dim num As Variant
    
    arrNumber(1) = 10
    arrNumber(2) = 20
    arrNumber(3) = 30
    
    For Each num In arrNumber
        Msgbox num
    Next num
    
End Sub

For Each Loop Builder

The examples in this article were built with the Loop Builder in our VBA Add-in: AutoMacro.

The Loop Builder makes it very easy to generate code to loop through objects.  AutoMacro also contains many other Code Generators, an extensive Code Library, and powerful Coding Tools.

For Each – If

You can also use If Statements within Loops to test if objects meet certain criteria, only performing actions on those objects that meet the criteria.  Here is an example of looping through each cell in a range:

For Each Cell in Range – If

Sub If_Loop()
Dim Cell as Range
 
  For Each Cell In Range("A2:A6")
    If Cell.Value > 0 Then
      Cell.Offset(0, 1).Value = "Positive"
    ElseIf Cell.Value < 0 Then
      Cell.Offset(0, 1).Value = "Negative"
    Else
      Cell.Offset(0, 1).Value = "Zero"
    End If
  Next Cell
 
End Sub

AutoMacro | Ultimate VBA Add-in | Click for Free Trial!

For Each Common Examples

Close All Workbooks

This procedure will close all open workbooks, saving changes.

Sub CloseAllWorkbooks()
    
    Dim wb As Workbook
    
    For Each wb In Workbooks
        wb.Close SaveChanges:=True
    Next wb
    
End Sub

Hide All Sheets

This procedure will hide all worksheets.

Sub HideAllSheets()
    Dim ws As Worksheet

    For Each ws In Sheets
        ws.Visible = xlSheetHidden
    Next ws
    
End Sub

Unhide All Sheets

This procedure will unhide all worksheets.

Sub UnhideAllSheets()
    Dim ws As Worksheet

    For Each ws In Sheets
        ws.Visible = xlSheetVisible
    Next ws
    
End Sub

AutoMacro | Ultimate VBA Add-in | Click for Free Trial!

Protect All Sheets

This procedure will protect all worksheets.

Sub ProtectAllSheets()
    Dim ws As Worksheet

    For Each ws In Sheets
        ws.Protect Password:="..."
    Next ws
    
End Sub

Unprotect All Sheets

This procedure will unprotect all worksheets.

Sub UnprotectAllSheets()
    Dim ws As Worksheet

    For Each ws In Sheets
        ws.Unprotect Password:="..."
    Next ws
    
End Sub

Delete All Shapes On All Worksheets

This procedure will delete all shapes in a workbook.

Sub DeleteAllShapesOnAllWorksheets()
    Dim Sheet As Worksheet
    Dim Shp As Shape
    

    For Each Sheet In Sheets
        For Each Shp In Sheet.Shapes
            Shp.Delete
        Next Shp
    Next Sheet
    
End Sub

Refresh All PivotTables

This procedure will refresh all PivotTables on a sheet.

Sub RefreshAllPivotTables()
    Dim pvt As PivotTable
    
    For Each pvt In Sheets("Sheet1").PivotTables
        pvt.RefreshTable
    Next pvt
    
End Sub

Using For Each in Access VBA

The For Each loop works the same way in Access VBA as it does in Excel VBA.  The following example will remove all the tables in the current database.

Sub RemoveAllTables()
  Dim tdf As TableDef
  Dim dbs As Database
  Set dbs = CurrentDb
  For Each tdf In dbs.TableDefs
      DoCmd.DeleteObject tdf.Name
  Loop
  Set dbs = Nothing
End Sub

В этой статье мы рассмотрим цикл for each VBA языка и познакомимся с коллекциями. Сначала, определимся, что такое коллекция. Коллекция – по своей природе этот тот же массив, но количество элементов в нем нам неизвестно, например: нам нужно получить список файлов или каталогов в данной папке или на данном диске, их количество нам не ведомо. Как вы уже догадались, использовать простой цикл VBA for next тут просто не возможно, так как там нам надо задать точное количество операций для обработки данных.

Именно для таких случае был придуман цикл vba for each next, который содержит следующий синтаксис:

For Each элемент In коллекция
[exit for]
Операторы
[exit for]
Next элемент

Как видим, синтаксис довольно схож с циклом for next, но тут не надо задавать начальные и конечные значения, а также отсутствует шаг счетчика.

Элемент – это переменная, которая будет хранить значение при каждой итерации (переборе коллекции)

Коллекция – собственно, то, что нам надо обработать

Как видим, тут тоже можно использовать выражение Exit For для выхода из цикла.

Давайте рассмотрим такой пример: в редакторе кода VBA создадим форму с именем SubForm, на поверхность формы добавим три объекта:

Текстовая метка – объект Label, разместите метку в самом верху, она нужна лишь для информирования

Список – объект List, в нем будет выводиться список всех папок на диске D.

Кнопка – объект CommandButton, при нажатии на кнопку будет вызываться соответствующая подпрограмма.

Внешний вид формы можно увидеть на рисунке.

Также нам надо добавить в редактор новый модуль (макрос), выберите в меню Insert пункт Module, имя модуля пусть будет SubModule. В редакторе кода для модуля пропишите:

Sub SubModule()
    SubForm.Show
End Sub

Этот код связывает макрос и форму, при запуске макроса произойдет вывод формы (свойство Show).

Теперь настало самое интересно, в редакторе кода для формы пропишите:

Private Sub GetFolders()
    ' формируем ссылку на объект FileSystemObject
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ' получаем доступ к диску D:
    Set Drive = FSO.GetFolder("D:")
    ' фрмируем коллекцию каталогов
    Set Folders = Drive.SubFolders
 
    'устанавливаем свойства списка
    With ListBox1
        .ColumnHeads = False
        .MultiSelect = fmMultiSelectSingle
    End With
 
    'Начинаем перебор коллекции
    For Each Folder In Folders
        ListBox1.AddItem Folder.Name
    Next
 
End Sub
Private Sub CommandButton1_Click()
    'Вызываем процедуру
    Call GetFolders
End Sub
 
Private Sub UserForm_Initialize()
    Label1.Caption = "Списк каталогов на D:\"
    Label1.FontSize = 15
    Label1.ForeColor = vbBlue
 
    CommandButton1.Caption = "Список"
End Sub

В самом начале мы объявили процедуру GetFolder, в которой происходит подключение внешнего объект Scripting.FileSystemObject (ознакомится с методами и свойствами данного компонента можно в статье “Объект FileSystemObect”), он отвечает за работу с файловой системой. Далее происходит доступ к диску D и получение коллекции все папок, хранящихся на нем (Drive.SubFolders). Хорошо, теперь переменная Folders является коллекцией и ее можно обработать с помощью цикла for each vba языка. Обратите внимание, что ссылка на объект создается с помощью ключевого слова set. Что бы заполнить список (ListBox), мы используем метод AddItem, после которого следует строка Folder.Name – имя папки.

А вот пример вывода списка специальных папок Windows (специальные папки – папки, которые автоматически создаются системой: мои документы, каталог со шрифтами, системный каталог и так далее):

Private Sub GetFolders()
Dim WshShell, SpecObj, i
    ' формируем ссылку на объект Wscript.Shell
    Set WshShell = CreateObject("Wscript.Shell")
    ' получаем доступ к специальным папкам
    Set SpecObj = WshShell.SpecialFolders
 
    'устанавливаем свойства списка
    With ListBox1
        .ColumnHeads = False
        .MultiSelect = fmMultiSelectSingle
    End With
 
    'Начинаем перебор коллекции
    For Each i In SpecObj
        ListBox1.AddItem i
    Next
 
End Sub

Тут мы использовали объект WScript.Shell для получения списка специальных папок, ознакомится с его методами и свойствами можно в статье (объект Wscript.Shell). И так, в следующей статье мы рассмотрим цикл do loop языка Visual Basic for Applications, который позволяет задавать условие выполнения операций.

Early Exit from a Loop

   <source lang="vb">

Sub GetControls2()

   Dim myControl As Control 
   Dim myForm As Form 
   DoCmd.OpenForm "Customers" 
   Set myForm = Screen.ActiveForm 
   For Each myControl In myForm 
       Debug.Print myControl.Name 
       If myControl.Name = "Address" Then Exit For 
   Next 

End Sub

</source>
   
  

For…Each Variation

   <source lang="vb">

Sub WorksheetLoop2()

   Dim ws As Worksheet 
   For Each ws In ThisWorkbook.Worksheets 
       Debug.Print ws.Name 
   Next 

End Sub

</source>
   
  

Looping through the elements in an array

   <source lang="vb">

Sub ArrayLoop()

   Dim avColors As Variant 
   Dim vItem As Variant 
   avColors = Array("Red", "Green", "Blue") 
   For Each vItem In avColors 
       Debug.Print vItem 
   Next 

End Sub

</source>
   
  

Loop through ranges

   <source lang="vb">

Sub TestAreas()

 Dim rng As Range
 For Each rng In Range("A1:B5,C6:D10,E11:F15").Areas
   MsgBox rng.Address
 Next rng

End Sub

</source>
   
  

Using Nested Loops

   <source lang="vb">

Sub GetFormsAndControls()

   Dim accObj As AccessObject 
   Dim myControl As Control 
   Set obj = CurrentProject.AllForms 
   For Each accObj In obj 
       Debug.Print accObj.Name & "---Form" 
       If Not accObj.IsLoaded Then 
           DoCmd.OpenForm accObj.Name 
          For Each myControl In Forms(accObj.Name).Controls 
               Debug.Print Chr(9) & myControl.Name 
           Next 
           DoCmd.Close 
       End If 
   Next 

End Sub

</source>
   
  

Using the For Each…Next Loop

   <source lang="vb">

  Sub GetControls() 
      Dim myControl As Control 
      Dim myForm As Form 
      DoCmd.OpenForm "Customers" 
      Set myForm = Screen.ActiveForm 
      For Each myControl In myForm 
          Debug.Print myControl.Name 
      Next 
  End Sub 
</source>