Как перебрать в цикле несмежные рабочие листы?

Категория: Basic
2012-07-03 16:34:06

вариант 1:

code: #vba
iListIndex = Array(1, 3, 5)
 
For Each iList In Worksheets(iListIndex)
    MsgBox "Имя рабочего листа : " & iList.Name
Next
code: #vba
iListNames = Array("Лист1", "Лист3", "Лист5")
 
For Each iList In Worksheets(iListNames)
    MsgBox "Индекс рабочего листа : " & iList.Index
Next

вариант 2:

code: #vba
Set iListMassiv = Worksheets(Array(1, 3, 5))
 
For Each iList In iListMassiv
    MsgBox "Имя рабочего листа : " & iList.Name
Next
code: #vba
Set iListMassiv = Worksheets(Array("Лист1", "Лист3", "Лист5"))
 
For Each iList In iListMassiv
    MsgBox "Индекс рабочего листа : " & iList.Index
Next

вариант 3:

code: #vba
For Each iList In Worksheets(Array(1, 3, 5))
    MsgBox "Имя рабочего листа : " & iList.Name
Next
code: #vba
  For Each iList In Worksheets(Array("Лист1", "Лист3", "Лист5"))
    MsgBox "Индекс рабочего листа : " & iList.Index
Next
Поделиться:

Похожие статьи:

теги: excel, vba, макросы, рабочие листы, перебрать в цикле, перебрать листы