Количество листов в книге

[vadim245]

Можно ли формулой или функцией в ячейку вывести количество листов в книге?
Если нет, то как макросом?

[Serge_Bliznykov]

функции свои добавлять умеете?

Public Function WorkbookSheetCount() As Integer
WorkbookSheetCount = ActiveWorkbook.Worksheets.Count
End Function

[VictorM]

Насчет формулой - не знаю. А макросом можно так

Код: Выделить всё

Sub test()
i = Application.Worksheets.Count
MsgBox i
Range("A1").Value = i
End Sub

[Aent]

Чисто теоретически можно и формулой но очень криво
Нужно определить переменную ВСТАВКА->ИМЯ->ПРИСВОИТЬ
Имя: КЛ
Формула: =ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(4; ПОЛУЧИТЬ.ДОКУМЕНТ(88))
Если затем в какую либо ячейку ввести =КЛ, то в этой ячейке будет количество листов книги на момент вставки формулы.
Динамически при изменении количества листов оно изменяться не будет