Поделиться через

Свойство Worksheet.ConsolidationSources (Excel)

  • Статья

Возвращает массив строковых значений, которые называют исходные листы для текущей консолидации листа. Возвращает значение Empty , если на листе нет консолидации. Только для чтения, Variant.

Синтаксис

expression. ConsolidationSources

Выражение Переменная, представляющая объект Worksheet .

Пример

В этом примере отображаются имена исходных диапазонов для консолидации на Листе 1. Список отображается на новом листе, созданном в примере.

Set newSheet = Worksheets.Add 
newSheet.Range("A1").Value = "Consolidation Sources" 
aSources = Worksheets("Sheet1").ConsolidationSources 
If IsEmpty(aSources) Then 
 newSheet.Range("A2").Value = "none" 
Else 
 For i = 1 To UBound(aSources) 
 newSheet.Cells(i + 1, 1).Value = aSources(i) 
 Next i 
End If 
newSheet.Columns("A:B").AutoFit

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.