Страницы: 1
RSS
VBA подсчет выделенных листов
 
Добрый день Уважаемые Эксперты.

Подскажите пожалуйста как в Экселе с помощью VBA подсчитать выделенные листы?
Только количество. Притом даже если есть функция которая считает именно выделенные листы, прошу указать как это сделать перебором.
Мой вариант:
Код
Sub Podchet_Vydelennyh()

   Vsego_Listov = Worksheets.Count

  For i = 1 To Vsego_Listov

    If Sheets(i).Selection = True Then

       Count_Selestion = Count_Selection + 1
    
    End If

  Next i

MsgBox Count_Selestion

End Sub
На вот этой строке:
Код
If Sheets(i).Selection = True Then
Процедура уходит на 438 ошибку. Что говорит, о том что критерий выделено/не_выделено определяется иным образом.
Как именно я к сожалению сказать не могу.

Прошу помочь разобраться

Благодарю Вас
 
Код
Sub Podchet_Vydelennyh()
Dim sh As Worksheet

For Each sh In ActiveWindow.SelectedSheets
    myCount = myCount + 1
Next
 
MsgBox myCount
 
End Sub
Изменено: magistor8 - 15.01.2019 14:58:13
 
Без цикла:
Код
MsgBox ActiveWorkbook.Windows(1).SelectedSheets.Count
 
Уважаемый magistor8.
Спасибо большое все работает.
Кто принимал участие тоже большое Спасибо.




Уважаемый Юрий М
Вам тоже Спасибо.
Изменено: IgorBoot - 15.01.2019 15:06:29
Страницы: 1
Наверх