Форум программистов [Powered by Invision Power Board]

Цитата(Genyaa @ 12.4.2007, 21:24)

Если трехмерных ссылок недостаточно для решения (т.е. необходимо именно выбрать значения из каждого листа, а не вычислять какой-нибудь обобщенный результат из значений этих ячеек с помощью функций СУММ, СРЗНАЧ, СРЗНАЧА, СЧЁТ, СЧЁТЗ, МАКС, МАКСА, МИН, МИНА, ПРОИЗВЕД, СТАНДОТКЛОН, СТАНДОТКЛОНА, СТАНДОТКЛОНП, СТАНДОТКЛОНПА, ДИСП, ДИСПА, ДИСПР и ДИСПРА), то исключительно стандартных встроенных средств Excel будет недостаточно, ибо...

чтобы решить эту задачу через формулы необходимо, чтобы был известен полный список имен листов, значения ячеек которых необходимо получить в нужном листе. К сожалению ни одна функция Excel не дает возможности получить этот список или обратиться к листам по номерам (хотя по моему мнению, это было бы весьма полезно).

А чтобы решать подобного рода задачи я давно пользуюсь таким макросом:

Код


Sub ListOfSheets()
' программа составления списка выделенных листов
    Dim c As Range
    Set c = Application.InputBox(prompt:="Укажи, куда записать имена выделенных листов:", Type:=8)
    For i = 1 To ActiveWorkbook.Sheets.Count
        c.Cells(1, 1).Offset(i - 1, o).Value = Sheets(i).Name
    Next
End Sub

Перед запуском этого макроса нужно выделить те листы книги, список которых нужно получить в столбец под указываемой в процесе отработки процедуры.

В результате получим список имен нужных листов книги... например в ячейках A1:A10. Далее в B1 пишем такую формулу:

=двссыл(адрес(1;2;;;А1))

и копируем ее в B1:B10 - получится список значений ячейки B1 из десяти листов, имена которых мы получили в столбце А.

Добавлено @ 21:36
А вот если использовать такую пользовательскую функцию, то доступ к листу по номеру будет очень удобен:

Код


Public Function OffsetSheet(r As Range, n As Long) As Range
'пользовательская функция вернет ссылку на область ячеек в листе, отстоящем на указанное число листов n от листа, где расположена область, указанная в параметре r
    Set OffsetSheet = Worksheets(r.Parent.Index + n).Range(r.Address)
End Function

Теперь с использованием этой функции решение Вашей задачи будет очень простым:
- в ячейку А1 пишем формулу =OffsetSheet($B$1;СТРОКА())
- копируем эту формулу в область A1:A10
- получили список значений ячеек B1 десяти следующих за текущим листов книги.