Добрый день Уважаемые Эксперты.
Подскажите пожалуйста как в Экселе с помощью VBA подсчитать выделенные листы?
Только количество. Притом даже если есть функция которая считает именно выделенные листы, прошу указать как это сделать перебором.
Мой вариант:
На вот этой строке:
Процедура уходит на 438 ошибку. Что говорит, о том что критерий выделено/не_выделено определяется иным образом.
Как именно я к сожалению сказать не могу.
Прошу помочь разобраться
Благодарю Вас
Подскажите пожалуйста как в Экселе с помощью 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 |
Как именно я к сожалению сказать не могу.
Прошу помочь разобраться
Благодарю Вас