MyTetra Share
Делитесь знаниями!
код для определения имен выделенных листов
Время создания: 16.03.2019 23:43
Текстовые метки: vba_excel, selectedsheets
Раздел: !Закладки - VBA - Excel - Листы
Запись: xintrea/mytetra_db_adgaver_new/master/base/1538452680k2pgd3rt7c/text.html на raw.githubusercontent.com

'код для определения имен выделенных листов, нужно только поменять название книги:


For Each sh In Workbooks("Книга1.XLS").Windows(1).SelectedSheets

MsgBox sh.Name

Next


Sub PrintSelectedSheets()

Dim oSh As Worksheet

With ThisWorkbook

For Each oSh In .Windows(1).SelectedSheets

Debug.Print oSh.Name

Next 'oSh

End With

End Sub

Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования