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

Returning an Object from a Collection (Excel)

  • Статья

Свойство Item коллекции возвращает один объект из этой коллекции. В следующем примере для переменной firstBook задается объект Workbook , представляющий первую книгу в коллекции Workbooks .

Set FirstBook = Workbooks.Item(1)

Свойство Item является свойством по умолчанию для большинства коллекций, поэтому вы можете написать один и тот же оператор более кратко, опустив ключевое слово Item .

Set FirstBook = Workbooks(1)

Дополнительные сведения о конкретной коллекции см. в разделе справки по этой коллекции или в свойстве Item для коллекции.

Именованные объекты

Хотя обычно можно указать целочисленное значение с помощью свойства Item , может быть удобнее возвращать объект по имени. Прежде чем использовать имя со свойством Item , необходимо присвоить объекту имя. Чаще всего это делается путем задания свойства Name объекта. Следующий пример создает именованный лист в активной книге, а затем ссылается на лист по имени.

ActiveWorkbook.Worksheets.Add.Name = "A New Sheet" 
With Worksheets("A New Sheet") 
 .Range("A5:A10").Formula = "=RAND()" 
End With

Стандартные значения индекса

Некоторые коллекции имеют предопределенные значения индекса, которые можно использовать для возврата отдельных объектов. Каждое предопределенное значение индекса представлено константой. Например, вы указываете константу xlBordersIndex со свойством Item коллекции Borders , чтобы вернуть одну границу.

В следующем примере нижняя граница ячеек A1:G1 на Листе1 задается в двойную строку.

Worksheets("Sheet1").Range("A1:A1"). _ 
 Borders.Item(xlEdgeBottom).LineStyle = xlDouble

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

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