Как перебрать в цикле несмежные рабочие листы — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
iListIndex = Array(1, 3, 5)
  
For Each iList In Worksheets(iListIndex)
    MsgBox "Имя рабочего листа : " & iList.Name
Next
 
 
iListNames = Array("Лист1", "Лист3", "Лист5")
  
For Each iList In Worksheets(iListNames)
    MsgBox "Индекс рабочего листа : " & iList.Index
Next
1
2
3
4
5
6
7
8
9
10
11
Set iListMassiv = Worksheets(Array(1, 3, 5))
  
For Each iList In iListMassiv
    MsgBox "Имя рабочего листа : " & iList.Name
Next
 
Set iListMassiv = Worksheets(Array("Лист1", "Лист3", "Лист5"))
  
For Each iList In iListMassiv
    MsgBox "Индекс рабочего листа : " & iList.Index
Next
1
2
3
4
5
6
7
code: #vba
For Each iList In Worksheets(Array(1, 3, 5))
    MsgBox "Имя рабочего листа : " & iList.Name
Next
For Each iList In Worksheets(Array("Лист1", "Лист3", "Лист5"))
    MsgBox "Индекс рабочего листа : " & iList.Index
Next

Похожие записи/страницы:

Leave a Comment