Страница 1 из 1
Количество листов в книге
Добавлено: 29 июл 2008, 08:01
vadim245
Можно ли формулой или функцией в ячейку вывести количество листов в книге?
Если нет, то как макросом?
Re: Количество листов в книге
Добавлено: 29 июл 2008, 09:16
Serge_Bliznykov
функции свои добавлять умеете?
Public Function WorkbookSheetCount() As Integer
WorkbookSheetCount = ActiveWorkbook.Worksheets.Count
End Function
Re: Количество листов в книге
Добавлено: 29 июл 2008, 09:20
VictorM
Насчет формулой - не знаю. А макросом можно так
Код: Выделить всё
Sub test()
i = Application.Worksheets.Count
MsgBox i
Range("A1").Value = i
End Sub
Re: Количество листов в книге
Добавлено: 31 июл 2008, 11:13
Aent
Чисто теоретически можно и формулой но очень криво
Нужно определить переменную ВСТАВКА->ИМЯ->ПРИСВОИТЬ
Имя: КЛ
Формула: =ПОЛУЧИТЬ.РАБОЧУЮ.КНИГУ(4; ПОЛУЧИТЬ.ДОКУМЕНТ(88))
Если затем в какую либо ячейку ввести =КЛ, то в этой ячейке будет количество листов книги на момент вставки формулы.
Динамически при изменении количества листов оно изменяться не будет
